feat: implement initial desktop-services in %suweren-operating-system

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*))))