diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-05-09 09:25:34 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-05-09 12:11:36 +0200 |
| commit | 6ad799d7c5c14b1bbf1e3db7198b312965d3b786 (patch) | |
| tree | c90f72329a00978599e7f4616bda83cd34d6dd07 | |
| parent | cae0725b809449dcdebc2d84cf997e051e689e06 (diff) | |
| download | 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".
| -rw-r--r-- | gnu/services/xorg.scm | 10 |
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 () |