diff options
| author | Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> | 2024-04-07 14:31:56 +0200 |
|---|---|---|
| committer | Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> | 2025-06-15 01:30:28 +0200 |
| commit | 2e9d0482acedc9d935c1f22126fbdd19d4bb0b7d (patch) | |
| tree | 31f88affd7f644308f9c40052a0b69b40b43624f /website/builders/replicant-blog.scm | |
| parent | 28c97bdb48cbfd9446d353cd8f68bdd1343db5e8 (diff) | |
| download | haunt-blog-2e9d0482acedc9d935c1f22126fbdd19d4bb0b7d.tar.gz haunt-blog-2e9d0482acedc9d935c1f22126fbdd19d4bb0b7d.tar.bz2 haunt-blog-2e9d0482acedc9d935c1f22126fbdd19d4bb0b7d.zip | |
haunt: sort posts by most recent first.
Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
Diffstat (limited to 'website/builders/replicant-blog.scm')
| -rw-r--r-- | website/builders/replicant-blog.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/website/builders/replicant-blog.scm b/website/builders/replicant-blog.scm index 1f8052b..918bc5b 100644 --- a/website/builders/replicant-blog.scm +++ b/website/builders/replicant-blog.scm @@ -94,6 +94,11 @@ ".")) (div (@ (id "post-content")) ,(post-sxml post)))) +(define (sort-posts-by-most-recent-first a b) + (time>? + (date->time-utc (post-ref a 'date)) + (date->time-utc (post-ref b 'date)))) + (define (replicant-default-collection-template site title posts prefix) (define (post-uri post) (string-append (or prefix "") "/" @@ -105,7 +110,7 @@ `(li (a (@ (href ,(post-uri post))) ,(post-ref post 'title)))) - posts)))) + (sort posts sort-posts-by-most-recent-first))))) (define* (theme #:key (name "Replicant") |