diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 17:52:01 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 17:52:01 +0200 |
commit | 6a219c59e6506ee5326822a7ced0e6cd92b7b628 (patch) | |
tree | 3cf44cef098fb0a98137abd7942d8aa10592ddfc /module/entry-points/terminal.scm | |
parent | stuff. (diff) | |
download | calp-6a219c59e6506ee5326822a7ced0e6cd92b7b628.tar.gz calp-6a219c59e6506ee5326822a7ced0e6cd92b7b628.tar.xz |
Move a bunch of files into calp module.
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)))) -) |