start integration of external RSS feeds

1 files changed, 21 insertions, 5 deletions

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)