TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: Add x11-socket-directory-service.

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

22
gnu/services/desktop.scm
View file

@ -94,6 +94,8 @@ (define-module (gnu services desktop)
xfce-desktop-service
xfce-desktop-service-type
x11-socket-directory-service
%desktop-services))
;;; Commentary:
@ -880,6 +882,24 @@ (define* (xfce-desktop-service #:key (config (xfce-desktop-configuration)))
with the administrator's password."
(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.
@ -912,6 +932,8 @@ (define %desktop-services
(ntp-service)
x11-socket-directory-service
%base-services))
;;; desktop.scm ends here