(define-module (entry-points html)
:export (main)
:use-module (output html)
:use-module (util)
:use-module (vcomponent)
:use-module (srfi srfi-19 alt)
:use-module (srfi srfi-19 alt util)
:use-module (ice-9 getopt-long)
:use-module (parameters)
)
(define opt-spec
'((from (value #t) (single-char #\F))
(to (value #t) (single-char #\T))
(file (value #t) (single-char #\f))
(chunked)))
(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 (date+ start (date month: 1)) ]))
(define-values (calendars events)
(load-calendars
calendar-files: (cond [(option-ref opts 'file #f) => list]
[else (calendar-files)]) ))
((@ (srfi srfi-41) stream->list) events)
(if (option-ref opts 'chunked #f)
(html-chunked-main calendars events start)
(html-generate calendars events start end)))