Merge pull request #62 from tomasz-biernacki/rss-auth-desc
Add author and (short) description for RSS
This commit is contained in:
commit
4989fc04d7
1 changed files with 3 additions and 2 deletions
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue