implement md-based update posts on the now page

7 files changed, 44 insertions, 19 deletions

diff --git a/haunt.scm b/haunt.scm
index f002287..8a58caa 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -14,8 +14,7 @@
 (define post-prefix "post")
 
 (define (filter-now posts)
-  (posts/reverse-chronological
-   (filter (lambda (p) (member "now" (post-tags p))) posts)))
+  (filter (lambda (p) (member "now" (post-tags p))) posts))
 
 (define (filter-not-now posts)
   (posts/reverse-chronological
diff --git a/posts/currently-reading.xml b/posts/currently-reading.xml
index 0ce0969..47abc3e 100644
--- a/posts/currently-reading.xml
+++ b/posts/currently-reading.xml
@@ -1,5 +1,5 @@
 title: Currently Reading
-tags: now
+tags: now, feed
 ---
 <?xml version="1.0" encoding="UTF-8"?>
 <rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom" >
diff --git a/posts/freebsd.md b/posts/freebsd.md
new file mode 100644
index 0000000..6fd5f37
--- /dev/null
+++ b/posts/freebsd.md
@@ -0,0 +1,14 @@
+title: FreeBSD sysadmin
+date: 2026-07-21 00:00
+tags: now
+---
+I've been running a FreeBSD VPS.
+It's hosting this website right now.
+
+Overall it's been a delight.
+The OS is super intuitive.
+Docker got tiring and I wanted a fresh challenge.
+It also gives me new appreciation for NixOS.
+
+I've only scratched the surface.
+I'd highly encourage anyone to experiment with BSD for servers.
\ No newline at end of file
diff --git a/posts/read.xml b/posts/read.xml
index 3451027..e2728c4 100644
--- a/posts/read.xml
+++ b/posts/read.xml
@@ -1,5 +1,5 @@
 title: Recently Read
-tags: now
+tags: now, feed
 ---
 <?xml version="1.0" encoding="UTF-8"?>
 <rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom" >
diff --git a/posts/summer.md b/posts/summer.md
new file mode 100644
index 0000000..eeae1ed
--- /dev/null
+++ b/posts/summer.md
@@ -0,0 +1,8 @@
+title: Enjoying the Summer
+date: 2026-07-21 00:00
+tags: now
+---
+Chicago summers are incredible!
+Everybody is so happy.
+
+I'll be spending more time at the lake and going on long-distance bike rides.
\ No newline at end of file
diff --git a/posts/watched.xml b/posts/watched.xml
index bd9f375..127d031 100644
--- a/posts/watched.xml
+++ b/posts/watched.xml
@@ -1,5 +1,5 @@
 title: Recently Watched
-tags: now
+tags: now, feed
 ---
 <?xml version='1.0' encoding='utf-8'?>
 <rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:letterboxd="https://letterboxd.com" xmlns:tmdb="https://themoviedb.org">
diff --git a/theme.scm b/theme.scm
index b33d504..3320e59 100644
--- a/theme.scm
+++ b/theme.scm
@@ -79,23 +79,27 @@
   (theme #:name "hwebs-now"
          #:layout layout
          #:post-template
-         (lambda (post)
-           ;; TODO
-           (define (post-entries post)
-             ((sxpath '(rss channel item title *text*)) (post-sxml post)))
-
-           (rss-items-template (post-entries post)))
+         (compose rss-items-template rss-items)
 
          #:collection-template
          (lambda (site title posts prefix)
-           `(,@(map (lambda (post)
+           `((p "My implementation of the "
+                (a (@ (href "https://nownownow.com/about")) "\"now page\" concept by Derek Sivers")
+                ".")
+             ,@(map (lambda (post)
                       (define items
                         (rss-items post))
-
-                      `(section (h2 ,(post-ref post 'title))
-                                ,(rss-items-template
-                                  ;; not optimal, btw
-                                  (list-head items (min 5 (length items))))
-                                ;; TODO only show if there are more entries than max?
-                                (a (@ (href ,(post-uri post site prefix))) "See more.")))
+                      (if (member "feed" (post-tags post))
+                          ;; TODO use dates from the feed for these as well?
+                          ;; TODO combine structure between the two types
+                          `(section (h2 ,(post-ref post 'title))
+                                    ,(rss-items-template
+                                      ;; not optimal, btw
+                                      (list-head items (min 5 (length items))))
+                                    ;; TODO only show if there are more entries than max?
+                                    (a (@ (href ,(post-uri post site prefix))) "See more."))
+                          `(section (h2 ,(post-ref post 'title))
+                                    ;; TODO fill in datetime correctly
+                                    ((time ,(date->string*(post-date post)))
+                                     ,(post-sxml post)))))
                     posts)))))