From 8e901140dbec7c0ae04ad017c598a275738d29f8 Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Mon, 19 Feb 2024 15:01:08 -0300
Subject: [PATCH] services: shells: Remove serializers specification from afer
 documentation

---
 modules/radix/home/services/shells.scm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

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