From: Michaël Cadilhac <michael@cadilhac.name>
Date: Fri, 13 Dec 2013 21:16:42 +0000 (+0100)
Subject: Leave/enter frames like in spatial move
X-Git-Url: https://repo.or.cz/w/clfswm.git/commitdiff_plain/78ce07dbd9b227bb6f1cea3146a9d467e2ef5f1d

Leave/enter frames like in spatial move
---

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 ()