[cello-cvs] CVS cello/cl-magick

[fgoenninger]

Update of /project/cello/cvsroot/cello/cl-magick
In directory clnet:/tmp/cvs-serv6824

Modified Files:
	cl-magick.lisp 
Log Message:
Added: fn set-wand-template-path, special var *wand-template*:
       Used to customize the path to wand template file.
Changed: fn magick-wand-template: use *wand-template* if not Nil.

--- /project/cello/cvsroot/cello/cl-magick/cl-magick.lisp	2006/08/23 20:17:30	1.7
+++ /project/cello/cvsroot/cello/cl-magick/cl-magick.lisp	2006/08/23 21:10:31	1.8
@@ -52,12 +52,21 @@
 
 (in-package :cl-magick)
 
+(defvar *wand-template*
+  nil
+  "Path to wand graphics/templates")
+
+(defun set-wand-template-path (wand-template-pathname)
+  (setf *wand-template*
+     wand-template-pathname))
+
 (defun magick-wand-template ()
   (path-to-wand
-   (make-pathname
-     :directory '(:absolute "0dev" "user"
-                   "graphics" "templates")
-     :name "metal" :type "gif")))
+   (or *wand-template*
+       (make-pathname
+         :directory '(:absolute "0dev" "user"
+                      "graphics" "templates")
+         :name "metal" :type "gif"))))
 
 (defparameter *imagick-dll-loaded* nil)
 (defparameter *wands-loaded* nil)