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

Rewrite resize-direction

Browse source
This commit is contained in:
Lars Rustand 2023-11-10 19:38:34 +01:00
parent baf5df7467
commit 1e49e2feb2
No known key found for this signature in database
GPG key ID: 022B5FFE7AEEF619
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
iresize.lisp
View file

@ -58,14 +58,11 @@
(defcommand resize-direction (d)
((:direction "Direction: "))
"Resize frame to direction @var{d}"
(let* ((formats '((:up . "0 -~D")
(:down . "0 ~D")
(:left . "-~D 0")
(:right . "~D 0")))
(deltas (format nil (cdr (assoc (princ d) formats))
*resize-increment*))
(to-be-run (concatenate 'string "resize " deltas)))
(run-commands to-be-run)))
(case (princ d)
((:up) (resize 0 (- *resize-increment*)))
((:down) (resize 0 *resize-increment*))
((:left) (resize (- *resize-increment*) 0))
((:right) (resize *resize-increment* 0))))
(defun resize-unhide ()
(clear-frame-outlines (current-group))