home-environments: radio: Add fish abbreviations to manage guix configuration

home-environments/radio/files/fish.scm

@@ -9,8 +9,7 @@
               #:recursive? #t))
 
 (define custom-functions
-  (local-file
-    "../../../files/fish/functions/fish_custom_functions.fish"))
+  (local-file "../../../files/fish/functions/fish_custom_functions.fish"))
 
 (define config
   (local-file "../../../files/fish/conf.d"

home-environments/radio/fish-abbreviations.scm

@@ -4,6 +4,7 @@
   #:export (user-dirs
             extensions
             channels
+            config
             quick-edit
             bookmarks
             guix
@@ -94,6 +95,21 @@
           (expansion
            (fish-function "bang-star")))))
 
+(define config
+  (let* ((radix '~/areas/code/scm/radix/)
+         (user (string->symbol (getlogin)))
+         (os   (string->symbol (gethostname))))
+  (list (abbreviation
+         (name (at user))
+         (position 'anywhere)
+         (expansion
+           (format #f "~a/home-environments/~a" radix user)))
+        (abbreviation
+         (name (at os))
+         (position 'anywhere)
+         (expansion
+          (format #f "~a/operating-systems/~a" radix os))))))
+
 (define guix
   (list (abbreviation
          (name '!dgen)