[bknr-cvs] r1904 - trunk/projects/quickhoney/src

[bknr at bknr.net]

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