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))