From e5395a362a9103bbc7dd858b214cefdfe8569d94 Mon Sep 17 00:00:00 2001 From: Tomasz Biernacki Date: Tue, 9 Feb 2016 03:01:10 +0100 Subject: [PATCH] Add author and (short) description for RSS --- src/cryogen_core/rss.clj | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/cryogen_core/rss.clj b/src/cryogen_core/rss.clj index 3ed7703..f2ffb75 100644 --- a/src/cryogen_core/rss.clj +++ b/src/cryogen_core/rss.clj @@ -7,13 +7,14 @@ (defn posts-to-items [^String site-url posts] (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) enclosure (if (nil? enclosure) "" enclosure)] {:guid link :link link :title title - :description content + :description (or description content) + :author author :enclosure enclosure :pubDate date})) posts))