[clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-53-g78ce07d

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  78ce07dbd9b227bb6f1cea3146a9d467e2ef5f1d (commit)
      from  0e82d8207d00a3d4cfc55a439d9cd01768ad6a90 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 78ce07dbd9b227bb6f1cea3146a9d467e2ef5f1d
Author: Michaël Cadilhac <michael at cadilhac.name>
Date:   Fri Dec 13 22:16:42 2013 +0100

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

-----------------------------------------------------------------------

Summary of changes:
 src/clfswm-circulate-mode.lisp |   10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager