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

fix stack exhaustion error

Browse source
This commit is contained in:
tilacog 2021-01-28 11:11:06 -03:00
parent a9a26a327d
commit f04a78c879
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
util/golden-ratio/swm-golden-ratio.lisp
View file

@ -11,18 +11,12 @@
(defun resize-px (target current-px)
(- target current-px))
(defun balance-current-group ()
(stumpwm::balance-frames-internal (stumpwm:current-group)
(list (stumpwm::tile-group-frame-head
(stumpwm:current-group)
(stumpwm:current-head)))))
(defun resize-to-golden-ratio (to-frame from-frame)
(when (and *golden-ratio-on* (not (stumpwm::single-frame-p)))
(let* ((target-x (target-px (stumpwm::head-width (stumpwm:current-head))))
(target-y (target-px (stumpwm::head-height (stumpwm:current-head)))))
(setq *golden-ratio-on* nil)
(balance-current-group)
(stumpwm:balance-frames)
(stumpwm:resize (resize-px target-x
(stumpwm::frame-width to-frame))
(resize-px target-y