diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-10 00:02:23 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-10 00:02:23 +0200 |
| commit | b43c2ebbf36277df54a7954741c7a7399afc0130 (patch) | |
| tree | 86614f17de3dcc2a8b3246dbdd5118bec8aa40a7 /src/dates.scm | |
| parent | c65bf6c1e2af514da5322376a7602ea3be80cda1 (diff) | |
html, atom: order by date
Diffstat (limited to 'src/dates.scm')
| -rw-r--r-- | src/dates.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/dates.scm b/src/dates.scm index 2bbb977..e9c9b0c 100644 --- a/src/dates.scm +++ b/src/dates.scm @@ -5,7 +5,8 @@ date->string/RFC3339 unix-date newest - find-newest)) + find-newest + date>?)) (define (string/ISO->date string) (string->date string "~Y-~m-~d")) @@ -17,4 +18,7 @@ (define (newest a b) (if (time>? (date->time-utc a) (date->time-utc b)) a b)) +(define (date>? a b) + (time>? (date->time-utc a) (date->time-utc b))) + (define (find-newest dates) (reduce newest unix-date dates)) |