dotfiles-misc/gavinok.stump-conf
1
0
Fork 0
mirror of https://github.com/Gavinok/stump-conf.git synced 2026-09-10 07:26:30 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

small code optimizations

Browse source
This commit is contained in:
Gavin Jaeger-Freeborn 2022-08-21 16:40:17 -07:00
parent 8a7b9a1f94
commit 3d0020afa6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
config
View file

@ -214,7 +214,7 @@
"Select Window: "))))
(defun windows-in-group (group)
(group-windows (find group (screen-groups (current-screen))
(group-windows (find group (the list (screen-groups (current-screen)))
:key 'group-name :test 'equal)))
(defcommand pull-from-trash () ()
@ -246,7 +246,7 @@
(defun always-on-top-on (window) ()
"set the given WINDOW to always be on top of other windows"
(let ((w window)
(windows (group-on-top-windows (current-group))))
(windows (the list (group-on-top-windows (current-group)))))
(when w
(unless (find w windows)
(push window (group-on-top-windows (current-group)))))))