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.master
Jakub Kądziołka
parent
9b9ab657cc
commit
50be0da7bf
|
|
@ -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,6 +307,7 @@ Relogin=" (if (sddm-configuration-relogin? config)
|
|||
(compose list sddm-configuration-sddm))
|
||||
|
||||
(define sddm-service-type
|
||||
(handle-xorg-configuration sddm-configuration
|
||||
(service-type (name 'sddm)
|
||||
(extensions
|
||||
(list (service-extension shepherd-root-service-type
|
||||
|
|
@ -321,7 +323,7 @@ Relogin=" (if (sddm-configuration-relogin? config)
|
|||
(default-value (sddm-configuration))
|
||||
(description
|
||||
"Run SDDM, a display and log-in manager for X11 and
|
||||
Wayland.")))
|
||||
Wayland."))))
|
||||
|
||||
(define-deprecated (sddm-service #:optional (config (sddm-configuration)))
|
||||
sddm-service-type
|
||||
|
|
|
|||
|
|
@ -6,6 +6,7 @@
|
|||
;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||
;;; Copyright © 2019 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
|
||||
;;; Copyright © 2020 shtwzrd <shtwzrd@protonmail.com>
|
||||
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
|
@ -103,6 +104,8 @@
|
|||
gdm-configuration
|
||||
gdm-service-type
|
||||
gdm-service
|
||||
|
||||
handle-xorg-configuration
|
||||
set-xorg-configuration))
|
||||
|
||||
;;; Commentary:
|
||||
|
|
@ -459,6 +462,25 @@ desktop session from the system or user profile will be used."
|
|||
|
||||
(program-file "xinitrc" builder))
|
||||
|
||||
(define-syntax handle-xorg-configuration
|
||||
(syntax-rules ()
|
||||
"Generate the `compose' and `extend' entries of a login manager
|
||||
`service-type' to handle specifying the `xorg-configuration' through
|
||||
a `service-extension', as used by `set-xorg-configuration'."
|
||||
((_ configuration-record service-type-definition)
|
||||
(service-type
|
||||
(inherit service-type-definition)
|
||||
(compose (lambda (extensions)
|
||||
(match extensions
|
||||
(() #f)
|
||||
((config . _) config))))
|
||||
(extend (lambda (config xorg-configuration)
|
||||
(if xorg-configuration
|
||||
(configuration-record
|
||||
(inherit config)
|
||||
(xorg-configuration xorg-configuration))
|
||||
config)))))))
|
||||
|
||||
|
||||
;;;
|
||||
;;; SLiM log-in manager.
|
||||
|
|
@ -584,6 +606,7 @@ reboot_cmd " shepherd "/sbin/reboot\n"
|
|||
(respawn? #t)))))
|
||||
|
||||
(define slim-service-type
|
||||
(handle-xorg-configuration slim-configuration
|
||||
(service-type (name 'slim)
|
||||
(extensions
|
||||
(list (service-extension shepherd-root-service-type
|
||||
|
|
@ -595,7 +618,8 @@ reboot_cmd " shepherd "/sbin/reboot\n"
|
|||
;; avoid bad surprises.
|
||||
(service-extension profile-service-type
|
||||
(const (list xterm)))))
|
||||
(default-value (slim-configuration))))
|
||||
|
||||
(default-value (slim-configuration)))))
|
||||
|
||||
(define-deprecated (slim-service #:key (slim slim)
|
||||
(allow-empty-passwords? #t) auto-login?
|
||||
|
|
@ -946,6 +970,7 @@ the GNOME desktop environment.")
|
|||
(respawn? #t))))
|
||||
|
||||
(define gdm-service-type
|
||||
(handle-xorg-configuration gdm-configuration
|
||||
(service-type (name 'gdm)
|
||||
(extensions
|
||||
(list (service-extension shepherd-root-service-type
|
||||
|
|
@ -965,25 +990,10 @@ the GNOME desktop environment.")
|
|||
(compose
|
||||
xorg-configuration-keyboard-layout
|
||||
gdm-configuration-xorg))))
|
||||
|
||||
;; For convenience, this service can be extended with an
|
||||
;; <xorg-configuration> record. Take the first one that
|
||||
;; comes.
|
||||
(compose (lambda (extensions)
|
||||
(match extensions
|
||||
(() #f)
|
||||
((config . _) config))))
|
||||
(extend (lambda (config xorg-configuration)
|
||||
(if xorg-configuration
|
||||
(gdm-configuration
|
||||
(inherit config)
|
||||
(xorg-configuration xorg-configuration))
|
||||
config)))
|
||||
|
||||
(default-value (gdm-configuration))
|
||||
(description
|
||||
"Run the GNOME Desktop Manager (GDM), a program that allows
|
||||
you to log in in a graphical session, whether or not you use GNOME.")))
|
||||
you to log in in a graphical session, whether or not you use GNOME."))))
|
||||
|
||||
(define-deprecated (gdm-service #:key (gdm gdm)
|
||||
(allow-empty-passwords? #t)
|
||||
|
|
|
|||
Reference in New Issue