ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Replace all ‘lambda’ occurrences with ‘λ’

Browse source
This commit is contained in:
Tom Willemse 2023-06-20 23:06:25 -07:00
parent b775263a34
commit 8e2f5eed4a
11 changed files with 48 additions and 53 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
oni/gexp.scm
View file

@ -12,7 +12,7 @@ executable bit set. TEXT is a sequence of strings and file-like objects, as in:
(define build (define build
(let ((text (if guile (drop text 2) text))) (let ((text (if guile (drop text 2) text)))
(gexp (call-with-output-file (ungexp output "out") (gexp (call-with-output-file (ungexp output "out")
(lambda (port) (λ (port)
(set-port-encoding! port "UTF-8") (set-port-encoding! port "UTF-8")
(display (string-append (ungexp-splicing text)) port) (display (string-append (ungexp-splicing text)) port)
(chmod port #o555)))))) (chmod port #o555))))))

2
oni/home/services/dunst.scm
View file

@ -218,7 +218,7 @@ horizontal axis.")
(define (home-dunst-config-dunstrc config) (define (home-dunst-config-dunstrc config)
(computed-file "dunstrc" (computed-file "dunstrc"
#~(call-with-output-file #$output #~(call-with-output-file #$output
(lambda (port) (λ (port)
(display #$(serialize-dunst-configuration config) (display #$(serialize-dunst-configuration config)
port))))) port)))))

2
oni/home/services/guile.scm
View file

@ -45,7 +45,7 @@
(define (home-guile-config-file config) (define (home-guile-config-file config)
(computed-file "guile" (computed-file "guile"
#~(call-with-output-file #$output #~(call-with-output-file #$output
(lambda (port) (λ (port)
(display #$(serialize-guile-configuration config) port))))) (display #$(serialize-guile-configuration config) port)))))
(define (home-guile-config-files config) (define (home-guile-config-files config)

21
oni/home/services/herbstluftwm.scm
View file

@ -55,7 +55,7 @@
(define (build-keybindings bindings) (define (build-keybindings bindings)
(append (append
(list "herbstclient keyunbind --all\n") (list "herbstclient keyunbind --all\n")
(map (lambda (binding) (map (λ (binding)
(format #f "herbstclient keybind ~a ~a\n" (format #f "herbstclient keybind ~a ~a\n"
(kbd (car binding)) (cdr binding))) (kbd (car binding)) (cdr binding)))
bindings))) bindings)))
@ -70,18 +70,16 @@
(home-herbstluftwm-configuration-key-bindings config)) (home-herbstluftwm-configuration-key-bindings config))
(list "herbstclient mouseunbind --all\n") (list "herbstclient mouseunbind --all\n")
(map (lambda (binding) (map (λ (binding)
(format #f "herbstclient mousebind ~a ~a\n" (format #f "herbstclient mousebind ~a ~a\n"
(kbd (car binding)) (cdr binding))) (kbd (car binding)) (cdr binding)))
(home-herbstluftwm-configuration-mouse-bindings config)) (home-herbstluftwm-configuration-mouse-bindings config))
(map (lambda (setting) (map (λ (setting)
(format #f "herbstclient set ~s ~s\n" (format #f "herbstclient set ~s ~s\n"
(car setting) (cdr setting))) (car setting) (cdr setting)))
(home-herbstluftwm-configuration-settings config)) (home-herbstluftwm-configuration-settings config))
(map (lambda (tag) (map (λ (tag) (format #f "herbstclient add ~s\n" tag)) tags)
(format #f "herbstclient add ~s\n" tag)) (map (λ (key tag)
tags)
(map (lambda (key tag)
(format #f "herbstclient keybind Mod4-~a use ~s\n" key tag)) (format #f "herbstclient keybind Mod4-~a use ~s\n" key tag))
(take (home-herbstluftwm-configuration-tag-keys config) (take (home-herbstluftwm-configuration-tag-keys config)
(length tags)) (length tags))
@ -89,26 +87,25 @@
(if (> (length tags) 0) (if (> (length tags) 0)
(list (format #f "herbstclient use ~s\nherbstclient merge_tag default ~s\n" (car tags) (car tags))) (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" (format #f "herbstclient attr ~a ~s\n"
(string-join (map symbol->string (car attribute-pair)) ".") (string-join (map symbol->string (car attribute-pair)) ".")
(cdr attribute-pair))) (cdr attribute-pair)))
(home-herbstluftwm-configuration-attributes config)) (home-herbstluftwm-configuration-attributes config))
(list "herbstclient unrule -F\n") (list "herbstclient unrule -F\n")
(map (lambda (rule) (map (λ (rule)
(format #f "herbstclient rule ~a\n" (format #f "herbstclient rule ~a\n"
(string-join rule " "))) (string-join rule " ")))
(home-herbstluftwm-configuration-rules config)) (home-herbstluftwm-configuration-rules config))
(list "herbstclient unlock\n" (list "herbstclient unlock\n"
(format #f "herbstclient pad ~a\n" (format #f "herbstclient pad ~a\n"
(string-join (map number->string (home-herbstluftwm-configuration-padding config)) " "))) (string-join (map number->string (home-herbstluftwm-configuration-padding config)) " ")))
(map (lambda (layout-pair) (map (λ (layout-pair)
(format #f "herbstclient load ~s '~s'\n" (format #f "herbstclient load ~s '~s'\n"
(car layout-pair) (car layout-pair)
(cdr layout-pair))) (cdr layout-pair)))
(home-herbstluftwm-configuration-layouts config)) (home-herbstluftwm-configuration-layouts config))
(map (lambda (line) (map (λ (line) (format #f "herbstclient ~a\n" line))
(format #f "herbstclient ~a\n" line))
(home-herbstluftwm-configuration-extra config)))))) (home-herbstluftwm-configuration-extra config))))))
(define (add-herbstluftwm-executable config) (define (add-herbstluftwm-executable config)

2
oni/home/services/mpd.scm
View file

@ -52,7 +52,7 @@
(define (home-mpd-audio-output-list? value) (define (home-mpd-audio-output-list? value)
(and (list? value) (and (list? value)
(every (lambda (v) (is-a? v <home-mpd-audio-output>)) value))) (every (λ (v) (is-a? v <home-mpd-audio-output>)) value)))
(define-maybe string) (define-maybe string)
(define-maybe home-mpd-audio-output-list) (define-maybe home-mpd-audio-output-list)

8
oni/home/services/picom.scm
View file

@ -34,7 +34,7 @@
(symbol->string field) (symbol->string field)
": {\n" ": {\n"
(apply string-append (apply string-append
(map (lambda (type) (map (λ (type)
(string-append (string-append
" " " "
(symbol->string (car type)) (symbol->string (car type))
@ -44,7 +44,7 @@
(string-append (string-append
"{ " "{ "
(apply string-append (apply string-append
(map (lambda (option) (map (λ (option)
(string-append (symbol->string (car option)) " = " (if (cdr option) "true" "false"))) (string-append (symbol->string (car option)) " = " (if (cdr option) "true" "false")))
(cdr type))) (cdr type)))
" },")) " },"))
@ -61,7 +61,7 @@
(define (serialize-list field value) (define (serialize-list field value)
(string-append (symbol->string field) " = [\n" (string-append (symbol->string field) " = [\n"
(apply string-append (map (lambda (item) (apply string-append (map (λ (item)
(string-append " \"" item "\",\n")) (string-append " \"" item "\",\n"))
value)) value))
"];\n")) "];\n"))
@ -166,7 +166,7 @@
(computed-file (computed-file
"picom.conf" "picom.conf"
#~(call-with-output-file #$output #~(call-with-output-file #$output
(lambda (port) (λ (port)
(display #$(serialize-configuration config home-picom-configuration-fields) port))))) (display #$(serialize-configuration config home-picom-configuration-fields) port)))))
(define (home-picom-files-service config) (define (home-picom-files-service config)

2
oni/home/services/rofi.scm
View file

@ -95,7 +95,7 @@
"\n}\n"))) "\n}\n")))
(define (format-rofi-theme theme) (define (format-rofi-theme theme)
(let ((keys (map (lambda (s) (let ((keys (map (λ (s)
(if (symbol? s) (if (symbol? s)
(symbol->string s) (symbol->string s)
(object->string s))) (object->string s)))

2
oni/home/services/unclutter.scm
View file

@ -61,7 +61,7 @@
(if (> (length buttons) 0) (if (> (length buttons) 0)
(list (list
"--ignore-buttons" "--ignore-buttons"
(string-join (map (lambda (i) (format #f "~s" i)) buttons) ",")) (string-join (map (λ (i) (format #f "~s" i)) buttons) ","))
'()))) '())))
#:log-file (format #f "~a/.local/var/log/unclutter.log" (getenv "HOME")))) #:log-file (format #f "~a/.local/var/log/unclutter.log" (getenv "HOME"))))
(stop #~(make-kill-destructor))))) (stop #~(make-kill-destructor)))))

22
oni/home/services/xbindkeys.scm
View file

@ -28,11 +28,11 @@
(define (serialize-keymap parent keymap) (define (serialize-keymap parent keymap)
(string-join (string-join
(let* ((prefixes (filter (lambda (pair) (list? (cdr pair))) keymap)) (let* ((prefixes (filter (λ (pair) (list? (cdr pair))) keymap))
(others (filter (lambda (pair) (not (list? (cdr pair)))) keymap)) (others (filter (λ (pair) (not (list? (cdr pair)))) keymap))
(names (map (lambda (_) (gensym)) prefixes))) (names (map (λ (_) (gensym)) prefixes)))
(append (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" (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 sym
(serialize-keymap sym (cdr key-pair)) (serialize-keymap sym (cdr key-pair))
@ -40,7 +40,7 @@
parent parent
parent)) parent))
prefixes names) prefixes names)
(map (lambda (key-pair) (map (λ (key-pair)
(let ((key (car key-pair))) (let ((key (car key-pair)))
(format #f " (xbindkey ~s ~s)\n (xbindkey-function '(release ~s) (reset-higher-level-binding ~a))\n" (format #f " (xbindkey ~s ~s)\n (xbindkey-function '(release ~s) (reset-higher-level-binding ~a))\n"
(if (string? key) key `(quote ,key)) (if (string? key) key `(quote ,key))
@ -54,13 +54,13 @@
(apply mixed-text-file (apply mixed-text-file
"xbindkeysrc.scm" "xbindkeysrc.scm"
"(define (reset-higher-level-binding level) (lambda () (ungrab-all-keys) (remove-all-keys) (level) (grab-all-keys)))\n" "(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))) (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))) (home-xbindkeys-configuration-keybindings config)))
(names (map (lambda (_) (gensym)) prefixes))) (names (map (λ (_) (gensym)) prefixes)))
(append (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" (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 sym
(serialize-keymap "first-binding" (cdr key-pair)) (serialize-keymap "first-binding" (cdr key-pair))
@ -70,11 +70,11 @@
prefixes names) prefixes names)
(list "(define (first-binding)\n" (list "(define (first-binding)\n"
" \"Top-level bindings\"\n") " \"Top-level bindings\"\n")
(map (lambda (key-pair sym) (map (λ (key-pair sym)
(let ((key (car key-pair))) (let ((key (car key-pair)))
(format #f "(xbindkey-function ~s ~s)\n" (if (string? key) key `(quote ,key)) sym))) (format #f "(xbindkey-function ~s ~s)\n" (if (string? key) key `(quote ,key)) sym)))
prefixes names) prefixes names)
(map (lambda (key-pair) (map (λ (key-pair)
(format #f " (xbindkey (quote ~s) ~s) \n" (car key-pair) (cdr key-pair))) (format #f " (xbindkey (quote ~s) ~s) \n" (car key-pair) (cdr key-pair)))
others) others)
(list " )\n" (list " )\n"

2
oni/kbd.scm
View file

@ -21,7 +21,7 @@
(define (kbd str) (define (kbd str)
(let ((parts (string-split str #\-))) (let ((parts (string-split str #\-)))
(string-join (string-join
(fold-right (lambda (key previous) (fold-right (λ (key previous)
(if (null? previous) (if (null? previous)
(list (convert-key key)) (list (convert-key key))
(cons (convert-modifier key) previous))) (cons (convert-modifier key) previous)))

14
oni/packages/emacs-config.scm
View file

@ -290,8 +290,7 @@ Emacs")))
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'chdir-oni-bats (add-after 'unpack 'chdir-oni-bats
(lambda _ (λ _ (chdir "oni-bats"))))
(chdir "oni-bats"))))
#:include '("\\.el$" "^snippets\\/bats-mode\\/"))) #:include '("\\.el$" "^snippets\\/bats-mode\\/")))
(propagated-inputs (propagated-inputs
`(("emacs-bats" ,emacs-bats) `(("emacs-bats" ,emacs-bats)
@ -309,8 +308,7 @@ Emacs")))
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'chdir-oni-org (add-after 'unpack 'chdir-oni-org
(lambda _ (λ _ (chdir "oni-org"))))
(chdir "oni-org"))))
#:include '("\\.el$" #:include '("\\.el$"
"^snippets\\/org-mode\\/" "^snippets\\/org-mode\\/"
"^capture-templates\\/" "^capture-templates\\/"
@ -458,7 +456,7 @@ Emacs")))
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'chdir-oni-conf (add-after 'unpack 'chdir-oni-conf
(lambda _ (chdir "oni-conf")))) (λ _ (chdir "oni-conf"))))
#:include '("\\.el$" #:include '("\\.el$"
"^snippets\\/conf-mode\\/"))) "^snippets\\/conf-mode\\/")))
(propagated-inputs (propagated-inputs
@ -498,7 +496,7 @@ Emacs")))
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'chdir-oni-csharp (add-after 'unpack 'chdir-oni-csharp
(lambda _ (chdir "oni-csharp")))) (λ _ (chdir "oni-csharp"))))
#:include '("\\.el$" "^snippets\\/"))) #:include '("\\.el$" "^snippets\\/")))
(propagated-inputs (propagated-inputs
`(("emacs-csharp-mode" ,emacs-csharp-mode) `(("emacs-csharp-mode" ,emacs-csharp-mode)
@ -519,7 +517,7 @@ Emacs")))
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'chdir-oni-css (add-after 'unpack 'chdir-oni-css
(lambda _ (chdir "oni-css")))) (λ _ (chdir "oni-css"))))
#:include '("\\.el$" "^snippets\\/"))) #:include '("\\.el$" "^snippets\\/")))
(propagated-inputs (propagated-inputs
`(("emacs-oni-company" ,emacs-oni-company) `(("emacs-oni-company" ,emacs-oni-company)
@ -548,7 +546,7 @@ Emacs")))
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'chdir-oni-elisp (add-after 'unpack 'chdir-oni-elisp
(lambda _ (chdir "oni-elisp")))) (λ _ (chdir "oni-elisp"))))
#:include '("\\.el$" "^snippets\\/"))) #:include '("\\.el$" "^snippets\\/")))
(propagated-inputs (propagated-inputs
`(("emacs-oni-company" ,emacs-oni-company) `(("emacs-oni-company" ,emacs-oni-company)