[bug#31005] [PATCH] gnu: Add x11-socket-dir-service

[Thorsten Wilms]

* gnu/services/desktop.scm (gnu): Export x11-socket-dir-service, define it,
  add it to %desktop-services list.
---
 gnu/services/desktop.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 897252917..ef3a5457e 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -94,6 +94,8 @@
             xfce-desktop-service
             xfce-desktop-service-type

+            x11-socket-dir-service
+
             %desktop-services))

 ;;; Commentary:
@@ -882,6 +884,21 @@ with the administrator's password."

 
 ;;;
+;;; X11 socket directory service
+;;;
+
+(define x11-socket-dir-service
+  ;; Return a service that creates /tmp/.X11-unix. X11 servers, including
+  ;; XWayland, create their socket file there.
+  (simple-service 'x11-socket-dir
+                  activation-service-type
+                  #~(begin (use-modules (guix build utils))
+                           (let ((p "/tmp/.X11-unix"))
+                             (mkdir-p p)
+                             (chmod p #o777)))))
+
+
+;;;
 ;;; The default set of desktop services.
 ;;;

@@ -912,6 +929,8 @@ with the administrator's password."

          (ntp-service)

+         x11-socket-dir-service
+
          %base-services))

 ;;; desktop.scm ends here
--
2.11.0