diff options
| -rw-r--r-- | haunt/builder/atom.scm | 2 | ||||
| -rw-r--r-- | 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) |