From 9a6586a0a33e97cdee8cb417556f033b9c6b93a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sat, 2 Mar 2019 23:13:41 +0100
Subject: Move datetime stuff to better suited files.

---
 main.scm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

(limited to 'main.scm')

diff --git a/main.scm b/main.scm
index 87be8bdf..181e7f90 100755
--- a/main.scm
+++ b/main.scm
@@ -6,8 +6,10 @@
 
 (use-modules (srfi srfi-1)
              (srfi srfi-19)
+             (srfi srfi-19 util)
              (srfi srfi-26)
              (vcalendar)
+             (vcalendar datetime)
              (code))
 
 ;;; ------------------------------------------------------------
@@ -16,14 +18,7 @@
 ;;; Parse all start times into scheme date objects.
   (for-each-in (children cal 'VEVENT)
                (cut transform-attr! <> "DTSTART"
-                    (lambda (start)
-                      (localize-date
-                        (string->date
-                          start
-                          (case (string-length start)
-                            ((8) "~Y~m~d")
-                            ((15) "~Y~m~dT~H~M~S")
-                            ((16) "~Y~m~dT~H~M~S~z"))))))))
+                    parse-datetime)))
 
 (define (search cal term)
   (cdr (let ((events (filter (lambda (ev) (eq? 'VEVENT (type ev)))
-- 
cgit v1.2.3