Add ability to set start-date of term mode.

1 files changed, 6 insertions, 7 deletions

diff --git a/module/main.scm b/module/main.scm
index b20134f9..d0ddac48 100755
--- a/module/main.scm
+++ b/module/main.scm
@@ -44,16 +44,15 @@
             (map generate-recurrence-set repeating))))))
 
 (define options
-  '((mode (value #t) (single-char #\m))
-    (date (value #t) (single-char #\d))
-    ))
+  '((mode (value #t) (single-char #\m))))
 
 (define (main args)
   (let ((opts (getopt-long args options #:stop-at-first-non-option #t)))
     (init
      (lambda (c e)
-       ((case (string->symbol (option-ref opts 'mode "term"))
-          ((html) html-main)
-          ((term) terminal-main))
-        c e (option-ref opts '() '()))))
+       (let ((ropt (option-ref opts '() '("term"))))
+         ((case (string->symbol (car ropt))
+            ((html) html-main)
+            ((term) terminal-main))
+          c e ropt))))
     (newline)))