diff options
Diffstat (limited to 'systems')
| -rw-r--r-- | systems/ayase.scm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/systems/ayase.scm b/systems/ayase.scm index 8fb8be9..cfc747b 100644 --- a/systems/ayase.scm +++ b/systems/ayase.scm @@ -67,10 +67,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define (home-environments) - (use-modules (users id1000)) - `((,uid1000-name ,(uid1000-home-environment host-name)))) - (define efi-partition ((@ (gnu system file-systems) file-system) (mount-point "/boot/efi") @@ -86,9 +82,11 @@ python-pip ruby))) -(define home-services - (service guix-home-service-type - (home-environments))) +(define (home-services) + (use-modules (users id1000)) + (let ((uid1000-home-environment* (uid1000-home-environment host-name))) + (service guix-home-service-type + `((,uid1000-name ,uid1000-home-environment*))))) (define keyboard-layout (keyboard-layout "pl")) @@ -146,7 +144,7 @@ (define services (append %distribution-services (list (gc-workaround-service) - home-services + (home-services) libvirt-service openssh-service system-packages-service |