diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-24 22:31:08 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-24 22:31:08 +0200 |
| commit | 88e14917882b0c3f79e942b61027882fe9a7fe87 (patch) | |
| tree | de6180eed71a65a50fcf55b67796b6f1b92de54c /module/vcomponent/parse | |
| parent | Catch warnings in tests. (diff) | |
| download | calp-88e14917882b0c3f79e942b61027882fe9a7fe87.tar.gz calp-88e14917882b0c3f79e942b61027882fe9a7fe87.tar.xz | |
Handle events with no DTEND.
Diffstat (limited to 'module/vcomponent/parse')
| -rw-r--r-- | module/vcomponent/parse/component.scm | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index c2d297fd..ea695696 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -109,20 +109,7 @@ (loop (cdr lst) (cons (make-vcomponent (string->symbol (cadr head))) stack))] [(string=? "END" (car head)) - ;; TODO This is an ugly hack until the rest of the code is updated - ;; to work on events without an explicit DTEND attribute. (when (eq? (type (car stack)) 'VEVENT) - (when (not (attr (car stack) 'DTEND)) - (set! (attr (car stack) 'DTEND) - (let ((start (attr (car stack) 'DTSTART))) - ;; p. 54, 3.6.1 - ;; If DTSTART is a date then it's an all - ;; day event. If DTSTART instead is a - ;; datetime then the event has a length - ;; of 0? - (if (date? start) - (date+ start (date day: 1)) - (datetime+ start (datetime time: (time hour: 1))))))) ;; This isn't part of the field values since we "need" ;; the type of DTSTART for UNTIL to work. |