diff options
Diffstat (limited to 'suweren/system.scm')
| -rw-r--r-- | suweren/system.scm | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/suweren/system.scm b/suweren/system.scm index bbdfa49..3d37171 100644 --- a/suweren/system.scm +++ b/suweren/system.scm @@ -101,6 +101,29 @@ (define-public %suweren-file-systems (@ (gnu system file-systems) %base-file-systems)) +(define-public %suweren-services + (let* ((sddm-configuration* (sddm-configuration (theme "breeze") + (auto-login-user "lilia"))) + + (plasma-desktop (service plasma-desktop-service-type)) + (sddm (service sddm-service-type + sddm-configuration*)) + + (%desktop-services* (modify-services %desktop-services + (delete gdm-service-type) + (guix-service-type configuration + => + (guix configuration)) + (login-service-type configuration + => + (login configuration)))) + (suweren-services (list plasma-desktop + profile + sddm + syncthing))) + (append %desktop-services* + suweren-services))) + ;; record syncthing-configuration (define syncthing-configuration* (syncthing-configuration (user "marek"))) @@ -125,30 +148,7 @@ ;; record operating-system (define-public (suweren-operating-system) (use-modules (gnu system file-systems)) - (let* ((sddm-configuration* (sddm-configuration (theme "breeze") - (auto-login-user "lilia"))) - - (plasma-desktop (service plasma-desktop-service-type)) - (sddm (service sddm-service-type - sddm-configuration*)) - - (%desktop-services* (modify-services %desktop-services - (delete gdm-service-type) - (guix-service-type configuration - => - (guix configuration)) - (login-service-type configuration - => - (login configuration)))) - (suweren-services (list plasma-desktop - profile - sddm - syncthing)) - - (services* (append %desktop-services* - suweren-services - services*)) - (users* (append %base-user-accounts + (let* ((users* (append %base-user-accounts users*))) (operating-system (kernel kernel*) (bootloader bootloader-configuration*) @@ -161,5 +161,5 @@ (users users*) (timezone timezone*) (locale "pl_PL.utf8") - (services services*) + (services %suweren-services) (sudoers-file %sudoers-specification*)))) |