implement now page ordering

6 files changed, 8 insertions, 1 deletions

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
diff --git a/posts/read.xml b/posts/010_read.xml
index e2728c4..e2728c4 100644
--- a/posts/read.xml
+++ b/posts/010_read.xml
diff --git a/posts/currently-reading.xml b/posts/050_currently_reading.xml
index 47abc3e..47abc3e 100644
--- a/posts/currently-reading.xml
+++ b/posts/050_currently_reading.xml
diff --git a/posts/watched.xml b/posts/099_watched.xml
index 127d031..127d031 100644
--- a/posts/watched.xml
+++ b/posts/099_watched.xml
diff --git a/posts/freebsd.md b/posts/2026-07-22_freebsd.md
index 6fd5f37..6fd5f37 100644
--- a/posts/freebsd.md
+++ b/posts/2026-07-22_freebsd.md
diff --git a/posts/summer.md b/posts/2026-07-22_summer.md
index eeae1ed..eeae1ed 100644
--- a/posts/summer.md
+++ b/posts/2026-07-22_summer.md