diff options
| -rw-r--r-- | haunt.scm | 9 | ||||
| -rw-r--r-- | posts/010_read.xml (renamed from posts/read.xml) | 0 | ||||
| -rw-r--r-- | posts/050_currently_reading.xml (renamed from posts/currently-reading.xml) | 0 | ||||
| -rw-r--r-- | posts/099_watched.xml (renamed from posts/watched.xml) | 0 | ||||
| -rw-r--r-- | posts/2026-07-22_freebsd.md (renamed from posts/freebsd.md) | 0 | ||||
| -rw-r--r-- | posts/2026-07-22_summer.md (renamed from posts/summer.md) | 0 |
6 files changed, 8 insertions, 1 deletions
@@ -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 |