From 7debc95e6907b6ce28bc53b938eb677a2b5c3d29 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 13 Jun 2020 02:37:38 +0200 Subject: Which lead to some other bugs needing fixing. --- module/vcomponent/recurrence/generate.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'module/vcomponent/recurrence/generate.scm') diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index 0b49f96b..db612e38 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -22,7 +22,7 @@ (define ((con x) y) (cons x y)) -(eval-when (expand compile eval) +(eval-when (expand load compile eval) (define (stx->bystx symbol str-transformer) (->> symbol symbol->string @@ -157,6 +157,8 @@ 7))))] [(MONTHLY) + ;; TODO should there be a (start-of-month d) + ;; istead of juts d (let* ((instances (all-wday-in-month value d))) (catch 'out-of-range (lambda () @@ -182,9 +184,9 @@ ;; turns it into a limiter [(or (byyearday rrule) (bymonthday rrule)) - dt] + dt] - ;; this leads to duplicates in the output + ;; TODO this leads to duplicates in the output [(or (byweekno rrule) (bymonth rrule)) ;; Handled under BYWEEKNO & BYMONTH respectively dt] @@ -229,7 +231,6 @@ (case (freq rr) [(YEARLY) (datetime date: (date year: (interval rr)))] [(MONTHLY) (datetime date: (date month: (interval rr)))] - ;; please say that a week has always seven days... [(WEEKLY) (datetime date: (date day: (* 7 (interval rr))))] [(DAILY) (datetime date: (date day: (interval rr)))] [(HOURLY) (datetime time: (time hour: (interval rr)))] -- cgit v1.2.3