diff options
author | rekado <rekado@elephly.net> | 2016-01-17 12:56:09 +0100 |
---|---|---|
committer | rekado <rekado@elephly.net> | 2016-01-17 12:56:09 +0100 |
commit | 71202be532fae355a49b0008486708891adabc63 (patch) | |
tree | e7886c0e85fc303510b06667ec566e00fd8ab25a | |
parent | e2e69d77ac240d48239ed4945e41a0cc53132e32 (diff) |
list-template renamed to collection-template.
-rw-r--r-- | haunt.scm | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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")) |