@@ -117,6 +117,19 @@

             ((:feed) :atom)

             (t root-node-name)))))

+(defgeneric get-random-item (feed)

+  (:method ((feed feed))

+    (let* ((items (copy-seq (items feed)))

+           (num-items (length items)))

+      (elt items

+           (random num-items)))))

+

+(defgeneric get-latest-item (feed)

+  (:method ((feed feed))

+    (let ((items (copy-seq (items feed))))

+      (car (sort items

+                 #'local-time:timestamp>

+                 :key #'date)))))

 ;(defun generate-xml (feed &key (feed-type :rss))

 ;  (%generate-xml feed feed-type))

@@ -5,13 +5,13 @@

   (:export #:define-data-class))

 (defpackage #:alimenta2

-  (:use #:cl #:alexandria #:serapeam #:fw.lu #:should-test))

+  (:use #:cl #:alexandria #:serapeum #:fw.lu #:should-test))

 (defpackage #:alimenta

   (:use #:cl #:should-test #:lquery #:plump #:alexandria #:anaphora)

   (:export #:to-feed #:generate-xml #:feed #:title #:link #:items #:feed-link

            #:doc #:source-type #:id #:date #:content #:item #:description

-           #:%generate-xml #:%to-feed #:%get-items #:make-item #:complex-value

+           #:%generate-xml #:%to-feed #:get-items #:make-item #:complex-value

            #:primary-value))

 (defpackage #:alimenta.rss

@@ -97,7 +97,7 @@

      (combine (text) (attr "domain"))

      (map-apply #'make-category)))

-(defmethod get-items (xml-dom (feed-type (eql :rss)))

+(defmethod alimenta::get-items (xml-dom (feed-type (eql :rss)))

   ($ (inline xml-dom) "channel > item"))

 (defmethod generate-xml ((item item) (feed-type (eql :rss)) &key partial)