diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 18:37:03 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 18:37:03 +0200 |
commit | 8b426edf1b6d4de0ec825da8a34b1df7b51212db (patch) | |
tree | 7149e0f71ab49998d65ec95adfb1715490360bf0 /module/entry-points | |
parent | Add tzget script. (diff) | |
download | calp-8b426edf1b6d4de0ec825da8a34b1df7b51212db.tar.gz calp-8b426edf1b6d4de0ec825da8a34b1df7b51212db.tar.xz |
Update ical parts to use app context.
Diffstat (limited to 'module/entry-points')
-rw-r--r-- | module/entry-points/ical.scm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/module/entry-points/ical.scm b/module/entry-points/ical.scm index f2f4e0b5..dc060ec6 100644 --- a/module/entry-points/ical.scm +++ b/module/entry-points/ical.scm @@ -22,11 +22,4 @@ ;; [else (normalize-date* (set (month start) = (+ 1)))] [(date+ start (date month: 1))] )) - - ;; TODO this contains repeated events multiple times - (define-values (calendars regular repeating) - (cond [(option-ref opts 'file #f) => (compose load-calendars* list)] - [else (load-calendars*)])) - - (ical-main calendars regular repeating start end) - ) + (ical-main start end)) |