diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2021-03-18 18:20:08 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2021-03-18 18:20:08 -0400 |
| commit | 5b002bfbb9d2c7f3ab7c67510544dcc4ddaa96f6 (patch) | |
| tree | 22e54fe77ff702fd0a51e258f98d34e47be1a3c6 | |
| parent | bbcf40b3ee1a904602afcc9ca74b6aa46d366f82 (diff) | |
builder: rss: Fix "//" in URI path when there is no blog prefix.
| -rw-r--r-- | haunt/builder/rss.scm | 7 |
1 files 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 |