diff options
Diffstat (limited to 'oni/home/services/stumpwm.scm')
| -rw-r--r-- | oni/home/services/stumpwm.scm | 37 |
1 files changed, 35 insertions, 2 deletions
diff --git a/oni/home/services/stumpwm.scm b/oni/home/services/stumpwm.scm index 66db596..ad66106 100644 --- a/oni/home/services/stumpwm.scm +++ b/oni/home/services/stumpwm.scm @@ -11,7 +11,8 @@ #:use-module ((gnu packages wm) #:select (stumpwm stumpish - sbcl-stumpwm-swm-gaps)) + sbcl-stumpwm-swm-gaps + sbcl-stumpwm-stumptray)) #:use-module ((gnu home services) #:select (service-type service-extension @@ -31,7 +32,10 @@ home-stumpwm-extension home-stumpwm-gaps-service-type - home-stumpwm-gaps-configuration)) + home-stumpwm-gaps-configuration + + home-stumpwm-stumptray-service-type + home-stumpwm-stumptray-configuration)) (define-configuration/no-serialization home-stumpwm-extension (configurations @@ -118,3 +122,32 @@ (compose identity) (default-value (home-stumpwm-gaps-configuration)) (description "Install and configure stumpwm-gaps."))) + +(define-configuration/no-serialization home-stumpwm-stumptray-configuration + (package + (package sbcl-stumpwm-stumptray) + "Package to use for setting stumpwm-stumptray.") + (configurations + (text-config '()) + "Configuration for stumpwm gaps")) + +(define (add-stumpwm-stumptray config) + (home-stumpwm-extension + (configurations (home-stumpwm-stumptray-configuration-configurations config)))) + +(define (add-stumpwm-stumptray-packages config) + (list (home-stumpwm-stumptray-configuration-package config))) + +(define home-stumpwm-stumptray-service-type + (service-type + (name 'home-stumpwm-stumptray) + (extensions + (list (service-extension + home-stumpwm-service-type + add-stumpwm-stumptray) + (service-extension + home-profile-service-type + add-stumpwm-stumptray-packages))) + (compose identity) + (default-value (home-stumpwm-stumptray-configuration)) + (description "Install and configure stumpwm-stumptray."))) |