From 39b882547d929a121133fd4c9572601b6a7f4000 Mon Sep 17 00:00:00 2001 From: szos Date: Wed, 7 Dec 2022 06:06:44 +0100 Subject: [PATCH] Remove duplicate orphaned-frames definition 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. --- head.lisp | 3 ++- tile-group.lisp | 8 -------- 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/head.lisp b/head.lisp index 15f3698..be5529e 100644 --- a/head.lisp +++ b/head.lisp @@ -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))) diff --git a/tile-group.lisp b/tile-group.lisp index 77f6883..5ac0ae2 100644 --- a/tile-group.lisp +++ b/tile-group.lisp @@ -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"