buffer.fnl

@@ -1,6 +1,5 @@
 (local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
 (local { : view } (require :fennel))
-(import-macros {: trace} :macros)
 
 (fn new-buffer [name]
   (var property-change-listener nil)

keymap.fnl

@@ -1,7 +1,6 @@
 (local { : Gdk } (require :lgi))
 (local { : view } (require :fennel))
 (local lume (require :lume))
-(import-macros {: trace} :macros)
 
 (local modifier-keyvals
        ;; we need to detect and discard modifier-only key events when
@@ -20,7 +19,6 @@
               :Super_R                  ; menu key? not on my keyboard
               :Alt_L
               :Alt_R
-              :Num_Lock
               :ISO_Level3_Shift         ; AltGr
               ]]
          (collect [_ n (ipairs names)]
@@ -29,10 +27,6 @@
 (fn modifier? [keyval]
   (. modifier-keyvals keyval))
 
-(fn ignored-modifier? [mod]
-  (= mod :MOD2_MASK) ; numlock
-  )
-
 (fn keychord->spec [keychord]
   (let [Mod Gdk.ModifierType
         symbol (keychord:match "(%w+)$")
@@ -55,9 +49,7 @@
   (let [modmask
         (accumulate [m 0
                      k _ (pairs event.state)]
-          (if (ignored-modifier? k)
+          (bor m (. Gdk.ModifierType k)))]
-              m
-              (bor m (. Gdk.ModifierType (trace k)))))]
     (spec->index {:keyval event.keyval : modmask})))
 
 (fn compact [xs]

lsqlite3.nix

@@ -8,7 +8,7 @@ let
 in lua.pkgs.buildLuarocksPackage {
   pname = "lsqlite3";
   version = "0.9.5-1";
-  buildInputs = [ sqlite sqlite.dev ] ;
+  buildInputs = [ sqlite ] ;
   src = fetchurl {
     url    = "https://luarocks.org/manifests/dougcurrie/lsqlite3-0.9.5-1.src.rock";
     sha256 = "sha256-/a48AzkKtOS32zoT0Jt5/+GTGHObdS0XkUrc2z0u+f8=";

macros.fnl

@@ -1,7 +0,0 @@
-
-(fn trace [x]
-  `(do
-     (print :trace ,(view x) (view ,x))
-     ,x))
-
-{ : trace }