diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-28 23:30:42 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-29 01:08:54 +0200 |
| commit | 81f4a25dc6abf85c22b569117e0baf8fcdedbec2 (patch) | |
| tree | 34688e4fc93930a4e2ad477e75d4a0c3f9a0aeb3 | |
| parent | Xcal output cleanup. (diff) | |
| download | calp-81f4a25dc6abf85c22b569117e0baf8fcdedbec2.tar.gz calp-81f4a25dc6abf85c22b569117e0baf8fcdedbec2.tar.xz | |
Add TODO's.
| -rw-r--r-- | module/vcomponent/parse/component.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index d2ca5eb4..64942625 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -1,3 +1,5 @@ +;;; TODO rename to (vcomponent parse ical)? To work nices alongside +;;; (vcomponent parse xcal) (define-module (vcomponent parse component) :use-module (util) :use-module (util exceptions) @@ -11,6 +13,7 @@ :use-module (vcomponent geo) ) +;; TODO rename to parse-vcomponent, or parse-ical (?). (define-public (parse-calendar port) (parse (map tokenize (read-file port)))) @@ -222,6 +225,7 @@ (values key (car rem) parameters ) (let* ((kv (car rem)) (idx (string-index kv #\=))) + ;; TODO lists in parameters (hashq-set! parameters (string->symbol (substring kv 0 idx)) (substring kv (1+ idx))) (loop (cdr rem)))))) |