diff options
Diffstat (limited to 'module/vcomponent')
-rw-r--r-- | module/vcomponent/parse.scm | 4 | ||||
-rw-r--r-- | module/vcomponent/recurrence/generate.scm | 2 | ||||
-rw-r--r-- | module/vcomponent/recurrence/parse.scm | 2 |
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)) |