From 090b20b68100896cacb5ebc1ee0fb136b8c6238d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 15 Jun 2020 19:21:31 +0200 Subject: Remove remnants of late RRULE parser. --- module/vcomponent/parse/component.scm | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'module/vcomponent') 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 -- cgit v1.2.3