~ruther/guix-local

5d6c8767f67885bc9b2c8f18ab1f667d0065346b — 宋文武 1 year, 4 months ago a9a13eb 
gnu: xfce: Enable xfce4-screensaver.

This fixes <https://issues.guix.gnu.org/75288>.

* gnu/packages/xfce.scm (xfce)[inputs]: Add xfce4-screensaver.
* gnu/services/desktop.scm (xfce-pam-services): New procedure.
(xfce-desktop-service-type): Add a extension for pam-root-service-type.

Change-Id: I4bdf5088f4ccc743afdcfdd2d68541c2d883552d
patch browse .tar.gz 
2 files changed, 6 insertions(+), 0 deletions(-)

M gnu/packages/xfce.scm
M gnu/services/desktop.scm

M gnu/packages/xfce.scm => gnu/packages/xfce.scm +1 -0
@@ 1375,6 1375,7 @@ for and start applications.")
           xfce4-notifyd                          ;for pop-up notifications
           xfce4-panel
           xfce4-power-manager
           xfce4-screensaver
           xfce4-screenshooter
           xfce4-session
           xfce4-settings


M gnu/services/desktop.scm => gnu/services/desktop.scm +5 -0
@@ 1660,12 1660,17 @@ rules."
         '("thunar"
           "xfce4-power-manager"))))

(define (xfce-pam-services config)
  (list (unix-pam-service "xfce4-screensaver")))

(define xfce-desktop-service-type
  (service-type
   (name 'xfce-desktop)
   (extensions
    (list (service-extension polkit-service-type
                             xfce-polkit-settings)
          (service-extension pam-root-service-type
                             xfce-pam-services)
          (service-extension profile-service-type
                             (compose list xfce-package))))
   (default-value (xfce-desktop-configuration))