Made DTSTART have <time> instead of <date> type.

1 files changed, 30 insertions, 19 deletions

diff --git a/vcalendar.scm b/vcalendar.scm
index 1bf0a1bb..03817957 100644
--- a/vcalendar.scm
+++ b/vcalendar.scm
@@ -1,27 +1,38 @@
 (define-module (vcalendar)
   #:use-module (vcalendar primitive)
+  #:use-module (vcalendar datetime)
   #:use-module (srfi srfi-1)
-  #:use-module (srfi srfi-26))
+  #:use-module (srfi srfi-26)
+  #:use-module (util))
+
+(define (parse-dates! cal)
+;;; Parse all start times into scheme date objects.
+  (for-each-in (children cal 'VEVENT)
+               (lambda (ev)
+                 (transform-attr! ev "DTSTART" parse-datetime)
+                 (transform-attr! ev "DTEND"   parse-datetime)))
+  cal)
 
 (define-public (make-vcomponent path)
-  (if (string-ci=? ".ics" (string-take-right path 4))
-      ;; == Single ICS file ==
-      ;; Remove the abstract ROOT component,
-      ;; returning the wanted VCALENDAR component
-      (car (%vcomponent-children
-            (%vcomponent-make path)))
-      ;; == Assume vdir ==
-      ;; Also removes the abstract ROOT component, but also
-      ;; merges all VCALENDAR's children into the first
-      ;; VCALENDAR, and return that VCALENDAR.
-      ;;
-      ;; TODO the other VCALENDAR components might not get thrown away,
-      ;; this since I protect them from the GC in the C code.
-      (reduce (lambda (cal accum)
-                (for-each (cut %vcomponent-push-child! accum <>)
-                          (%vcomponent-children cal))
-                accum)
-              '() (%vcomponent-children (%vcomponent-make path)))))
+  (parse-dates!
+   (if (string-ci=? ".ics" (string-take-right path 4))
+       ;; == Single ICS file ==
+       ;; Remove the abstract ROOT component,
+       ;; returning the wanted VCALENDAR component
+       (car (%vcomponent-children
+             (%vcomponent-make path)))
+       ;; == Assume vdir ==
+       ;; Also removes the abstract ROOT component, but also
+       ;; merges all VCALENDAR's children into the first
+       ;; VCALENDAR, and return that VCALENDAR.
+       ;;
+       ;; TODO the other VCALENDAR components might not get thrown away,
+       ;; this since I protect them from the GC in the C code.
+       (reduce (lambda (cal accum)
+                 (for-each (cut %vcomponent-push-child! accum <>)
+                           (%vcomponent-children cal))
+                 accum)
+               '() (%vcomponent-children (%vcomponent-make path))))))
 
 (define-public (type-filter t lst)
   (filter (lambda (e) (eqv? t (type e)))