diff options
| -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 |