diff options
Diffstat (limited to 'module/entry-points/import.scm')
-rw-r--r-- | module/entry-points/import.scm | 37 |
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) |