summaryrefslogtreecommitdiff
path: root/haunt.scm
diff options
context:
space:
mode:
authorrekado <rekado@elephly.net>2016-01-17 12:56:09 +0100
committerrekado <rekado@elephly.net>2016-01-17 12:56:09 +0100
commit71202be532fae355a49b0008486708891adabc63 (patch)
treee7886c0e85fc303510b06667ec566e00fd8ab25a /haunt.scm
parente2e69d77ac240d48239ed4945e41a0cc53132e32 (diff)
list-template renamed to collection-template.
Diffstat (limited to 'haunt.scm')
-rw-r--r--haunt.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/haunt.scm b/haunt.scm
index b2dd1e0..f3522f5 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -143,7 +143,8 @@ FILTER: The procedure called to manipulate the posts list before rendering"
(lambda (site posts)
(define (tag-list tag posts all-posts)
(define (render-list title posts prefix)
- (let ((body ((theme-list-template theme) site title posts prefix all-posts tag)))
+ (let ((body ((theme-collection-template theme)
+ site title posts prefix all-posts tag)))
((theme-layout theme) site title body)))
(make-page (string-append "tags/" tag ".html")
(render-list (string-append "Posts tagged ‘" tag "’")
@@ -216,7 +217,7 @@ in parentheses."
#:layout default-layout
#:post-template ; TODO: should also take "site" for "site-post-slug"
(lambda (post)
- ;; TODO: similar version below for list-template
+ ;; TODO: similar version below for collection-template
(define (post-uri post)
(string-append "/posts/" (%make-slug post) ".html"))
`((h1 (@ (class "donthyphenate")) ,(post-ref post 'title))
@@ -233,7 +234,7 @@ in parentheses."
(div (@ (id "disqus_thread")))
(a (@ (id "loadComments") (href "javascript:loadComments()"))
"Click to load Disqus comments")))
- #:list-template
+ #:collection-template
(lambda* (site title posts prefix #:optional all-posts tag)
(define (post-uri post)
(string-append "/" (or prefix "") (site-post-slug site post) ".html"))