diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-25 18:15:32 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-25 18:25:33 +0200 |
| commit | 7dc9e082426cd6c81310c2f78088b5b613bd0c10 (patch) | |
| tree | 4f3f2295eef117bc539677775f63c1c16fc6bacc /module/vcomponent/parse | |
| parent | ICS writer now handles types and parameters. (diff) | |
| download | calp-7dc9e082426cd6c81310c2f78088b5b613bd0c10.tar.gz calp-7dc9e082426cd6c81310c2f78088b5b613bd0c10.tar.xz | |
Add structure for importing events.
Diffstat (limited to 'module/vcomponent/parse')
| -rw-r--r-- | module/vcomponent/parse/component.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index 69b833dd..f7dbdf71 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -109,7 +109,7 @@ (cond [(and=> (hashq-ref params 'VALUE) string->symbol) => get-parser] - [(memv key '(COMPLETED DTEND DUE DTSTART RECURRENCE-ID RDATE + [(memv key '(COMPLETED DTEND DUE DTSTART RECURRENCE-ID RDATE CREATED DTSTAMP LAST-MODIFIED ;; only on VALARM ACKNOWLEDGED @@ -142,7 +142,10 @@ (lambda (params value) (let ((v (car ((get-parser 'TEXT) params value)))) (unless (and (string? v) (string=? "2.0" v)) - (warning "File of unsuported version. Proceed with caution"))))] + #f + ;; (warning "File of unsuported version. Proceed with caution") + ) + v))] [(memv key '(TRANSP)) (enum-parser '(OPAQUE TRANSPARENT))] |