[bknr-cvs] hans changed trunk/projects/quickhoney/upgrade-stuff/import.lisp

[BKNR Commits]

Revision: 3754
Author: hans
URL: http://bknr.net/trac/changeset/3754

Add form to initialize news archive.

U   trunk/projects/quickhoney/upgrade-stuff/import.lisp

Modified: trunk/projects/quickhoney/upgrade-stuff/import.lisp
===================================================================
--- trunk/projects/quickhoney/upgrade-stuff/import.lisp	2008-08-30 20:11:12 UTC (rev 3753)
+++ trunk/projects/quickhoney/upgrade-stuff/import.lisp	2008-08-30 20:20:16 UTC (rev 3754)
@@ -41,6 +41,16 @@
 (mapc #'delete-object (get-keywords-intersection-store-images '(:upload :home :button)))
 (mapc #'delete-object (get-keywords-intersection-store-images '(:clients :nicejobs)))
 
+(with-transaction (:initialize-news)
+  (setf (slot-value (find-rss-channel "quickhoney") 'bknr.rss::items)
+        (sort (remove-if (lambda (image)
+                           (or (member :explicit (store-image-keywords image))
+                               (not (and (quickhoney-image-category image)
+                                         (quickhoney-image-subcategory image)))))
+                         (class-instances 'quickhoney-image))
+              #'>
+              :key #'blob-timestamp)))
+
 (dolist (image (class-instances 'quickhoney-image))
   (unless (and (quickhoney-image-category image)
                (quickhoney-image-subcategory image))