dan
/
haunt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Christopher Allan Webber 2016-04-08 15:31:06 -05:00 committed by David Thompson
parent ed1602dc36
commit 643b81ebbb
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
haunt/builder/atom.scm
View File

@ -54,7 +54,7 @@
,(let ((email (post-ref post 'email))) ,(let ((email (post-ref post 'email)))
(if email `(email ,email) '()))) (if email `(email ,email) '())))
(updated ,(date->string* (post-date post))) (updated ,(date->string* (post-date post)))
(link (@ (href ,(string-append "/" blog-prefix (link (@ (href ,(string-append blog-prefix "/"
(site-post-slug site post) ".html")) (site-post-slug site post) ".html"))
(rel "alternate"))) (rel "alternate")))
(summary (@ (type "html")) (summary (@ (type "html"))

2
haunt/builder/blog.scm
View File

@ -71,7 +71,7 @@
(define (ugly-default-collection-template site title posts prefix) (define (ugly-default-collection-template site title posts prefix)
(define (post-uri post) (define (post-uri post)
(string-append "/" (or prefix "") (string-append (or prefix "") "/"
(site-post-slug site post) ".html")) (site-post-slug site post) ".html"))
`((h3 ,title) `((h3 ,title)