aboutsummaryrefslogtreecommitdiff
path: root/gnu/services/xorg.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-05-09 09:25:34 +0200
committerLudovic Courtès <ludo@gnu.org>2019-05-09 12:11:36 +0200
commit6ad799d7c5c14b1bbf1e3db7198b312965d3b786 (patch)
treec90f72329a00978599e7f4616bda83cd34d6dd07 /gnu/services/xorg.scm
parentcae0725b809449dcdebc2d84cf997e051e689e06 (diff)
downloadguix-6ad799d7c5c14b1bbf1e3db7198b312965d3b786.tar
guix-6ad799d7c5c14b1bbf1e3db7198b312965d3b786.tar.gz
services: slim: Provide the 'xorg-server' Shepherd service.
This is a followup to 61569171d03146f41ba1b9aedf29fd8fa78d6102. * gnu/services/xorg.scm (slim-shepherd-service): Add 'xorg-server' to 'provision' when VT is "vt7".
Diffstat (limited to 'gnu/services/xorg.scm')
-rw-r--r--gnu/services/xorg.scm10
1 files changed, 8 insertions, 2 deletions
diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm
index 65e9d48915..29955754fa 100644
--- a/gnu/services/xorg.scm
+++ b/gnu/services/xorg.scm
@@ -549,8 +549,14 @@ reboot_cmd " shepherd "/sbin/reboot\n"
(list (shepherd-service
(documentation "Xorg display server")
- (provision (list (symbol-append 'xorg-server-
- (string->symbol vt))))
+ (provision (append
+ ;; For compatibility, also provide 'xorg-server'.
+ (if (string=? vt "vt7")
+ '(xorg-server)
+ '())
+
+ (list (symbol-append 'xorg-server-
+ (string->symbol vt)))))
(requirement '(user-processes host-name udev))
(start
#~(lambda ()