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
home-stumpwm-configuration
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)
#:select (home-syncthing-service-type))
#:use-module ((oni home services utilities)
@ -344,6 +346,12 @@
(home-stumpwm-gaps-configuration
(configurations
(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-notmuch-service-type

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

@ -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.")))