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

Same reasoning as the previous commit

Browse source
This commit is contained in:
luminous99 2026-02-03 22:18:39 +02:00
parent 08814ab015
commit 47702242cc
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
group.lisp
View file

@ -234,14 +234,13 @@ at 0. Return a netwm compliant group id."
(list (netwm-group-id g))
:cardinal 32)))
(defcommand toggle-always-show () ()
"Toggle whether the current window is shown in all groups."
(let ((w (current-window))
(screen (current-screen)))
(when w
(if (find w *always-show-windows*)
(disable-always-show-window w screen)
(always-show-window w screen)))))
(defcommand toggle-always-show (&optional (window (current-window))) ()
"Toggle whether a window (by default the current window) is shown in all groups."
(let ((screen (window-screen window)))
(when window
(if (find window *always-show-windows*)
(disable-always-show-window window screen)
(always-show-window window screen)))))
(defun move-window-to-group (window to-group)
(if (equalp to-group (window-group window))