diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-10 13:46:55 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-10 13:46:55 +0200 |
| commit | de3dea381a5a6618f9041e2970c752fd49136dda (patch) | |
| tree | be75a7ced7a30b3fb54ca290d5fe345e4fa7e336 | |
| parent | Show EXDATES in text format. (diff) | |
| download | calp-de3dea381a5a6618f9041e2970c752fd49136dda.tar.gz calp-de3dea381a5a6618f9041e2970c752fd49136dda.tar.xz | |
Add some TODO's.
| -rw-r--r-- | module/vcomponent/base.scm | 7 | ||||
| -rw-r--r-- | module/vcomponent/parse.scm | 9 |
2 files changed, 11 insertions, 5 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index f93952ca..e0d7d11e 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -14,7 +14,12 @@ (make-vline% value parameters) vline? (value get-vline-value set-vline-value!) - (parameters get-vline-parameters)) + (parameters get-vline-parameters) + ;; TODO Add slot for optional source object, containing + ;; - file of origin + ;; - position in that file + ;; - source string, before value parsing. + ) (define*-public (make-vline value #:optional (ht (make-hash-table))) (make-vline% value ht)) 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. |