03/07: services: slim: Provide the 'xorg-server' Shepherd service.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 6ad799d7c5c14b1bbf1e3db7198b312965d3b786
Author: Ludovic Courtès <address@hidden>
Date:   Thu May 9 09:25:34 2019 +0200

    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".
---
 gnu/services/xorg.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm
index 65e9d48..2995575 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 ()