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, 37 insertions, 0 deletions

diff --git a/module/entry-points/import.scm b/module/entry-points/import.scm
new file mode 100644
index 00000000..5558433b
--- /dev/null
+++ b/module/entry-points/import.scm
@@ -0,0 +1,37 @@
+(define-module (entry-points import)
+  :export (main)
+  :use-module (util)
+  :use-module (ice-9 getopt-long)
+  )
+
+(define options
+  '((calendar (value #t) (single-char #\c))
+    (source (value #t) (single-char #\f))
+    ))
+
+(define (import-main calenadrs events args)
+  (define opts (getopt-long args options))
+
+  (define calendar (option-ref opts 'calendar #f))
+
+  (unless calendar
+    (format (current-error-port)
+            "Everything wroong~%"))
+
+
+  ;; TODO save sourcetype and dir for vdir calendars
+
+  #;
+  (let ((component (make-vcomponent (option-ref args 'source "/dev/stdin")))) ;
+                                        ;
+    ;; Check UID                        ;
+    ;; Add to calendar                  ;
+    ;; Allocate file, save there        ;
+                                        ;
+  )
+
+
+  )
+
+(define (main . _)
+  'noop)