diff options
author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-04 14:26:35 +0200 |
---|---|---|
committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-04 14:26:35 +0200 |
commit | 7c4253e84986c1edb0452c061fc50d706de119b5 (patch) | |
tree | 93696f0f7b24ee7a9bc97ede38ee6f1fd8185e6b /src/dates.scm | |
parent | 43a9f7ff957f8c314e5fae4dae9479ebd74ae4a5 (diff) |
dates: move date formatting to dates
Diffstat (limited to 'src/dates.scm')
-rw-r--r-- | src/dates.scm | 12 |
1 files changed, 11 insertions, 1 deletions
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)) |