From 0af079b6b69f3a82c19bb0e8b30e717ac42a29a5 Mon Sep 17 00:00:00 2001
From: eltrac <hi@eltr.ac>
Date: Sun, 20 Sep 2026 11:50:33 +0800
Subject: fix #36

---
 src/weepinbell/feed.clj | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'src')

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."
-- 
cgit v1.2.3