1 files changed, 16 insertions, 16 deletions
diff --git a/oni/home/services/xbindkeys.scm b/oni/home/services/xbindkeys.scm
index f361594..67baad6 100644
--- a/oni/home/services/xbindkeys.scm
+++ b/oni/home/services/xbindkeys.scm
@@ -28,11 +28,11 @@
 
 (define (serialize-keymap parent keymap)
   (string-join
-   (let* ((prefixes (filter (lambda (pair) (list? (cdr pair))) keymap))
-          (others (filter (lambda (pair) (not (list? (cdr pair)))) keymap))
-          (names (map (lambda (_) (gensym)) prefixes)))
+   (let* ((prefixes (filter (λ (pair) (list? (cdr pair))) keymap))
+          (others (filter (λ (pair) (not (list? (cdr pair)))) keymap))
+          (names (map (λ (_) (gensym)) prefixes)))
      (append
-      (map (lambda (key-pair sym)
+      (map (λ (key-pair sym)
              (format #f "  (define (~s)\n  (ungrab-all-keys)\n  (remove-all-keys)\n  ~a\n  (xbindkey-function '(control g) (reset-higher-level-binding ~a))\n  (xbindkey-function '(Return) (reset-higher-level-binding ~a))\n  (xbindkey-function '(Escape) (reset-higher-level-binding ~a))\n  (grab-all-keys))\n"
                      sym
                      (serialize-keymap sym (cdr key-pair))
@@ -40,7 +40,7 @@
                      parent
                      parent))
            prefixes names)
-      (map (lambda (key-pair)
+      (map (λ (key-pair)
              (let ((key (car key-pair)))
                (format #f "  (xbindkey ~s ~s)\n  (xbindkey-function '(release ~s) (reset-higher-level-binding ~a))\n"
                        (if (string? key) key `(quote ,key))
@@ -54,27 +54,27 @@
   (apply mixed-text-file
          "xbindkeysrc.scm"
          "(define (reset-higher-level-binding level) (lambda () (ungrab-all-keys) (remove-all-keys) (level) (grab-all-keys)))\n"
-         (let* ((prefixes (filter (lambda (pair) (list? (cdr pair)))
+         (let* ((prefixes (filter (λ (pair) (list? (cdr pair)))
                                   (home-xbindkeys-configuration-keybindings config)))
-                (others (filter (lambda (pair) (not (list? (cdr pair))))
+                (others (filter (λ (pair) (not (list? (cdr pair))))
                                 (home-xbindkeys-configuration-keybindings config)))
-                (names (map (lambda (_) (gensym)) prefixes)))
+                (names (map (λ (_) (gensym)) prefixes)))
            (append
-            (map (lambda (key-pair sym)
+            (map (λ (key-pair sym)
                    (format #f "  (define (~s)\n  (ungrab-all-keys)\n  (remove-all-keys)\n  ~a\n  (xbindkey-function '(control g) (reset-higher-level-binding ~a))\n  (xbindkey-function '(Return) (reset-higher-level-binding ~a))\n  (xbindkey-function '(Escape) (reset-higher-level-binding ~a))\n  (grab-all-keys))\n"
-                     sym
-                     (serialize-keymap "first-binding" (cdr key-pair))
-                     'first-binding
-                     'first-binding
-                     'first-binding))
+                           sym
+                           (serialize-keymap "first-binding" (cdr key-pair))
+                           'first-binding
+                           'first-binding
+                           'first-binding))
                  prefixes names)
             (list "(define (first-binding)\n"
                   "  \"Top-level bindings\"\n")
-            (map (lambda (key-pair sym)
+            (map (λ (key-pair sym)
                    (let ((key (car key-pair)))
                      (format #f "(xbindkey-function ~s ~s)\n" (if (string? key) key `(quote ,key)) sym)))
                  prefixes names)
-            (map (lambda (key-pair)
+            (map (λ (key-pair)
                    (format #f "  (xbindkey (quote ~s) ~s) \n" (car key-pair) (cdr key-pair)))
                  others)
             (list "  )\n"