(in-package :whitespace)
 
 (defstruct (rss-item-store-vector (:type vector))
   id title link description comments enclosure guid pub-date source feed)
 
 (defstruct (rss-feed-store-vector (:type vector))
   id title link description fetch-url)
 
 (defmacro select-rfs ((&rest select-clauses) (&rest where-clauses))
   `(:select ,@(or (list :*) select-clauses)
     :from 'rss_feed_store
     ,@(when where-clauses
         `(:where ,@where-clauses))))
 
 (wc (postmodern:query (select-rfs () ())))
 
 (defun get-rss-feed-by-id (id)
   (apply #'make-rss-feed-store-vector 
          (postmodern:query (:select :* :from 'rss-feed-store
                             :where (:= :id id))
                            :plist)))
 
 (defun get-rss-feeds ()
   (mapcar (lambda (it) (apply #'make-rss-feed-store-vector it))
           (postmodern:query (:select :* :from 'rss-feed-store)
                             :plists)))
 
 (defun get-rss-feed-by-title (title)
   (mapcar (lambda (it) (apply #'make-rss-feed-store-vector it))
           (postmodern:query (:select :* :from 'rss-feed-store
                              :where (:= :title title))
                             :plists)))
 
 (defun get-fetch-urls ()
   (mapcar (lambda (it) (apply #'make-rss-feed-store-vector it))
           (postmodern:query (:select :fetch-url :from 'rss-feed-store)
                             :plists)))
 
 (defun get-rss-items ()
   (mapcar (lambda (it) (apply #'make-rss-item-store-vector it))
           (postmodern:query (:select :* :from 'rss-item-store)
                             :plists)))
 
 (defgeneric get-items-for-feed (feed)
   (:method ((feed vector))
     (get-items-for-feed (rss-feed-store-vector-id feed)))
   (:method ((feed integer))
     (mapcar (lambda (it) (apply #'make-rss-item-store-vector it))
             (postmodern:query (:select :* :from 'rss-item-store
                                :where (:= :feed feed))
                               :plists))))