From 9f414cb5721a84f54c15cfc9da808104e4e25a3c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 29 May 2019 18:14:24 +0200 Subject: Reword how statprof is loaded. --- module/output/import.scm | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 module/output/import.scm (limited to 'module/output/import.scm') 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 ; + ; + ) + + + ) -- cgit v1.2.3