1 files changed, 9 insertions, 12 deletions
diff --git a/oni/home/services/herbstluftwm.scm b/oni/home/services/herbstluftwm.scm
index 70aa916..306e497 100644
--- a/oni/home/services/herbstluftwm.scm
+++ b/oni/home/services/herbstluftwm.scm
@@ -55,7 +55,7 @@
 (define (build-keybindings bindings)
   (append
    (list "herbstclient keyunbind --all\n")
-   (map (lambda (binding)
+   (map (λ (binding)
           (format #f "herbstclient keybind ~a ~a\n"
                   (kbd (car binding)) (cdr binding)))
         bindings)))
@@ -70,18 +70,16 @@
                     (home-herbstluftwm-configuration-key-bindings config))
 
                    (list "herbstclient mouseunbind --all\n")
-                   (map (lambda (binding)
+                   (map (λ (binding)
                           (format #f "herbstclient mousebind ~a ~a\n"
                                   (kbd (car binding)) (cdr binding)))
                         (home-herbstluftwm-configuration-mouse-bindings config))
-                   (map (lambda (setting)
+                   (map (λ (setting)
                           (format #f "herbstclient set ~s ~s\n"
                                   (car setting) (cdr setting)))
                         (home-herbstluftwm-configuration-settings config))
-                   (map (lambda (tag)
-                          (format #f "herbstclient add ~s\n" tag))
-                        tags)
-                   (map (lambda (key tag)
+                   (map (λ (tag) (format #f "herbstclient add ~s\n" tag)) tags)
+                   (map (λ (key tag)
                           (format #f "herbstclient keybind Mod4-~a use ~s\n" key tag))
                         (take (home-herbstluftwm-configuration-tag-keys config)
                               (length tags))
@@ -89,26 +87,25 @@
                    (if (> (length tags) 0)
                        (list (format #f "herbstclient use ~s\nherbstclient merge_tag default ~s\n" (car tags) (car tags)))
                        '())
-                   (map (lambda (attribute-pair)
+                   (map (λ (attribute-pair)
                           (format #f "herbstclient attr ~a ~s\n"
                                   (string-join (map symbol->string (car attribute-pair)) ".")
                                   (cdr attribute-pair)))
                         (home-herbstluftwm-configuration-attributes config))
                    (list "herbstclient unrule -F\n")
-                   (map (lambda (rule)
+                   (map (λ (rule)
                           (format #f "herbstclient rule ~a\n"
                                   (string-join rule " ")))
                         (home-herbstluftwm-configuration-rules config))
                    (list "herbstclient unlock\n"
                          (format #f "herbstclient pad ~a\n"
                                  (string-join (map number->string (home-herbstluftwm-configuration-padding config)) " ")))
-                   (map (lambda (layout-pair)
+                   (map (λ (layout-pair)
                           (format #f "herbstclient load ~s '~s'\n"
                                   (car layout-pair)
                                   (cdr layout-pair)))
                         (home-herbstluftwm-configuration-layouts config))
-                   (map (lambda (line)
-                          (format #f "herbstclient ~a\n" line))
+                   (map (λ (line) (format #f "herbstclient ~a\n" line))
                         (home-herbstluftwm-configuration-extra config))))))
 
 (define (add-herbstluftwm-executable config)