cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

home-services: shells: Use match-record-lambda instead of lambda with a single expression match-record

pull/1/head
Luis Guilherme Coelho 2023-11-26 12:36:50 -03:00
parent bd7484f873
commit e853d05dc1
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
modules/radix/home/services/shells.scm
View File

@ -61,23 +61,22 @@
(define (serialize-fish-abbreviations field-name val) (define (serialize-fish-abbreviations field-name val)
#~(string-append #~(string-append
#$@(map (lambda (abbr) #$@(map (match-record-lambda <abbreviation>
(match-record abbr <abbreviation> (name pattern position marker expansion)
(name pattern position marker expansion) #~((@@ (ice-9 format) format) #f
#~((@@ (ice-9 format) format) #f "~%abbr --add '~a' \\~%~
"~%abbr --add '~a' \\~%~ ~@[ --position ~a \\~%~]~
~@[ --position ~a \\~%~]~ ~@[ --regex \"~a\" \\~%~]~
~@[ --regex \"~a\" \\~%~]~ ~@[ --set-cursor=~a \\~%~]~
~@[ --set-cursor=~a \\~%~]~ ~@[ ~a~]~%"
~@[ ~a~]~%" '#$name
'#$name '#$position
'#$position #$pattern
#$pattern #$marker
#$marker #$(if (fish-function? expansion)
#$(if (fish-function? expansion) (format #f "--function ~a"
(format #f "--function ~a" (fish-function-name expansion))
(fish-function-name expansion)) (format #f "\"~a\"" expansion))))
(format #f "\"~a\"" expansion)))))
val))) val)))
(define (serialize-fish-env-vars field-name val) (define (serialize-fish-env-vars field-name val)