diff options
| author | Tomas Volf <~@wolfsden.cz> | 2024-05-11 15:26:25 +0200 |
|---|---|---|
| committer | Guix Patches Tester <> | 2024-05-11 15:55:36 +0200 |
| commit | 319dbb46084256c470d8de7b8fcc3462b55f1e03 (patch) | |
| tree | a6e9b425bfcb316a7abc9d5bca976153857c8478 | |
| parent | 42e612cdcc1ae584ac242eebbd1faab6a864a0a4 (diff) | |
| download | guix-patches-issue-68289.tar guix-patches-issue-68289.tar.gz | |
home: services: Add home-startx-command-service-type.issue-68289
* 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
| -rw-r--r-- | gnu/home/services/desktop.scm | 14 |
1 files changed, 13 insertions, 1 deletions
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 @@ #: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 @@ home-unclutter-service-type home-xmodmap-configuration - home-xmodmap-service-type)) + home-xmodmap-service-type + + home-startx-command-service-type)) ;;; @@ -429,3 +432,12 @@ defaults.")))) (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) |