aboutsummaryrefslogtreecommitdiff
path: root/module/entry-points/ical.scm
blob: f2f4e0b5af47971bc9d4b73f383c148040719725 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
(define-module (entry-points ical)
  :export (main)
  :use-module (util)
  :use-module (output ical)
  :use-module ((vcomponent) :select (load-calendars*))
  :use-module (ice-9 getopt-long)
  :use-module (datetime)
  :use-module (datetime util)
  )

(define opt-spec
  '((from (value #t) (single-char #\F))
    (to (value #t) (single-char #\T))
    (file (value #t) (single-char #\f))))

(define (main args)
  (define opts (getopt-long args opt-spec))

  (define start (cond [(option-ref opts 'from #f) => parse-freeform-date]
                      [else (start-of-month (current-date))]))
  (define end   (cond [(option-ref opts 'to  #f) => parse-freeform-date]
                      ;; [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)
 )