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

This is a followup to 61569171d0.

* gnu/services/xorg.scm (slim-shepherd-service): Add 'xorg-server' to
'provision' when VT is "vt7".
This commit is contained in:
Ludovic Courtès 2019-05-09 09:25:34 +02:00
parent cae0725b80
commit 6ad799d7c5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -549,8 +549,14 @@ (define theme
(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 ()