From 5b364885aa6b15634919297e1de1ba975f52be76 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Thu, 4 Oct 2012 22:00:35 +0200 Subject: [PATCH] contrib/wallpaper.lisp (generate-wallpaper): Force waiting the end of convert. --- ChangeLog | 3 +++ contrib/wallpaper.lisp | 5 ++++- src/xlib-util.lisp | 1 + 3 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 1fb49b2..b95f049 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2012-10-04 Philippe Brochard + * 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)) -- 2.11.4.GIT