diff options
| -rw-r--r-- | haunt.scm | 21 |
1 files changed, 18 insertions, 3 deletions
@@ -76,6 +76,22 @@ (define %aliases '(("blog/post/Bad BEHAVIOR" . "/reverse-engineering-babbys-first-archive-format.html"))) +(define (tag-pages) + "Return a procedure that transforms a list of posts into pages containing only +the posts that have a certain tag." + (lambda (site posts) + (map (lambda (alist) + (let* ((tag-name (car alist)) + (posts (cdr alist)) + (title (format #f "Posts tagged as \"~a\"" tag-name)) + (file-name (format #f "tag-~a.html" tag-name)) + (body `(h1 ,(format #f "Tagged as \"~a\"" tag-name)))) + (make-page + file-name + (render-collection jakob-theme site title posts #f) + sxml->html))) + (posts/group-by-tag posts)))) + (site #:title "Jakob's Personal Webpage" #:domain "jakob.space" #:default-metadata @@ -85,10 +101,9 @@ #:builders (list (blog #:theme jakob-theme #:collections %collections) (article-aliases %aliases) (atom-feed) + (tag-pages) about-page projects-page (static-directory "css") (static-directory "fonts") - (static-directory "images") - (lambda (site posts) - (map (lambda (alist) + (static-directory "images"))) |