From acdfa23c19901947e17709442f79eb00a900375c Mon Sep 17 00:00:00 2001
From: Henry Webster <hwebs@hwebs.info>
Date: Wed, 22 Jul 2026 12:23:28 -0500
Subject: implement now page ordering

---
 haunt.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'haunt.scm')

diff --git a/haunt.scm b/haunt.scm
index 8a58caa..913c16a 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -13,8 +13,15 @@
 
 (define post-prefix "post")
 
+(define (posts/reverse-file-name posts)
+  "Returns POSTS sorted in reverse file name order."
+  (sort posts
+        (lambda (a b)
+          (string>? (post-file-name a) (post-file-name b)))))
+
 (define (filter-now posts)
-  (filter (lambda (p) (member "now" (post-tags p))) posts))
+  (posts/reverse-file-name
+   (filter (lambda (p) (member "now" (post-tags p))) posts)))
 
 (define (filter-not-now posts)
   (posts/reverse-chronological
-- 
cgit v1.3