[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-127-g5b36488

[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  5b364885aa6b15634919297e1de1ba975f52be76 (commit)
      from  b3f0789a661dada2f246e676159ea1183ccb9600 (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 5b364885aa6b15634919297e1de1ba975f52be76
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Thu Oct 4 22:00:35 2012 +0200

    contrib/wallpaper.lisp (generate-wallpaper): Force waiting the end of convert.

diff --git a/ChangeLog b/ChangeLog
index 1fb49b2..b95f049 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2012-10-04  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* contrib/wallpaper.lisp (generate-wallpaper): Force waiting the
+	end of convert.
+
 	* src/clfswm.lisp (main-mode: configuer request): Call
 	*root-size-change* hook on each root size change. This let CLFSWM
 	refresh background wallpaper on root size changes.
diff --git a/contrib/wallpaper.lisp b/contrib/wallpaper.lisp
index 42d5703..547c3af 100644
--- a/contrib/wallpaper.lisp
+++ b/contrib/wallpaper.lisp
@@ -67,7 +67,10 @@
                        (setf ind (if (< ind len) (1+ ind) 0))))
                    (format str "~A" filename))))
     (format t "~A~%" command)
-    (do-shell command nil t)))
+    (let ((output (do-shell command nil t)))
+      (loop for line = (read-line output nil nil)
+         while line
+         do (format t "~A~%" line)))))
 
 (defun create-wallpaper (filename &rest images)
   (format t "Creating wallpaper ~A from ~{~A ~}~%" filename images)
diff --git a/src/xlib-util.lisp b/src/xlib-util.lisp
index da6e823..e72438d 100644
--- a/src/xlib-util.lisp
+++ b/src/xlib-util.lisp
@@ -291,6 +291,7 @@ they should be windows. So use this function to make a window out of them."
               #+:event-debug (pushnew (list *current-event-mode* event-key) *unhandled-events* :test #'equal))
           (xlib:display-finish-output *display*))
       ((or xlib:window-error xlib:drawable-error) (c)
+        #-xlib-debug (declare (ignore c))
         #+xlib-debug (format t "Ignore Xlib synchronous error: ~a~%" c)))
     t))
 

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

Summary of changes:
 ChangeLog              |    3 +++
 contrib/wallpaper.lisp |    5 ++++-
 src/xlib-util.lisp     |    1 +
 3 files changed, 8 insertions(+), 1 deletions(-)


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