From a671de9fb779b98216f7ec296659d3b41c7da014 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Mon, 22 Jul 2024 19:41:32 +0200 Subject: feat: disable empty root passwords in %suweren-operating-system --- suweren/system.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'suweren') 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* -- cgit v1.2.3