change name/home-environment in names to named-home-environment

5 files changed, 12 insertions, 12 deletions

diff --git a/deployment/systems/aisaka.scm b/deployment/systems/aisaka.scm
index 0ee22fe..99f5782 100644
--- a/deployment/systems/aisaka.scm
+++ b/deployment/systems/aisaka.scm
@@ -691,11 +691,11 @@
     (gnu:services:service gnu:services:base:guix-publish-service-type
                           configuration)))
 
-(define home-environments
-  (list users:id1000:name/home-environment))
+(define named-home-environments
+  (list users:id1000:named-home-environment))
 
 (define guix-home-service
-  (sovereign:systems:guix-home-service home-environments))
+  (sovereign:systems:guix-home-service named-home-environments))
 
 (define-public system
   (gnu:system:operating-system
diff --git a/deployment/systems/asakura.scm b/deployment/systems/asakura.scm
index 4571f83..5936ba1 100644
--- a/deployment/systems/asakura.scm
+++ b/deployment/systems/asakura.scm
@@ -94,7 +94,7 @@
 
 (define services
   (let*
-   ( (l-guix-homes        (list users:id1000:name/home-environment))
+   ( (l-guix-homes        (list users:id1000:named-home-environment))
      (l-guix-home-service (sovereign:systems:guix-home-service l-guix-homes)))
    (append sovereign:systems:%sovereign-services
           (list sovereign:packages:protonmail:nogui-profile
diff --git a/deployment/systems/cokolwiek.scm b/deployment/systems/cokolwiek.scm
index 75358d5..9317926 100644
--- a/deployment/systems/cokolwiek.scm
+++ b/deployment/systems/cokolwiek.scm
@@ -68,8 +68,8 @@
 
 (define system
   (let*
-    ( (l-guix-homes         (list users:id1000:name/home-environment
-                                  users:id1001:name/home-environment))
+    ( (l-guix-homes         (list users:id1000:named-home-environment
+                                  users:id1001:named-home-environment))
       (l-guix-home-service  (sovereign:systems:guix-home-service l-guix-homes))
       (l-bootloader         (sovereign:devices:amd64:custom-bootloader-configuration  system-name))
       (l-file-systems       (cons* file-system-root
diff --git a/deployment/systems/mcdowell.scm b/deployment/systems/mcdowell.scm
index 06a7f45..0ad5a35 100644
--- a/deployment/systems/mcdowell.scm
+++ b/deployment/systems/mcdowell.scm
@@ -83,7 +83,7 @@
 
 (define system
   (let*
-    ( (l-guix-homes         (list users:id1000:name/home-environment))
+    ( (l-guix-homes         (list users:id1000:named-home-environment))
       (l-guix-home-service  (sovereign:systems:guix-home-service  l-guix-homes))
       (l-bootloader         (sovereign:devices:amd64:custom-bootloader-configuration  system-name))
       (l-file-systems       (cons*  file-system-root
diff --git a/deployment/systems/rakan.scm b/deployment/systems/rakan.scm
index d1690b0..0e9c212 100644
--- a/deployment/systems/rakan.scm
+++ b/deployment/systems/rakan.scm
@@ -164,12 +164,12 @@
     gnu:services:samba:samba-service-type
     samba-configuration))
 
-(define name/home-environment-1000
+(define named-home-environment-1000
   (let
-    ( (name/home-environment- users:id1000:name/home-environment))
+    ( (named-home-environment- users:id1000:named-home-environment))
     (let
-      ( (home-environment- (car (cdr name/home-environment-)))
-        (name-             (car name/home-environment-)))
+      ( (home-environment- (car (cdr named-home-environment-)))
+        (name-             (car named-home-environment-)))
       (let*
         ( (services- (gnu:home:home-environment-user-services home-environment-))
           (packages- (gnu:home:home-environment-packages home-environment-))
@@ -182,7 +182,7 @@
               home-environment-*)))))
 
 (define guix-homes
-  (list name/home-environment-1000))
+  (list named-home-environment-1000))
 
 (define guix-home-service
   (sovereign:systems:guix-home-service guix-homes))