diff options
Diffstat (limited to 'module/vcomponent')
| -rw-r--r-- | module/vcomponent/parse.scm | 16 | ||||
| -rw-r--r-- | module/vcomponent/parse/types.scm | 2 | ||||
| -rw-r--r-- | module/vcomponent/recurrence/generate.scm | 2 |
3 files changed, 10 insertions, 10 deletions
diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index 0caa65e7..56e62dad 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -47,8 +47,8 @@ (assert (eq? 'VCALENDAR (type item))) (for child in (children item) - (set! (prop child 'X-HNH-FILENAME) - (prop (parent child) 'X-HNH-FILENAME))) + (set! (prop child '-X-HNH-FILENAME) + (prop (parent child) '-X-HNH-FILENAME))) ;; NOTE The vdir standard says that each file should contain ;; EXACTLY one event. It can however contain multiple VEVENT @@ -60,7 +60,7 @@ ;; the standard. Section 3.8.4.4. (case (length events) [(0) (warning "No events in component~%~a" - (prop item 'X-HNH-FILENAME))] + (prop item '-X-HNH-FILENAME))] [(1) (let ((child (car events))) (assert (memv (type child) '(VTIMEZONE VEVENT))) @@ -77,7 +77,7 @@ events)) (rest (delete head events eq?))) - (set! (prop head 'X-HNH-ALTERNATIVES) + (set! (prop head '-X-HNH-ALTERNATIVES) (alist->hash-table (map cons (map (extract 'RECURRENCE-ID) rest) @@ -97,7 +97,7 @@ parse-calendar))) (set! (prop cal 'COLOR) color (prop cal 'NAME) name - (prop cal 'X-HNH-FILENAME) fullname) + (prop cal '-X-HNH-FILENAME) fullname) cal))) (scandir path (lambda (s) (and (not (string= "." (string-take s 1))) (string= "ics" (string-take-right s 3)))))))))) @@ -110,13 +110,13 @@ (case (stat:type st) [(regular) (let ((comp (call-with-input-file path parse-calendar))) - (set! (prop comp 'X-HNH-SOURCETYPE) 'file) + (set! (prop comp '-X-HNH-SOURCETYPE) 'file) comp) ] [(directory) (report-time! "Parsing ~a" path) (let ((comp (parse-vdir path))) - (set! (prop comp 'X-HNH-SOURCETYPE) 'vdir - (prop comp 'X-HNH-DIRECTORY) path) + (set! (prop comp '-X-HNH-SOURCETYPE) 'vdir + (prop comp '-X-HNH-DIRECTORY) path) comp)] [(block-special char-special fifo socket unknown symlink) => (lambda (t) (error "Can't parse file of type " t))])) diff --git a/module/vcomponent/parse/types.scm b/module/vcomponent/parse/types.scm index 2ba9a553..3ae3a74a 100644 --- a/module/vcomponent/parse/types.scm +++ b/module/vcomponent/parse/types.scm @@ -35,7 +35,7 @@ (define parsed (parse-ics-datetime value (hashq-ref props 'TZID #f))) - (hashq-set! props 'X-HNH-ORIGINAL parsed) + (hashq-set! props '-X-HNH-ORIGINAL parsed) (get-datetime parsed)) ;; DURATION diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index 711f51ec..2d9d3960 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -369,7 +369,7 @@ (define rrule-stream (rrule-instances base-event)) (stream-map - (aif (prop base-event 'X-HNH-ALTERNATIVES) + (aif (prop base-event '-X-HNH-ALTERNATIVES) (lambda (dt) (aif (hash-ref it dt) it ; RECURRENCE-ID objects come with their own DTEND |