me/guix
Archived
1
0
Fork 0
Code Activity

services: xorg: Remove /var/run/slim.lock when starting.

Browse source 
Reported by Mark H. Weaver.

* gnu/services/xorg.scm (slim-service)[start]: Remove /var/run/slim.lock
  before starting 'slim'.
This commit is contained in:
Ludovic Courtès 2014-07-24 19:38:50 +02:00
parent da9c810280
commit 47b73c34f0
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/services/xorg.scm
View file

@ -146,10 +146,15 @@ reboot_cmd " dmd "/sbin/reboot
(provision '(xorg-server)) (provision '(xorg-server))
(requirement '(user-processes host-name udev)) (requirement '(user-processes host-name udev))
(start (start
#~(make-forkexec-constructor #~(lambda ()
;; A stale lock file can prevent SLiM from starting, so remove it
;; to be on the safe side.
(false-if-exception (delete-file "/var/run/slim.lock"))
(fork+exec-command
(list (string-append #$slim "/bin/slim") "-nodaemon") (list (string-append #$slim "/bin/slim") "-nodaemon")
#:environment-variables #:environment-variables
(list (string-append "SLIM_CFGFILE=" #$slim.cfg)))) (list (string-append "SLIM_CFGFILE=" #$slim.cfg)))))
(stop #~(make-kill-destructor)) (stop #~(make-kill-destructor))
(respawn? #t) (respawn? #t)
(pam-services (pam-services