From b43c2ebbf36277df54a7954741c7a7399afc0130 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Tue, 10 Oct 2023 00:02:23 +0200
Subject: html, atom: order by date

---
 src/dates.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/dates.scm')

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))
-- 
cgit v1.2.3