services: shells: Remove serializers specification from afer documentation

pull/3/head
Luis Guilherme Coelho 2024-02-19 15:01:08 -03:00
parent 6cc53204aa
commit 8e901140db
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 11 additions and 11 deletions

View File

@ -56,9 +56,12 @@
(default #\%)) (default #\%))
(expansion abbreviation-expansion)) ; string | <fish-function> (expansion abbreviation-expansion)) ; string | <fish-function>
(define list-of-abbreviations? (define fish-abbreviations?
(list-of abbreviation?)) (list-of abbreviation?))
(define fish-env-vars? alist?)
(define fish-aliases? alist?)
(define (serialize-fish-abbreviations field-name val) (define (serialize-fish-abbreviations field-name val)
#~(string-append #~(string-append
#$@(map (match-record-lambda <abbreviation> #$@(map (match-record-lambda <abbreviation>
@ -99,21 +102,18 @@
"List of file-like objects, which will be added to "List of file-like objects, which will be added to
@file{$XDG_CONFIG_HOME/fish/config.fish}.") @file{$XDG_CONFIG_HOME/fish/config.fish}.")
(environment-variables (environment-variables
(alist '()) (fish-env-vars '())
"Association list of environment variables to set in Fish." "Association list of environment variables to set in Fish.")
(serializer serialize-fish-env-vars))
(aliases (aliases
(alist '()) (fish-aliases '())
"Association list of aliases for Fish, both the key and the value "Association list of aliases for Fish, both the key and the value
should be a string. An alias is just a simple function that wraps a should be a string. An alias is just a simple function that wraps a
command, If you want something more akin to @dfn{aliases} in POSIX command, If you want something more akin to @dfn{aliases} in POSIX
shells, see the @code{abbreviations} field." shells, see the @code{abbreviations} field.")
(serializer serialize-fish-aliases))
(abbreviations (abbreviations
(list-of-abbreviations '()) (fish-abbreviations '())
"List of abbreviations for Fish. These are words that, when "List of abbreviations for Fish. These are words that, when
typed in the shell, will automatically expand to the full text." typed in the shell, will automatically expand to the full text."))
(serializer serialize-fish-abbreviations)))
(define (fish-files-service config) (define (fish-files-service config)
`(("fish/config.fish" `(("fish/config.fish"
@ -151,7 +151,7 @@ end\n\n")
(alist '()) (alist '())
"Association list of Fish aliases.") "Association list of Fish aliases.")
(abbreviations (abbreviations
(list-of-abbreviations '()) (fish-abbreviations '())
"Association list of Fish abbreviations.")) "Association list of Fish abbreviations."))
(define (home-fish-extensions original-config extension-configs) (define (home-fish-extensions original-config extension-configs)