Rename parse-date to parse-ics-date, add parse-iso-date.

3 files changed, 4 insertions, 4 deletions

diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm
index 8efa9e62..7ae966a1 100644
--- a/module/vcomponent/parse.scm
+++ b/module/vcomponent/parse.scm
@@ -210,9 +210,9 @@ row ~a	column ~a	ctx = ~a
                                            (let ((type (and=> (prop it 'VALUE) car)))
                                              (if (or (and=> type (cut string=? <> "DATE-TIME"))
                                                      (string-contains (value it) "T"))
-                                                 (set! (value it) (parse-datetime (value it) tz)
+                                                 (set! (value it) (parse-ics-datetime (value it) tz)
                                                        (prop it 'VALUE) 'DATE-TIME)
-                                                 (set! (value it) (parse-date (value it))
+                                                 (set! (value it) (parse-ics-date (value it))
                                                        (prop it 'VALUE) 'DATE))))])
 
 
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm
index ee59ed04..c03a935a 100644
--- a/module/vcomponent/recurrence/generate.scm
+++ b/module/vcomponent/recurrence/generate.scm
@@ -159,7 +159,7 @@
                 event (parse-recurrence-rule
                        (attr event "RRULE")
                        (if (date? (attr event 'DTSTART))
-                           parse-date parse-datetime)))
+                           parse-ics-date parse-ics-datetime)))
                ;; TODO some events STANDARD and DAYLIGT doesn't have RRULE's, but rather
                ;; just mention the current part. Handle this
                stream-null))))
diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm
index 97e5e980..00d9fcdb 100644
--- a/module/vcomponent/recurrence/parse.scm
+++ b/module/vcomponent/recurrence/parse.scm
@@ -51,7 +51,7 @@
 ;; RFC 5545, Section 3.3.10. Recurrence Rule, states that the UNTIL value MUST have
 ;; the same type as the DTSTART of the event (date or datetime). I have seen events
 ;; in the wild which didn't follow this. I consider that an user error.
-(define* (parse-recurrence-rule str optional: (datetime-parser parse-datetime))
+(define* (parse-recurrence-rule str optional: (datetime-parser parse-ics-datetime))
   (fold
    (lambda (kv o)
      (let* (((key val) kv))