ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
dotfiles/oni/home/services/stumpwm.scm

68 lines
2.3 KiB
Scheme
Raw Normal View History

Add stumpwm configuration
2023-03-17 00:35:06 +01:00
(define-module (oni home services stumpwm)
#:use-module ((gnu services configuration)
#:select (serialize-package
define-configuration))
Add gaps to my stumpwm configuration I had to copy in and redefine the ‘stumpwm::maximize-window’ function from the ‘swm-gaps’ package because for some reason ‘(frame-width ...)’ returns a ratio on my machine (is it because high-dpi, or ultra-wide? I don't know) and not an integer, which screws up the ‘(setf (xlib:drawable-width ...) ...)’ call.
2023-06-21 07:51:40 +02:00
#:use-module ((gnu packages lisp)
#:select (sbcl))
Add stumpwm configuration
2023-03-17 00:35:06 +01:00
#:use-module ((gnu packages wm)
Automatically reload stumpwm if any changes are made to its config
2023-03-17 08:33:19 +01:00
#:select (stumpwm
Add gaps to my stumpwm configuration I had to copy in and redefine the ‘stumpwm::maximize-window’ function from the ‘swm-gaps’ package because for some reason ‘(frame-width ...)’ returns a ratio on my machine (is it because high-dpi, or ultra-wide? I don't know) and not an integer, which screws up the ‘(setf (xlib:drawable-width ...) ...)’ call.
2023-06-21 07:51:40 +02:00
stumpish
sbcl-stumpwm-swm-gaps))
Add stumpwm configuration
2023-03-17 00:35:06 +01:00
#:use-module ((gnu home services)
#:select (service-type
service-extension
home-profile-service-type
Automatically reload stumpwm if any changes are made to its config
2023-03-17 08:33:19 +01:00
home-xdg-configuration-files-service-type
home-run-on-change-service-type))
Add stumpwm configuration
2023-03-17 00:35:06 +01:00
#:use-module ((guix gexp)
Automatically reload stumpwm if any changes are made to its config
2023-03-17 08:33:19 +01:00
#:select (local-file
gexp
file-append))
Add stumpwm configuration
2023-03-17 00:35:06 +01:00
#:use-module ((guix packages)
#:select (package?))
#:export (home-stumpwm-service-type
home-stumpwm-configuration))
(define-configuration home-stumpwm-configuration
(package
(package stumpwm)
Automatically reload stumpwm if any changes are made to its config
2023-03-17 08:33:19 +01:00
"Package to use for setting Stumpwm")
Add gaps to my stumpwm configuration I had to copy in and redefine the ‘stumpwm::maximize-window’ function from the ‘swm-gaps’ package because for some reason ‘(frame-width ...)’ returns a ratio on my machine (is it because high-dpi, or ultra-wide? I don't know) and not an integer, which screws up the ‘(setf (xlib:drawable-width ...) ...)’ call.
2023-06-21 07:51:40 +02:00
(gaps-package
(package sbcl-stumpwm-swm-gaps)
"Package to use for setting Stumpwm Gaps")
Automatically reload stumpwm if any changes are made to its config
2023-03-17 08:33:19 +01:00
(stumpish-package
(package stumpish)
"Package to use for setting Stumpish"))
Add stumpwm configuration
2023-03-17 00:35:06 +01:00
(define (add-stumpwm-packages config)
Add gaps to my stumpwm configuration I had to copy in and redefine the ‘stumpwm::maximize-window’ function from the ‘swm-gaps’ package because for some reason ‘(frame-width ...)’ returns a ratio on my machine (is it because high-dpi, or ultra-wide? I don't know) and not an integer, which screws up the ‘(setf (xlib:drawable-width ...) ...)’ call.
2023-06-21 07:51:40 +02:00
(list sbcl
(home-stumpwm-configuration-package config)
(list stumpwm "lib")
(home-stumpwm-configuration-stumpish-package config)
(home-stumpwm-configuration-gaps-package config)))
Add stumpwm configuration
2023-03-17 00:35:06 +01:00
(define (home-stumpwm-config-files config)
`(("stumpwm/config" ,(local-file "stumpwm/config"))))
Automatically reload stumpwm if any changes are made to its config
2023-03-17 08:33:19 +01:00
(define (reload-stumpwm-config-gexp _)
`(("files/.config/stumpwm/config"
,#~(system* #$(file-append stumpish "/bin/stumpish") "reload"))))
Add stumpwm configuration
2023-03-17 00:35:06 +01:00
(define home-stumpwm-service-type
(service-type
(name 'home-stumpwm)
(extensions
(list (service-extension
home-profile-service-type
add-stumpwm-packages)
(service-extension
home-xdg-configuration-files-service-type
Automatically reload stumpwm if any changes are made to its config
2023-03-17 08:33:19 +01:00
home-stumpwm-config-files)
(service-extension
home-run-on-change-service-type
reload-stumpwm-config-gexp)))
Add stumpwm configuration
2023-03-17 00:35:06 +01:00
(compose identity)
(default-value (home-stumpwm-configuration))
(description "Install and configure stumpwm.")))
Reference in a new issue Copy permalink