diff options
Diffstat (limited to 'module/output/import.scm')
-rw-r--r-- | module/output/import.scm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/module/output/import.scm b/module/output/import.scm new file mode 100644 index 00000000..47f4fd47 --- /dev/null +++ b/module/output/import.scm @@ -0,0 +1,31 @@ +(define-module (output import) + :use-module (util)) + +(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 ; + ; + ) + + + ) |