diff options
| -rw-r--r-- | src/weepinbell/feed.clj | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/weepinbell/feed.clj b/src/weepinbell/feed.clj index 900dc00..85c79a4 100644 --- a/src/weepinbell/feed.clj +++ b/src/weepinbell/feed.clj @@ -22,11 +22,13 @@ doall)) (defn- make-feed-channel [title desc link wms config] - (rss/channel-xml - {:title title - :link link - :description desc} - (when wms (make-feed-items wms config)))) + (let [metadata {:title title + :link link + :description desc} + gen (partial rss/channel-xml metadata)] + (if-let [items (make-feed-items wms config)] + (gen items) + (gen)))) (defn rss "Generate RSS XML response, or 404 JSON response when not found." |