Merge pull request #62 from tomasz-biernacki/rss-auth-desc

Add author and (short) description for RSS
This commit is contained in:
Carmen La 2016-02-08 22:47:31 -05:00
commit 4989fc04d7

View file

@ -7,13 +7,14 @@
(defn posts-to-items [^String site-url posts] (defn posts-to-items [^String site-url posts]
(map (map
(fn [{:keys [uri title content date enclosure]}] (fn [{:keys [uri title content date enclosure author description]}]
(let [link (str (if (.endsWith site-url "/") (apply str (butlast site-url)) site-url) uri) (let [link (str (if (.endsWith site-url "/") (apply str (butlast site-url)) site-url) uri)
enclosure (if (nil? enclosure) "" enclosure)] enclosure (if (nil? enclosure) "" enclosure)]
{:guid link {:guid link
:link link :link link
:title title :title title
:description content :description (or description content)
:author author
:enclosure enclosure :enclosure enclosure
:pubDate date})) :pubDate date}))
posts)) posts))