Author: hhubner Date: 2006-03-07 14:44:34 -0500 (Tue, 07 Mar 2006) New Revision: 1904
Added: trunk/projects/quickhoney/src/mods.lisp Log: Several manual modifications as ordererd by quickhoney.
Added: trunk/projects/quickhoney/src/mods.lisp =================================================================== --- trunk/projects/quickhoney/src/mods.lisp 2006-03-07 19:43:24 UTC (rev 1903) +++ trunk/projects/quickhoney/src/mods.lisp 2006-03-07 19:44:34 UTC (rev 1904) @@ -0,0 +1,17 @@ +(in-package :quickhoney) + +(setq *images* (get-keywords-intersection-store-images '(:city))) + +(with-transaction (:korrektur) + (dolist (image *images*) + (setf (store-image-keywords image) (remove :city (store-image-keywords image))) + (pushnew :landscape (store-image-keywords image)))) + +(import-image "/home/hans/type-t-shirt.png" :keywords '(:type) :keywords-from-dir nil) + +(with-transaction (:korrektur) + (dolist (image (remove-if-not #'(lambda (image) (scan "shirt" (store-image-name image))) (class-instances 'quickhoney-image))) + (setf (store-image-keywords image) (remove :special (store-image-keywords image))) + (push :t-shirt (store-image-keywords image)))) + +(import-image "/home/hans/contact-peter-nana.png" :keywords '(:type) :keywords-from-dir nil) \ No newline at end of file