diff options
| -rw-r--r-- | deployment/systems/aisaka.scm | 6 | ||||
| -rw-r--r-- | deployment/systems/asakura.scm | 2 | ||||
| -rw-r--r-- | deployment/systems/cokolwiek.scm | 4 | ||||
| -rw-r--r-- | deployment/systems/mcdowell.scm | 2 | ||||
| -rw-r--r-- | deployment/systems/rakan.scm | 10 | ||||
| -rw-r--r-- | users/id1000.scm | 2 | ||||
| -rw-r--r-- | users/id1001.scm | 2 |
7 files changed, 14 insertions, 14 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)) diff --git a/users/id1000.scm b/users/id1000.scm index ead0793..17b57cb 100644 --- a/users/id1000.scm +++ b/users/id1000.scm @@ -631,6 +631,6 @@ sovereign:packages:emacs:spacemacs-variables l-user-services))))))) -(define-public name/home-environment +(define-public named-home-environment (list uid1000-name uid1000-home-environment)) diff --git a/users/id1001.scm b/users/id1001.scm index 2e53210..227b03d 100644 --- a/users/id1001.scm +++ b/users/id1001.scm @@ -34,7 +34,7 @@ sovereign:systems:common-home-environment-packages)) (services l-services))))) -(define-public name/home-environment +(define-public named-home-environment (list name home-environment)) |