From 643b81ebbba880f834cd619a8a56304b938673ce Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Fri, 8 Apr 2016 15:31:06 -0500 Subject: builder: Reverse prefix and slash append order in generating post paths. * haunt/builder/blog.scm (ugly-default-collection-template): * haunt/builder/blog.scm (post->atom-entry): Reverse appending of prefix and slash in generation of paths for blog entries. --- haunt/builder/atom.scm | 2 +- haunt/builder/blog.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/haunt/builder/atom.scm b/haunt/builder/atom.scm index 84f112c..9abe33d 100644 --- a/haunt/builder/atom.scm +++ b/haunt/builder/atom.scm @@ -54,7 +54,7 @@ ,(let ((email (post-ref post 'email))) (if email `(email ,email) '()))) (updated ,(date->string* (post-date post))) - (link (@ (href ,(string-append "/" blog-prefix + (link (@ (href ,(string-append blog-prefix "/" (site-post-slug site post) ".html")) (rel "alternate"))) (summary (@ (type "html")) diff --git a/haunt/builder/blog.scm b/haunt/builder/blog.scm index 7a9d661..2830881 100644 --- a/haunt/builder/blog.scm +++ b/haunt/builder/blog.scm @@ -71,7 +71,7 @@ (define (ugly-default-collection-template site title posts prefix) (define (post-uri post) - (string-append "/" (or prefix "") + (string-append (or prefix "") "/" (site-post-slug site post) ".html")) `((h3 ,title) -- cgit v1.2.3