services: slim: Provide the 'xorg-server' Shepherd service.
authorLudovic Courtès <ludo@gnu.org>
Thu, 9 May 2019 07:25:34 +0000 (09:25 +0200)
committerLudovic Courtès <ludo@gnu.org>
Thu, 9 May 2019 10:11:36 +0000 (12:11 +0200)
This is a followup to 61569171d03146f41ba1b9aedf29fd8fa78d6102.

* gnu/services/xorg.scm (slim-shepherd-service): Add 'xorg-server' to
'provision' when VT is "vt7".

gnu/services/xorg.scm

index 65e9d48..2995575 100644 (file)
@@ -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 ()