me
/
guix
Archived
1
0
Fork 0
Code

services: lightdm: Use ‘make-forkexec-constructor’. 

* gnu/services/lightdm.scm (lightdm-shepherd-service)[start]: Use
‘make-forkexec-constructor’ directly.

Change-Id: Iaaa8dcde123ea80ce63c09033b681e40ccc589a4
master
Ludovic Courtès 2024-04-28 23:37:24 +02:00
parent f7f31c8595
commit ae36d514aa
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
gnu/services/lightdm.scm
View File

@ -620,24 +620,23 @@ port=" (number->string vnc-server-port) "\n"
(provision '(lightdm display-manager xorg-server)) (provision '(lightdm display-manager xorg-server))
(respawn? #f) (respawn? #f)
(start (start
#~(lambda () ;; Note: sadly, environment variables defined for 'lightdm' are
;; Note: sadly, environment variables defined for 'lightdm' are ;; cleared and/or overridden by /etc/profile by its spawned greeters,
;; cleared and/or overridden by /etc/profile by its spawned greeters, ;; so an out-of-band means such as /etc is required.
;; so an out-of-band means such as /etc is required. #~(make-forkexec-constructor #$lightdm-command
(fork+exec-command #$lightdm-command ;; Lightdm needs itself in its PATH.
;; Lightdm needs itself in its PATH. #:environment-variables
#:environment-variables (list
(list ;; It knows to look for greeter
;; It knows to look for greeter configurations in ;; configurations in XDG_CONFIG_DIRS...
;; XDG_CONFIG_DIRS... (string-append "XDG_CONFIG_DIRS="
(string-append "XDG_CONFIG_DIRS=" #$greeters-config-dir)
#$greeters-config-dir) ;; ... and for greeter .desktop files as
;; ... and for greeter .desktop files as well as ;; well as lightdm accountsservice
;; lightdm accountsservice interface in ;; interface in XDG_DATA_DIRS.
;; XDG_DATA_DIRS. (string-append "XDG_DATA_DIRS="
(string-append "XDG_DATA_DIRS=" #$data-dirs)
#$data-dirs) (string-append "PATH=" #$lightdm-paths))))
(string-append "PATH=" #$lightdm-paths)))))
(stop #~(make-kill-destructor))))) (stop #~(make-kill-destructor)))))
(define lightdm-service-type (define lightdm-service-type