Add author and (short) description for RSS

This commit is contained in:
Tomasz Biernacki 2016-02-09 03:01:10 +01:00
parent e1a03943c4
commit e5395a362a

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