services: xfce: Allow empty passwords in screenlocker.

* gnu/services/desktop.scm
(xfce-desktop-configuration): Add allow-empty-passwords? field.
(xfce-pam-services): Respect it.

Change-Id: Idd54b6016b5412aacdfbc134bc57de30394a77ad
Signed-off-by: Rutherther <rutherther@ditigal.xyz>

1 files changed, 5 insertions, 2 deletions

diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index eff502b7fb9..59dc5b34749 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -2073,7 +2073,8 @@ CONFIG, a <gnome-desktop-configuration> object."
 (define-record-type* <xfce-desktop-configuration> xfce-desktop-configuration
   make-xfce-desktop-configuration
   xfce-desktop-configuration?
-  (xfce xfce-package (default xfce)))
+  (xfce xfce-package (default xfce))
+  (allow-empty-passwords? xfce-allow-empty-passwords? (default #t)))
 
 (define (xfce-polkit-settings config)
   "Return the list of XFCE dependencies that provide polkit actions and
@@ -2085,7 +2086,9 @@ rules."
            "xfce4-power-manager"))))
 
 (define (xfce-pam-services config)
-  (list (unix-pam-service "xfce4-screensaver")))
+  (list (unix-pam-service "xfce4-screensaver"
+                          #:allow-empty-passwords?
+                          (xfce-allow-empty-passwords? config))))
 
 (define xfce-desktop-service-type
   (service-type