From 5b002bfbb9d2c7f3ab7c67510544dcc4ddaa96f6 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 18 Mar 2021 18:20:08 -0400
Subject: builder: rss: Fix "//" in URI path when there is no blog prefix.

---
 haunt/builder/rss.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/haunt/builder/rss.scm b/haunt/builder/rss.scm
index 062ee9d..c1bafef 100644
--- a/haunt/builder/rss.scm
+++ b/haunt/builder/rss.scm
@@ -55,9 +55,12 @@
   (let ((uri (uri->string
               (build-uri (site-scheme site)
                          #:host (site-domain site)
-                         #:path (string-append (if (string-prefix? "//" blog-prefix)
+                         #:path (string-append (if (string-prefix? "/" blog-prefix)
+                                                   "" "/")
+                                               blog-prefix
+                                               (if (or (string-null? blog-prefix)
+                                                       (string-suffix? "/" blog-prefix))
                                                    "" "/")
-                                               blog-prefix "/"
                                                (site-post-slug site post)
                                                ".html")))))
     `(item
-- 
cgit v1.2.3