Rework program initialization.

Old init setup had the fancy idea to parse all files before anything
could be done with them. This however led to problems when a part of the
program which didn't care for the calendar files (such as text
formatting).

It also made testing performance almost impossible since to much code
was run before I had a chance to init statprof.

1 files changed, 30 insertions, 0 deletions

diff --git a/module/entry-points/ical.scm b/module/entry-points/ical.scm
new file mode 100644
index 00000000..99253160
--- /dev/null
+++ b/module/entry-points/ical.scm
@@ -0,0 +1,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)))]))
+
+  (define-values (calendars events)
+    (load-calendars
+     calendar-files: (cond [(option-ref opts 'file #f) => list]
+                           [else (calendar-files)]) ))
+
+  (ical-main calendars events start end)
+ )