mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-25 18:41:54 +02:00
services: set-xorg-configuration: handle slim and sddm
* gnu/services/xorg.scm (handle-xorg-configuration): New syntax. (gdm-service-type, slim-service-type): Use handle-xorg-configuration. * gnu/services/sddm.scm (sddm-service-type): Likewise.
This commit is contained in:
+18
-16
@@ -2,6 +2,7 @@
|
||||
;;; Copyright © 2016 David Craven <david@craven.ch>
|
||||
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com>
|
||||
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -306,22 +307,23 @@ Relogin=" (if (sddm-configuration-relogin? config)
|
||||
(compose list sddm-configuration-sddm))
|
||||
|
||||
(define sddm-service-type
|
||||
(service-type (name 'sddm)
|
||||
(extensions
|
||||
(list (service-extension shepherd-root-service-type
|
||||
sddm-shepherd-service)
|
||||
(service-extension etc-service-type
|
||||
sddm-etc-service)
|
||||
(service-extension pam-root-service-type
|
||||
sddm-pam-services)
|
||||
(service-extension account-service-type
|
||||
(const %sddm-accounts))
|
||||
(service-extension profile-service-type
|
||||
sddm-profile-service)))
|
||||
(default-value (sddm-configuration))
|
||||
(description
|
||||
"Run SDDM, a display and log-in manager for X11 and
|
||||
Wayland.")))
|
||||
(handle-xorg-configuration sddm-configuration
|
||||
(service-type (name 'sddm)
|
||||
(extensions
|
||||
(list (service-extension shepherd-root-service-type
|
||||
sddm-shepherd-service)
|
||||
(service-extension etc-service-type
|
||||
sddm-etc-service)
|
||||
(service-extension pam-root-service-type
|
||||
sddm-pam-services)
|
||||
(service-extension account-service-type
|
||||
(const %sddm-accounts))
|
||||
(service-extension profile-service-type
|
||||
sddm-profile-service)))
|
||||
(default-value (sddm-configuration))
|
||||
(description
|
||||
"Run SDDM, a display and log-in manager for X11 and
|
||||
Wayland."))))
|
||||
|
||||
(define-deprecated (sddm-service #:optional (config (sddm-configuration)))
|
||||
sddm-service-type
|
||||
|
||||
Reference in New Issue
Block a user