From b775263a344a12c1dadc820cb991e3f50086b209 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 20 Jun 2023 22:51:40 -0700
Subject: 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.
---
 oni/home/services/stumpwm.scm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

(limited to 'oni/home/services/stumpwm.scm')

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"))))
-- 
cgit v1.2.3-54-g00ecf