diff options
Diffstat (limited to 'deployment/systems/mcdowell.scm')
| -rw-r--r-- | deployment/systems/mcdowell.scm | 30 |
1 files changed, 1 insertions, 29 deletions
diff --git a/deployment/systems/mcdowell.scm b/deployment/systems/mcdowell.scm index 75e5d04..ae1ea16 100644 --- a/deployment/systems/mcdowell.scm +++ b/deployment/systems/mcdowell.scm @@ -64,33 +64,6 @@ (inherit sovereign:devices:swap/no-trim) (target l-target)))) -(define (guix-configuration record) - (let - ( (l-channels (list sovereign:channels:default-guix-channel - sovereign:channels:deployment-channel-staging - sovereign:channels:nonguix-channel - sovereign:channels:sovereign-channel-staging))) - (gnu:services:base:guix-configuration - (inherit record) - (guix (gnu:packages:package-management:guix-for-channels l-channels)) - (channels l-channels)))) - -(define guix-publish-configuration - (gnu:services:base:guix-publish-configuration - (host "0.0.0.0") - (port 8080) - (advertise? #t))) - -(define guix-publish-service - (gnu:services:service gnu:services:base:guix-publish-service-type - guix-publish-configuration)) - -(define %sovereign-services* - (gnu:services:modify-services - sovereign:systems:%sovereign-services - (gnu:services:base:guix-service-type - record => (guix-configuration record)))) - (define system (let* ( (l-guix-homes (list users:id1000:name/home-environment)) @@ -103,10 +76,9 @@ (l-initrd-modules (cons* "mei_me" gnu:system:linux-initrd:%base-initrd-modules)) (l-services (cons* l-guix-home-service - guix-publish-service (gnu:services:service gnu:services:ssh:openssh-service-type) sovereign:packages:protonmail:nogui-profile - %sovereign-services*)) + sovereign:systems:%sovereign-services)) (l-swap-devices (list swap)) (l-users (cons* users:id1000:uid1000-account gnu:system:shadow:%base-user-accounts))) |