x11-wm/stumpwm.stumpwm-contrib
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm-contrib.git synced 2026-09-10 07:26:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge pull request #320 from lepisma/fix-swm-gaps-update

Browse source 
Update swm-gaps to fix crash
This commit is contained in:
David 2026-05-29 21:49:12 -04:00 committed by GitHub
parent 78b574de48 c59517e122
commit 1fc3f9cc1b
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
util/swm-gaps/README.org
View file

@ -10,7 +10,7 @@ Credit goes to the original author.
#+BEGIN_QUOTE
This modifies StumpWM's internal functions ~maximize-window~ and ~neighbour~, so
might not work as expected if those definitions change in the core. Currently
works with ~v19.11~.
works with ~v24.11~.
#+END_QUOTE
#+BEGIN_SRC common-lisp

5
util/swm-gaps/swm-gaps.lisp
View file

@ -61,7 +61,7 @@ HEIGHT are subtracted."
;; otherwise stumpwm will crash. Also, only modify window dimensions
;; if needed (i.e. window at least fills frame minus gap).
(when (and (< ow width)
(>= width (- (frame-width frame) ow)))
(>= width (- (stumpwm::frame-display-width (window-group win) frame) ow)))
(setf width (- width ow)))
(when (and (< oh height)
(>= height (- (stumpwm::frame-display-height (window-group win) frame) oh)))
@ -87,7 +87,7 @@ HEIGHT are subtracted."
(setf (xlib:drawable-width (window-parent win)) (window-width win)
(xlib:drawable-height (window-parent win)) (window-height win))
(let ((frame (stumpwm::window-frame win)))
(setf (xlib:drawable-width (window-parent win)) (- (frame-width frame)
(setf (xlib:drawable-width (window-parent win)) (- (stumpwm::frame-display-width (window-group win) frame)
(* 2 (xlib:drawable-border-width (window-parent win)))
ow)
(xlib:drawable-height (window-parent win)) (- (stumpwm::frame-display-height (window-group win) frame)
@ -100,6 +100,7 @@ HEIGHT are subtracted."
wy
(- (xlib:drawable-height (window-parent win)) height wy))
:cardinal 32))
(stumpwm::update-decoration win)
(update-configuration win))))
(defun reset-all-windows ()