From bbada271d996eba4616dba7ddb47d4f05be7f275 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Sun, 7 Oct 2012 23:07:15 +0200 Subject: [PATCH] contrib/wallpaper.lisp (wallpaper): Handle no xinerama support case. --- ChangeLog | 5 ++++- contrib/wallpaper.lisp | 7 +++++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 927932a..b72f7be 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,10 @@ 2012-10-07 Philippe Brochard + * contrib/wallpaper.lisp (wallpaper): Handle no xinerama support + case. + * src/clfswm-internal.lisp (place-frames-from-xinerama-infos): - handle better no xinerama support case. + Handle better no xinerama support case. 2012-10-04 Philippe Brochard diff --git a/contrib/wallpaper.lisp b/contrib/wallpaper.lisp index 98ec29f..cccb982 100644 --- a/contrib/wallpaper.lisp +++ b/contrib/wallpaper.lisp @@ -75,7 +75,9 @@ (defun create-wallpaper (filename &rest images) (format t "Creating wallpaper ~A from ~{~A ~}~%" filename images) (generate-wallpaper filename (x-drawable-width *root*) (x-drawable-height *root*) - (get-connected-heads-size) images) + (or (get-connected-heads-size) + `((0 0 ,(x-drawable-width *root*) ,(x-drawable-height *root*)))) + images) (format t "Done.~%")) @@ -88,7 +90,8 @@ (defun wallpaper-name (basename) - (let ((sizes (get-connected-heads-size)) + (let ((sizes (or (get-connected-heads-size) + `((0 0 ,(x-drawable-width *root*) ,(x-drawable-height *root*))))) (count 0)) (dolist (s sizes) (dolist (v s) -- 2.11.4.GIT