diff mbox series

[bug#68289,v2,3/3] home: services: Add home-startx-command-service-type.

Message ID f725e5828f9c61e98601e68e87950111b6b134f1.1715433985.git.~@wolfsden.cz
State New
Headers
Series [bug#68289,v2,1/3] services: xorg: Add xorg-start-command-xinit procedure. |

Commit Message

Tomas Volf May 11, 2024, 1:26 p.m. UTC 
* gnu/home/services/desktop.scm (home-startx-command-service-type): New
variable.
(define-module): Export it.
(startx-command-service-type): New service-type mapping.

Change-Id: Id38b5dc7b9235e04e3a9a1b70a35b02e8fae95f0
---
v2: New patch in v2.

gnu/home/services/desktop.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

--
2.41.0
diff mbox series

Patch

diff --git a/gnu/home/services/desktop.scm b/gnu/home/services/desktop.scm
index 91465bf168..679ba31c0f 100644
--- a/gnu/home/services/desktop.scm
+++ b/gnu/home/services/desktop.scm
@@ -23,6 +23,7 @@  (define-module (gnu home services desktop)
   #:use-module (gnu home services)
   #:use-module (gnu home services shepherd)
   #:use-module (gnu services configuration)
+  #:use-module (gnu services xorg)
   #:autoload   (gnu packages glib)    (dbus)
   #:autoload   (gnu packages xdisorg) (redshift unclutter)
   #:autoload   (gnu packages xorg) (setxkbmap xmodmap)
@@ -43,7 +44,9 @@  (define-module (gnu home services desktop)
             home-unclutter-service-type

             home-xmodmap-configuration
-            home-xmodmap-service-type))
+            home-xmodmap-service-type
+
+            home-startx-command-service-type))

 
 ;;;
@@ -429,3 +432,12 @@  (define home-xmodmap-service-type
    (default-value (home-xmodmap-configuration))
    (description "Run the @code{xmodmap} utility to modify keymaps and pointer
 buttons under the Xorg display server via user-defined expressions.")))
+
+
+(define home-startx-command-service-type
+  (service-type
+   (inherit (system->home-service-type startx-command-service-type))
+   (default-value (for-home (xorg-configuration)))))
+
+(define-service-type-mapping
+  startx-command-service-type => home-startx-command-service-type)