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 winner-mode dumper

Browse source
This commit is contained in:
Junker 2023-05-30 00:49:19 +07:00
parent 7d1e57ca1e
commit 4023d7657a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
util/winner-mode/dumper.lisp
View file

@ -12,7 +12,7 @@
(declare (ignore args)) (declare (ignore args))
(let* ((group-number (current-group-number))) (let* ((group-number (current-group-number)))
(check-ids group-number *current-ids* *max-ids*) (check-ids group-number *current-ids* *max-ids*)
(stumpwm::dump-to-file (stumpwm:dump-group (stumpwm:current-group)) (stumpwm::dump-to-file (stumpwm::dump-group (stumpwm:current-group))
(dump-name group-number (incf (gethash group-number *current-ids*)))) (dump-name group-number (incf (gethash group-number *current-ids*))))
(when (> (gethash group-number *current-ids*) (when (> (gethash group-number *current-ids*)
(gethash group-number *max-ids*)) (gethash group-number *max-ids*))