aboutsummaryrefslogtreecommitdiff
path: root/module/entry-points/terminal.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-08-17 17:52:01 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-08-17 17:52:01 +0200
commit6a219c59e6506ee5326822a7ced0e6cd92b7b628 (patch)
tree3cf44cef098fb0a98137abd7942d8aa10592ddfc /module/entry-points/terminal.scm
parentstuff. (diff)
downloadcalp-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.scm28
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))))
-)