From 583ce0ec3e183888b24743e817f952194435eb90 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 24 May 2020 22:35:42 +0200 Subject: Move TODO's about BYSETPOS to GitHub issue. https://github.com/HugoNikanor/calp/issues/6 --- module/vcomponent/recurrence/display/test.scm | 4 ---- module/vcomponent/recurrence/generate.scm | 2 -- 2 files changed, 6 deletions(-) (limited to 'module/vcomponent/recurrence') diff --git a/module/vcomponent/recurrence/display/test.scm b/module/vcomponent/recurrence/display/test.scm index a0fc676e..e7f8e466 100644 --- a/module/vcomponent/recurrence/display/test.scm +++ b/module/vcomponent/recurrence/display/test.scm @@ -49,8 +49,6 @@ v) -;; TODO bysetpos - (map run-test (list (vevent @@ -253,8 +251,6 @@ forever (U.S. Presidential Election day)" rrule: "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8") ;; => "varje tisdag den andre, tredje, fjärde, femte, sjätte, sjunde & åttonde i november vart fjärde år" - ;; TODO bysetpos - (vevent summary: "The third instance into the month of one of Tuesday, Wednesday, or Thursday, for the next 3 months" diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index 7f681aa7..91cd5ee2 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -292,7 +292,6 @@ [(BYHOUR) (memv (hour t) values)] [(BYMINUTE) (memv (minute t) values)] [(BYSECOND) (memv (second t) values)] - ;; TODO ;; [(BYSETPOS)] [else (error "Unknown by-limiter")]) @@ -300,7 +299,6 @@ (define-stream (limit-recurrence-set rrule date-stream) - ;; TODO BYSETPOS (stream-filter ;; filter inlavid datetimes (feb 30, times droped due to zone-shift, ...) (lambda (dt) -- cgit v1.2.3