feat: disable empty root passwords in %suweren-operating-system

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*