diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 19:21:31 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 19:21:31 +0200 |
| commit | 090b20b68100896cacb5ebc1ee0fb136b8c6238d (patch) | |
| tree | 7e2be7872a34bd5373b4c759597366ffaac1fb03 /module/vcomponent | |
| parent | Change STATUS to enum type. (diff) | |
| download | calp-090b20b68100896cacb5ebc1ee0fb136b8c6238d.tar.gz calp-090b20b68100896cacb5ebc1ee0fb136b8c6238d.tar.xz | |
Remove remnants of late RRULE parser.
Diffstat (limited to 'module/vcomponent')
| -rw-r--r-- | module/vcomponent/parse/component.scm | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index 6c4c6022..3278af85 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -259,22 +259,6 @@ (cons (make-vcomponent (string->symbol (cadr head))) stack))] [(string=? "END" (car head)) - - (when (eq? (type (car stack)) 'VEVENT) - - ;; This isn't part of the field values since we "need" - ;; the type of DTSTART for UNTIL to work. - ;; This could however be side steped by auto detecting - ;; @type{date}s vs @type{datetime}s in @function{parse-recurrence-rule}. - #t - #; - (when (attr (car stack) 'RRULE) ; ; - (set! (attr (car stack) 'RRULE) ; ; - ((@ (vcomponent recurrence) parse-recurrence-rule) ; ; - (attr (car stack) 'RRULE) ; ; - (if (date? (attr (car stack) 'DTSTART)) ; ; - parse-ics-date parse-ics-datetime))))) - (loop (cdr lst) (if (null? (cdr stack)) ;; return |