blob: e9c9b0c215fde98bd94aa30210e19c262f32140a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(define-module (src dates)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-19)
#:export (string/ISO->date
date->string/RFC3339
unix-date
newest
find-newest
date>?))
(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 (date>? a b)
(time>? (date->time-utc a) (date->time-utc b)))
(define (find-newest dates) (reduce newest unix-date dates))
|