diff options
Diffstat (limited to 'deployment/systems/akashi.scm')
| -rw-r--r-- | deployment/systems/akashi.scm | 30 |
1 files changed, 6 insertions, 24 deletions
diff --git a/deployment/systems/akashi.scm b/deployment/systems/akashi.scm index fba424b..dc2f65e 100644 --- a/deployment/systems/akashi.scm +++ b/deployment/systems/akashi.scm @@ -3,12 +3,10 @@ (define-module (deployment systems akashi) #:use-module ((gnu packages linux) #:prefix gnu:packages:linux:) - #:use-module ((gnu services) #:prefix gnu:services:) - #:use-module ((gnu services base) #:prefix gnu:services:base:) #:use-module ((gnu services guix) #:prefix gnu:services:guix:) #:use-module ((gnu system) #:prefix gnu:system:) + #:use-module ((gnu system file-systems) #:prefix gnu:system:file-systems:) #:use-module ((machines thinkpad-x200) #:prefix machines:thinkpad-x200:) - #:use-module ((sovereign channels) #:prefix sovereign:channels:) #:use-module ((sovereign systems) #:prefix sovereign:systems:) #:use-module (users id1000)) @@ -24,35 +22,19 @@ "akashi") (define (file-systems) - (use-modules (suweren system)) - (append %suweren-file-systems - (list root-partition))) + (cons* root-partition + gnu:system:file-systems:%base-file-systems)) (define keyboard-layout* ((@ (gnu system keyboard) keyboard-layout) "pl")) -(define (guix-configuration record) - (gnu:services:base:guix-configuration - (inherit record) - (channels (list sovereign:channels:default-guix-channel - sovereign:channels:deployment-channel-staging - sovereign:channels:distribution-channel - sovereign:channels:nonguix-channel - sovereign:channels:sovereign-channel)))) - -(define %sovereign-services* - (gnu:services:modify-services sovereign:systems:%sovereign-services - (gnu:services:base:guix-service-type - record => (guix-configuration record)))) - (define (services) - (use-modules (suweren system)) (let* ((home-environments `((,uid1000-name ,uid1000-home-environment))) (guix-home ((@ (gnu services) service) gnu:services:guix:guix-home-service-type home-environments))) - (append %sovereign-services* + (append sovereign:systems:%sovereign-services (list guix-home ((@ (gnu services base) udev-rules-service) 'adb-udev @@ -80,7 +62,7 @@ (swap-devices (machines:thinkpad-x200:swap-devices* host-name*)) (users users) (timezone timezone*) - (locale polish-locale-string) - (locale-definitions %suweren-locale-definitions) + (locale sovereign:systems:pl-locale) + (locale-definitions sovereign:systems:%sovereign-locale-definitions) (services (services)) (sudoers-file sovereign:systems:%sovereign-sudoers-specification)))) |