From de3dea381a5a6618f9041e2970c752fd49136dda Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 10 Apr 2020 13:46:55 +0200 Subject: Add some TODO's. --- module/vcomponent/parse.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'module/vcomponent/parse.scm') diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index 7ff1237e..38027759 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -230,10 +230,11 @@ row ~a column ~a ctx = ~a ;; Allowed (some) repeated keys (if (memv key '(EXDATE)) (aif (attr* component key) - (begin (warning "Merging EXDATE fields") - ;; updates the current vline - ;; NOTE that this discards any properties belonging to this object - (set! (value it) (cons (value vline) (value it)))) + ;; updates the current vline + ;; NOTE that this discards any properties belonging to this object + ;; TODO a more propper way to do it would be to store multiple vline + ;; objects for a given key. + (set! (value it) (cons (value vline) (value it))) (begin (mod! (value vline) list) (set-vline! component key vline))) ;; Keys which aren't allowed to be repeated. -- cgit v1.2.3