diff options
| -rw-r--r-- | module/vcomponent/recurrence/display/test.scm | 4 | ||||
| -rw-r--r-- | module/vcomponent/recurrence/generate.scm | 2 |
2 files changed, 0 insertions, 6 deletions
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) |