1 files changed, 28 insertions, 0 deletions
diff --git a/module/calp/entry-points/terminal.scm b/module/calp/entry-points/terminal.scm
new file mode 100644
index 00000000..5a9b2588
--- /dev/null
+++ b/module/calp/entry-points/terminal.scm
@@ -0,0 +1,28 @@
+(define-module (calp 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))))
+)