From 1284fac666b05be55e0ddc71decb4155ab3341fd Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Tue, 13 Aug 2024 00:32:45 -0300
Subject: [PATCH] home-services: shells: Allow list values on
 home-fish-configuration-environment-variables alist

---
 radix/home/services/shells.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/radix/home/services/shells.scm b/radix/home/services/shells.scm
index 58631ea..278992b 100644
--- a/radix/home/services/shells.scm
+++ b/radix/home/services/shells.scm
@@ -61,6 +61,9 @@
              (default #\%))
   (expansion abbreviation-expansion)) ; string | <fish-function>
 
+(define strings?
+  (list-of string?))
+
 (define fish-abbreviations?
   (list-of abbreviation?))
 
@@ -102,7 +105,9 @@
                ((key . #t)
                 #~(string-append "set -x " #$key "\n"))
                ((key . value)
-                #~(string-append "set -x " #$key " "  #$value "\n")))
+                #~(string-append "set -x " #$key " "  #$(if (strings? value)
+                                                          (string-join value)
+                                                          value)  "\n")))
              val)))
 
 (define serialize-fish-plugins