Parse RSS/Atom

A thin wrapper around Rome to read RSS/Atom. The project can be found here. Use in lein as [feemde "0.0.2"].

(ns feedme
  (:import java.net.URL 
           com.sun.syndication.feed.synd.SyndFeed
           com.sun.syndication.io.SyndFeedInput
           com.sun.syndication.io.XmlReader))

(defn- entry [e]
  (let [content (or (.getDescription e) (nth (.getContents e) 0))]
    {
     :author (.getAuthor e)
     :categories (into [] (map #(.getName %) (.getCategories e)))
     :content-type (.getMode content)
     :content (.getValue content)
     :link (.getLink e)
     :published (.getPublishedDate e)
     :title (.getTitle e)
     :updated (.getUpdatedDate e)}))

(defn- make-feed [url]
  (let [url (new URL url)
        reader (new XmlReader url)
        input (new SyndFeedInput)]
    (.build input reader)))

(defn parse [url]
  (let [feed (make-feed url)]
    {
     ; FIXME: This can be probably done nicer with a macro
     :author (.getAuthor feed)
     :description (.getDescription feed)
     :language (.getLanguage feed)
     :link (.getLink feed)
     :type (.getFeedType feed)
     :published (.getPublishedDate feed)
     :title (.getTitle feed)
     :entries (map entry (.getEntries feed))}))