blob: 92d0d31c7afbf365938ab6f5deb5966a7890f5e1 (
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
|
(define-module (entry-points ical)
:export (main)
:use-module (util)
:use-module (output ical)
:use-module ((vcomponent) :select (load-calendars*))
:use-module ((parameters) :select (calendar-files))
:use-module (ice-9 getopt-long)
:use-module (srfi srfi-19)
:use-module (srfi srfi-19 util)
)
(define opt-spec
'((from (value #t) (single-char #\F))
(to (value #t) (single-char #\T))))
(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 (date-month start) = (+ 1)))]))
;; TODO this contains repeated events multiple times
(define-values (calendars regular repeating)
(load-calendars* calendar-files: (cond [(option-ref opts 'file #f) => list]
[else (calendar-files)]) ))
(ical-main calendars regular repeating start end)
)
|