me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* gnu/services/xorg.scm (gdm-shepherd-service): Use
‘make-forkexec-constructor’ directly.

Change-Id: I4ede4c99996cea4421316411cf8d887d70ce4253
This commit is contained in:
Ludovic Courtès 2024-04-28 23:41:50 +02:00
parent ae36d514aa
commit 72432080ad
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 38 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/services/xorg.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com> ;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2013-2017, 2019-2020, 2022 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013-2017, 2019-2020, 2022, 2024 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com> ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com> ;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com>
;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
@ -1146,10 +1146,8 @@ argument.")))
(documentation "Xorg display server (GDM)") (documentation "Xorg display server (GDM)")
(provision '(xorg-server)) (provision '(xorg-server))
(requirement '(dbus-system pam user-processes host-name udev elogind)) (requirement '(dbus-system pam user-processes host-name udev elogind))
(start #~(lambda () (start #~(make-forkexec-constructor
(fork+exec-command '(#$(file-append (gdm-configuration-gdm config) "/bin/gdm"))
(list #$(file-append (gdm-configuration-gdm config)
"/bin/gdm"))
#:environment-variables #:environment-variables
(list #$@(if (gdm-configuration-auto-suspend? config) (list #$@(if (gdm-configuration-auto-suspend? config)
#~() #~()
@ -1184,7 +1182,7 @@ argument.")))
#$gnome-shell "/" #$%gdk-pixbuf-loaders-cache-file) #$gnome-shell "/" #$%gdk-pixbuf-loaders-cache-file)
(string-append (string-append
"GDM_WAYLAND_SESSION=" "GDM_WAYLAND_SESSION="
#$(gdm-configuration-wayland-session config)))))) #$(gdm-configuration-wayland-session config)))))
(stop #~(make-kill-destructor)) (stop #~(make-kill-destructor))
(actions (list (shepherd-configuration-action config-file))) (actions (list (shepherd-configuration-action config-file)))
(respawn? #t)))) (respawn? #t))))