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)