diff options
| -rw-r--r-- | suweren/system.scm | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/suweren/system.scm b/suweren/system.scm index 6df0bdb..ed986a9 100644 --- a/suweren/system.scm +++ b/suweren/system.scm @@ -1,4 +1,8 @@ (define-module (suweren system) + #:use-module (gnu services) ; modify-services + #:use-module (gnu services desktop) ; %desktop-services + #:use-module (gnu services sddm) ; sddm-service-type + #:use-module (gnu services xorg) ; gdm-service-type #:use-module (gnu system) ; operating-system #:use-module (gnu system shadow) ; %base-user-accounts ) @@ -12,9 +16,18 @@ host-name* file-systems* users*) - (let ((users* (append %base-user-accounts - users*))) + (let* ((sddm (service sddm-service-type)) + + (%desktop-services* (modify-services %desktop-services + (delete gdm-service-type))) + (suweren-services (list sddm)) + + (services* (append %desktop-services* + suweren-services)) + (users* (append %base-user-accounts + users*))) (operating-system (bootloader bootloader-configuration*) (host-name host-name*) (file-systems file-systems*) - (users users*)))) + (users users*) + (services services*)))) |