From fd3b524b820d04eeda3866bd59453f5444afd4ba Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Thu, 4 Oct 2012 22:21:55 +0200 Subject: [PATCH] contrib/wallpaper.lisp (wallpaper): Open a notify window to wait wallpaper creation. --- ChangeLog | 1 + contrib/wallpaper.lisp | 6 ++++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index b95f049..026e3a9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,7 @@ * contrib/wallpaper.lisp (generate-wallpaper): Force waiting the end of convert. + (wallpaper): Open a notify window to wait wallpaper creation. * src/clfswm.lisp (main-mode: configuer request): Call *root-size-change* hook on each root size change. This let CLFSWM diff --git a/contrib/wallpaper.lisp b/contrib/wallpaper.lisp index 547c3af..98ec29f 100644 --- a/contrib/wallpaper.lisp +++ b/contrib/wallpaper.lisp @@ -92,13 +92,15 @@ (count 0)) (dolist (s sizes) (dolist (v s) - (incf count v))) + (incf count (+ v count)))) (format nil "~A-~A.png" basename count))) (defun wallpaper (basename force-create &rest images) (let* ((filename (wallpaper-name basename))) (when (or force-create (not (probe-file filename))) - (apply #'create-wallpaper filename images)) + (open-notify-window '(" " " " " Please wait. Updating wallpaper... " " " " ")) + (apply #'create-wallpaper filename images) + (close-notify-window)) (use-wallpaper filename))) ;;; -- 2.11.4.GIT