From 78ce07dbd9b227bb6f1cea3146a9d467e2ef5f1d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Micha=EBl=20Cadilhac?= Date: Fri, 13 Dec 2013 22:16:42 +0100 Subject: [PATCH] Leave/enter frames like in spatial move --- src/clfswm-circulate-mode.lisp | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/clfswm-circulate-mode.lisp b/src/clfswm-circulate-mode.lisp index 8f1a1bd..957684a 100644 --- a/src/clfswm-circulate-mode.lisp +++ b/src/clfswm-circulate-mode.lisp @@ -312,7 +312,10 @@ (defun reorder-brother-simple (reorder-fun) - (unless (child-root-p (current-child)) + (let ((is-root-p (child-root-p (current-child)))) + (when is-root-p + (leave-frame) + (sleep *spatial-move-delay-before*)) (no-focus) (select-current-frame nil) (let ((parent-frame (find-parent-frame (current-child)))) @@ -320,7 +323,10 @@ (with-slots (child) parent-frame (setf child (funcall reorder-fun child) (current-child) (frame-selected-child parent-frame)))) - (show-all-children t)))) + (show-all-children t) + (when is-root-p + (sleep *spatial-move-delay-after*) + (enter-frame))))) (defun select-next-brother-simple () -- 2.11.4.GIT