diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-15 21:03:51 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-15 21:03:51 +0200 |
| commit | 34f28e16cbd002e1b4b5895d1a89e7c3c6e87192 (patch) | |
| tree | 484d3006db4ef04cef77e136ed4bdd3dc430c7cf | |
| parent | 977db3799cafbbdec3751112dfe3234e443a81c1 (diff) | |
html and atom: fix sort function
| -rw-r--r-- | src/atom.scm | 3 | ||||
| -rw-r--r-- | src/html.scm | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/atom.scm b/src/atom.scm index c8eced7..c1428ec 100644 --- a/src/atom.scm +++ b/src/atom.scm @@ -80,7 +80,8 @@ '())) (append-entry! (partial append-feed-entry! f))) (for-each append-entry! - (sort posts date>?)) + (sort posts (lambda (a b) + (date>? (entry-published a) (entry-published b))))) f)) diff --git a/src/html.scm b/src/html.scm index 7099318..2bd1178 100644 --- a/src/html.scm +++ b/src/html.scm @@ -79,7 +79,8 @@ uri atom-feed-uri author - (sort posts date>?) + (sort posts (lambda (a b) + (date>? (post-published a) (post-published b)))) styles scripts)) |