diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-09-28 16:18:07 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-09-28 16:18:07 +0200 |
| commit | 0c40b7dd53f3b8d3f3c2c8bd0221fc07a95a0a3a (patch) | |
| tree | ca2fde9a86691cb1569e7a6a48e7845c7a3d5779 /systems | |
| parent | f0ff477d97f4b9ca42a79fb09dc4921d372f1345 (diff) | |
refactor(ayase): reconstruct home-services
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 |