diff options
| -rw-r--r-- | suweren/system.scm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/suweren/system.scm b/suweren/system.scm index ed986a9..30f5961 100644 --- a/suweren/system.scm +++ b/suweren/system.scm @@ -1,5 +1,7 @@ (define-module (suweren system) #:use-module (gnu services) ; modify-services + #:use-module (gnu services base) ; login-configuration + ; login-service-type #:use-module (gnu services desktop) ; %desktop-services #:use-module (gnu services sddm) ; sddm-service-type #:use-module (gnu services xorg) ; gdm-service-type @@ -7,6 +9,12 @@ #:use-module (gnu system shadow) ; %base-user-accounts ) +;; record login-configuration -> +;; record login-configuration +(define (login configuration) + (login-configuration (inherit configuration) + (allow-empty-passwords? #f))) + ;; record bootloader-configuration -> ;; string -> ;; (record file-system) -> @@ -19,7 +27,10 @@ (let* ((sddm (service sddm-service-type)) (%desktop-services* (modify-services %desktop-services - (delete gdm-service-type))) + (delete gdm-service-type) + (login-service-type configuration + => + (login configuration)))) (suweren-services (list sddm)) (services* (append %desktop-services* |