ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add stumptray to stumpwm configuration

Browse source
This commit is contained in:
Tom Willemse 2023-07-27 23:17:45 -07:00
parent 1cb472dd97
commit 28ff76fc03
2 changed files with 44 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
oni/home/config/rincewind.scm
View file

@ -96,7 +96,9 @@
#:select (home-stumpwm-service-type #:select (home-stumpwm-service-type
home-stumpwm-configuration home-stumpwm-configuration
home-stumpwm-gaps-service-type home-stumpwm-gaps-service-type
home-stumpwm-gaps-configuration)) home-stumpwm-gaps-configuration
home-stumpwm-stumptray-service-type
home-stumpwm-stumptray-configuration))
#:use-module ((oni home services syncthing) #:use-module ((oni home services syncthing)
#:select (home-syncthing-service-type)) #:select (home-syncthing-service-type))
#:use-module ((oni home services utilities) #:use-module ((oni home services utilities)
@ -344,6 +346,12 @@
(home-stumpwm-gaps-configuration (home-stumpwm-gaps-configuration
(configurations (configurations
(list (local-file "../services/stumpwm/config-gaps"))))) (list (local-file "../services/stumpwm/config-gaps")))))
(service home-stumpwm-stumptray-service-type
(home-stumpwm-stumptray-configuration
(configurations
(list (mixed-text-file "config-stumptray"
"(require 'stumptray)\n"
"(stumptray::stumptray)\n")))))
(service home-inkplate-display-service-type) (service home-inkplate-display-service-type)
(service home-notmuch-service-type (service home-notmuch-service-type

37
oni/home/services/stumpwm.scm
View file

@ -11,7 +11,8 @@
#:use-module ((gnu packages wm) #:use-module ((gnu packages wm)
#:select (stumpwm #:select (stumpwm
stumpish stumpish
sbcl-stumpwm-swm-gaps)) sbcl-stumpwm-swm-gaps
sbcl-stumpwm-stumptray))
#:use-module ((gnu home services) #:use-module ((gnu home services)
#:select (service-type #:select (service-type
service-extension service-extension
@ -31,7 +32,10 @@
home-stumpwm-extension home-stumpwm-extension
home-stumpwm-gaps-service-type 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 (define-configuration/no-serialization home-stumpwm-extension
(configurations (configurations
@ -118,3 +122,32 @@
(compose identity) (compose identity)
(default-value (home-stumpwm-gaps-configuration)) (default-value (home-stumpwm-gaps-configuration))
(description "Install and configure stumpwm-gaps."))) (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.")))