From 7405049f201bfc26c840adb1937912b5ac06cc82 Mon Sep 17 00:00:00 2001 From: "Jakob L. Kreuze" Date: Thu, 2 May 2019 16:11:14 -0400 Subject: Abstract tag page generation into its own module --- haunt.scm | 19 ++----------------- 1 file changed, 2 insertions(+), 17 deletions(-) (limited to 'haunt.scm') diff --git a/haunt.scm b/haunt.scm index d5bdf1d..05104ec 100644 --- a/haunt.scm +++ b/haunt.scm @@ -15,6 +15,7 @@ ;;; . (use-modules (custom alias) + (custom tag) (custom theme) (haunt builder atom) (haunt builder assets) @@ -76,22 +77,6 @@ (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 @@ -101,7 +86,7 @@ the posts that have a certain tag." #:builders (list (blog #:theme jakob-theme #:collections %collections) (article-aliases %aliases) (atom-feed) - (tag-pages) + (sort-by-tag) about-page projects-page (static-directory "css") -- cgit v1.3