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

;; record bootloader-configuration ->
;; string ->
;; (record file-system) ->
;; (record user-account) ->
;; record operating-system
(define-public (%suweren-operating-system bootloader-configuration*
					  host-name*
					  file-systems*
					  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*)
		      (services services*))))