From 81f4a25dc6abf85c22b569117e0baf8fcdedbec2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 28 Jun 2020 23:30:42 +0200 Subject: Add TODO's. --- module/vcomponent/parse/component.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'module/vcomponent') 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)))))) -- cgit v1.2.3