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

[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  4cd4754df5cf3a076db30e788f89f9709cc32360 (commit)
      from  7e2726f3a0e34066352db72134c2a5d1150f47f4 (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 4cd4754df5cf3a076db30e788f89f9709cc32360
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Mon Apr 22 21:01:32 2013 +0200

    Use with-current-window instead of with-focus-window to take current window over brothers in second mode

diff --git a/src/clfswm-circulate-mode.lisp b/src/clfswm-circulate-mode.lisp
index 7c52dda..720d456 100644
--- a/src/clfswm-circulate-mode.lisp
+++ b/src/clfswm-circulate-mode.lisp
@@ -266,12 +266,11 @@
 
 
 (defmacro with-move-current-focused-window (() &body body)
-  (let ((window (gensym)))
-    `(with-focus-window (,window)
-       , at body
-       (move-child-to ,window (if (frame-p (current-child))
-                                  (current-child)
-                                  (find-parent-frame (current-child) (find-current-root)))))))
+  `(with-current-window
+     , at body
+     (move-child-to window (if (frame-p (current-child))
+                               (current-child)
+                               (find-parent-frame (current-child) (find-current-root))))))
 
 
 
diff --git a/src/clfswm-second-mode.lisp b/src/clfswm-second-mode.lisp
index 50029f2..b8d4ac4 100644
--- a/src/clfswm-second-mode.lisp
+++ b/src/clfswm-second-mode.lisp
@@ -42,7 +42,8 @@
 		      (truncate (/ (- *sm-width* (* (xlib:max-char-width *sm-font*) len)) 2))
 		      (truncate (/ (+ *sm-height* (- (xlib:font-ascent *sm-font*) (xlib:font-descent *sm-font*))) 2))
 		      text))
-  (copy-pixmap-buffer *sm-window* *sm-gc*))
+  (copy-pixmap-buffer *sm-window* *sm-gc*)
+  (no-focus))
 
 
 

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

Summary of changes:
 src/clfswm-circulate-mode.lisp |   11 +++++------
 src/clfswm-second-mode.lisp    |    3 ++-
 2 files changed, 7 insertions(+), 7 deletions(-)


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