home-services: shells: Use singlequotes when serializing aliases and abbreviation regexes

pull/3/head
Luis Guilherme Coelho 2024-04-04 07:46:23 -03:00
parent d27fce1e77
commit 3146caed5a
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 2 additions and 2 deletions

View File

@ -35,7 +35,7 @@
#~(string-append #~(string-append
#$@(map (match-lambda #$@(map (match-lambda
((key . value) ((key . value)
#~(string-append "alias " #$key " \"" #$value "\"\n")) #~(string-append "alias '" #$key "' \"" #$value "\"\n"))
(_ "")) (_ ""))
val))) val)))
@ -69,7 +69,7 @@
#~((@@ (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