diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-10-16 21:42:41 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-10-16 21:42:41 +0200 |
commit | 5986d8022fe2a58df6bc7054ef9499961fb776b1 (patch) | |
tree | 39f13a7053bce3c04773a1f95793659f0aaf68fb /module | |
parent | Add rudementary server logging. (diff) | |
download | calp-5986d8022fe2a58df6bc7054ef9499961fb776b1.tar.gz calp-5986d8022fe2a58df6bc7054ef9499961fb776b1.tar.xz |
HTML add toggle for whole-day.
Diffstat (limited to 'module')
-rw-r--r-- | module/vcomponent/xcal/parse.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/module/vcomponent/xcal/parse.scm b/module/vcomponent/xcal/parse.scm index 17c684fc..c97bc492 100644 --- a/module/vcomponent/xcal/parse.scm +++ b/module/vcomponent/xcal/parse.scm @@ -25,7 +25,10 @@ ;; TODO possibly trim whitespace on text fields [(cal-address uri text unknown) (car value)] - [(date) (parse-iso-date (car value))] + [(date) + ;; TODO this is correct, but ensure remaining types + (hashq-set! props 'VALUE "DATE") + (parse-iso-date (car value))] [(date-time) (parse-iso-datetime (car value))] @@ -108,6 +111,12 @@ data '(AUDIO DISPLAY EMAIL NONE))) [else data])) +;; Note +;; This doesn't verify the inter-field validity of the object, +;; meaning that value(DTSTART) == DATE and value(DTEND) == DATE-TIME +;; are possibilities, which other parts of the code will crash on. +;; TODO +;; since we are feeding user input into this it really should be fixed. (define-public (sxcal->vcomponent sxcal) (define type (symbol-upcase (car sxcal))) (define component (make-vcomponent type)) |