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/atom.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'src/atom.scm')

diff --git a/src/atom.scm b/src/atom.scm
index 229c032..fe4b9e7 100644
--- a/src/atom.scm
+++ b/src/atom.scm
@@ -3,7 +3,6 @@
   #:use-module (src dates)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9)
-  #:use-module (srfi srfi-19)
   #:use-module (sxml simple)
   #:use-module (ice-9 binary-ports)
   #:use-module (rnrs bytevectors)
@@ -58,10 +57,6 @@
   (email person-email)
   (uri person-uri))
 
-(define zero-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 zero-date dates))
-
 (define* (append-feed-entry! feed entry)
          (let ((entries (feed-entries feed)))
            (set-entry-id!     entry (string-append
@@ -89,8 +84,8 @@
 
 (define* (entry  #:key (title "")
                        (id #f)
-                       (published zero-date)
-                       (updated zero-date)
+                       (published unix-date)
+                       (updated unix-date)
                        (authors '())
                        (summary-html '())
                        (content-html '())
-- 
cgit v1.2.3