ayase: use the name/home-environment variable for home services

1 files changed, 6 insertions, 9 deletions

diff --git a/deployment/systems/ayase.scm b/deployment/systems/ayase.scm
index 904cb18..f993c1d 100644
--- a/deployment/systems/ayase.scm
+++ b/deployment/systems/ayase.scm
@@ -41,12 +41,6 @@
    (device efi-filesystem-uuid)
    (type "vfat")))
 
-(define (home-services)
-  (use-modules (gnu services guix))
-    ((@ (gnu services) service)
-     guix-home-service-type
-     `((,users:id1000:uid1000-name ,users:id1000:uid1000-home-environment))))
-
 (define keyboard-layout
   ((@ (gnu system keyboard) keyboard-layout)
    "pl"))
@@ -104,11 +98,14 @@
                 efi-partition)))
 
 (define services
-  (append sovereign:systems:%sovereign-services
+  (let*
+   ( (l-guix-homes        (list users:id1000:name/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
-                (home-services)
+                l-guix-home-service
                 (openssh-service)
-                (system-packages-service))))
+                (system-packages-service)))))
 
 (define swap-device-1
   (swap-label "-1"))