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

Remove duplicate orphaned-frames definition

Browse source 
Remove the defun in tile-group.lisp as this function is first called in
head.lisp and thus it makes sense that it resides there.
This commit is contained in:
szos 2022-12-07 06:06:44 +01:00
parent 4edcba55b2
commit 39b882547d
2 changed files with 2 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
head.lisp
View file

@ -228,5 +228,6 @@
"Returns a list of frames on a screen not associated with any group.
These shouldn't exist."
(let ((adopted-frames (loop for group in (screen-groups screen)
append (group-frames group))))
unless (typep group 'float-group)
append (group-frames group))))
(set-difference (screen-frames screen) adopted-frames)))

8
tile-group.lisp
View file

@ -490,14 +490,6 @@ T (default) then also focus the frame."
(remove-duplicates (mapcar #'(lambda (window) (window-frame window))
(list-windows screen))))
(defun orphaned-frames (screen)
"Returns a list of frames on a screen not associated with any group.
These shouldn't exist."
(let ((adopted-frames (loop for group in (screen-groups screen)
unless (typep group 'float-group)
append (group-frames group))))
(set-difference (screen-frames screen) adopted-frames)))
(defmethod group-adopt-orphaned-windows ((group tile-group) &optional (screen (current-screen)))
"Picks an arbitray frame in the given group and moves
any windows in frames without a group thereinto"