gnu: Add x11-socket-directory-service.

* gnu/services/desktop.scm (x11-socket-directory-service): New
variable.
(%desktop-services): Add it.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Thorsten Wilms 2018-03-31 14:34:50 +02:00 committed by Ludovic Courtès
parent 02e7e3f973
commit cd73071984
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 22 additions and 0 deletions

View File

@ -94,6 +94,8 @@
xfce-desktop-service xfce-desktop-service
xfce-desktop-service-type xfce-desktop-service-type
x11-socket-directory-service
%desktop-services)) %desktop-services))
;;; Commentary: ;;; Commentary:
@ -880,6 +882,24 @@ system as root from within a user session, after the user has authenticated
with the administrator's password." with the administrator's password."
(service xfce-desktop-service-type config)) (service xfce-desktop-service-type config))
;;;
;;; X11 socket directory service
;;;
(define x11-socket-directory-service
;; Return a service that creates /tmp/.X11-unix. When using X11, libxcb
;; takes care of creating that directory. However, when using XWayland, we
;; need to create beforehand. Thus, create it unconditionally here.
(simple-service 'x11-socket-directory
activation-service-type
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(let ((directory "/tmp/.X11-unix"))
(mkdir-p directory)
(chmod directory #o777))))))
;;; ;;;
;;; The default set of desktop services. ;;; The default set of desktop services.
@ -912,6 +932,8 @@ with the administrator's password."
(ntp-service) (ntp-service)
x11-socket-directory-service
%base-services)) %base-services))
;;; desktop.scm ends here ;;; desktop.scm ends here