diff options
Diffstat (limited to 'module/entry-points/terminal.scm')
-rw-r--r-- | module/entry-points/terminal.scm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/module/entry-points/terminal.scm b/module/entry-points/terminal.scm deleted file mode 100644 index d44fb1e8..00000000 --- a/module/entry-points/terminal.scm +++ /dev/null @@ -1,28 +0,0 @@ -(define-module (entry-points terminal) - :export (main) - :use-module (output terminal) - :use-module (vcomponent) - :use-module (ice-9 getopt-long) - :use-module (datetime) - :use-module (vulgar) - :use-module (util options) - ) - -(define options - '((date (value #t) (single-char #\d) - (description "Which date to start on.")) - (help (single-char #\t) (description "Print this help.")) - )) - -(define (main args) - (define opts (getopt-long args (getopt-opt options))) - - (when (option-ref opts 'help #f) - (print-arg-help options) - (throw 'return)) - - (let ((date (or (and=> (option-ref opts 'date #f) parse-freeform-date) - (current-date)))) - (with-vulgar - (lambda () (main-loop date)))) -) |