diff options
author | 2023-06-20 22:51:40 -0700 | |
---|---|---|
committer | 2023-06-20 22:51:40 -0700 | |
commit | b775263a344a12c1dadc820cb991e3f50086b209 (patch) | |
tree | 83c93b194320b2c086f09e0ff71038e004cd5712 /oni/home/services/stumpwm.scm | |
parent | ac08c5edd8f685bf46efdaa5900201533c1ff94a (diff) | |
download | new-dotfiles-b775263a344a12c1dadc820cb991e3f50086b209.tar.gz new-dotfiles-b775263a344a12c1dadc820cb991e3f50086b209.zip |
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.
Diffstat (limited to 'oni/home/services/stumpwm.scm')
-rw-r--r-- | oni/home/services/stumpwm.scm | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/oni/home/services/stumpwm.scm b/oni/home/services/stumpwm.scm index ebda987..13e948e 100644 --- a/oni/home/services/stumpwm.scm +++ b/oni/home/services/stumpwm.scm @@ -2,9 +2,12 @@ #:use-module ((gnu services configuration) #:select (serialize-package define-configuration)) + #:use-module ((gnu packages lisp) + #:select (sbcl)) #:use-module ((gnu packages wm) #:select (stumpwm - stumpish)) + stumpish + sbcl-stumpwm-swm-gaps)) #:use-module ((gnu home services) #:select (service-type service-extension @@ -25,13 +28,19 @@ (package (package stumpwm) "Package to use for setting Stumpwm") + (gaps-package + (package sbcl-stumpwm-swm-gaps) + "Package to use for setting Stumpwm Gaps") (stumpish-package (package stumpish) "Package to use for setting Stumpish")) (define (add-stumpwm-packages config) - (list (home-stumpwm-configuration-package config) - (home-stumpwm-configuration-stumpish-package config))) + (list sbcl + (home-stumpwm-configuration-package config) + (list stumpwm "lib") + (home-stumpwm-configuration-stumpish-package config) + (home-stumpwm-configuration-gaps-package config))) (define (home-stumpwm-config-files config) `(("stumpwm/config" ,(local-file "stumpwm/config")))) |