diff options
| author | Christopher Allan Webber <cwebber@dustycloud.org> | 2016-04-08 15:31:06 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2016-04-12 17:19:24 -0400 |
| commit | 643b81ebbba880f834cd619a8a56304b938673ce (patch) | |
| tree | 76c7787296b7b66cce95906de15ff5981f29bbb2 | |
| parent | ed1602dc36444bcf1023926854a2cb01b5199e7e (diff) | |
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.
| -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) |