From 919d4d39bd8ade68140017d26a06d1454c1b2b91 Mon Sep 17 00:00:00 2001 From: Henry Webster Date: Tue, 21 Jul 2026 15:07:36 -0500 Subject: start integration of external RSS feeds --- haunt.scm | 26 +++++++++++++++++++++----- 1 file changed, 21 insertions(+), 5 deletions(-) (limited to 'haunt.scm') diff --git a/haunt.scm b/haunt.scm index 56d89af..f76b1c7 100644 --- a/haunt.scm +++ b/haunt.scm @@ -7,23 +7,39 @@ (haunt reader commonmark) (haunt site) (haunt post) - (theme)) + (haunt html) + (theme) + (reader)) (define post-prefix "post") -(define collections - `(("Blog" "blog/index.html" ,posts/reverse-chronological))) +(define (filter-now posts) + (posts/reverse-chronological + (filter (lambda (p) (member "now" (post-tags p))) posts))) + +(define (filter-not-now posts) + (posts/reverse-chronological + (filter (lambda (p) (not (member "now" (post-tags p)))) posts))) + +(define posts-other + `(("Blog" "blog/index.html" ,filter-not-now))) + +(define posts-now + `(("Now" "now/index.html" ,filter-now))) (site #:title "hwebs" #:domain "hwebs.info" #:default-metadata '((author . "Henry J. Webster") (email . "hwebs@hwebs.info")) - #:readers (list commonmark-reader) + #:readers (list commonmark-reader xml-reader) #:builders (list (blog #:theme hwebs-theme - #:collections collections + #:collections posts-other #:prefix "blog" #:post-prefix post-prefix) + (blog #:theme hwebs-theme + #:collections posts-now + #:prefix "now") (flat-pages #:template flat-page-template) (static-directory "images") (lambda (site posts) -- cgit v1.3