diff options
Diffstat (limited to 'oni/home/services/herbstluftwm.scm')
-rw-r--r-- | oni/home/services/herbstluftwm.scm | 21 |
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) |