From 7c4253e84986c1edb0452c061fc50d706de119b5 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Wed, 4 Oct 2023 14:26:35 +0200
Subject: dates: move date formatting to dates

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

(limited to 'src/dates.scm')

diff --git a/src/dates.scm b/src/dates.scm
index edbac1c..2bbb977 100644
--- a/src/dates.scm
+++ b/src/dates.scm
@@ -1,10 +1,20 @@
 (define-module (src dates)
+  #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-19)
   #:export (string/ISO->date
-            date->string/RFC3339))
+            date->string/RFC3339
+            unix-date
+            newest
+            find-newest))
 
 (define (string/ISO->date string)
   (string->date string "~Y-~m-~d"))
 
 (define (date->string/RFC3339 date)
   (date->string date "~4"))
+
+(define unix-date (string/ISO->date "1970-01-01"))
+
+(define (newest a b) (if (time>? (date->time-utc a) (date->time-utc b)) a b))
+
+(define (find-newest dates) (reduce newest unix-date dates))
-- 
cgit v1.2.3