diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 21:21:15 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 21:21:15 +0200 |
commit | 868fcec0dc3f9df0aca3c8876179c73cb5ede44f (patch) | |
tree | c615b3955eab10525b1c2b020a46f84a3f6fb8b9 /module/main.scm | |
parent | Move stuff from main. (diff) | |
download | calp-868fcec0dc3f9df0aca3c8876179c73cb5ede44f.tar.gz calp-868fcec0dc3f9df0aca3c8876179c73cb5ede44f.tar.xz |
Add ability to set start-date of term mode.
Diffstat (limited to 'module/main.scm')
-rwxr-xr-x | module/main.scm | 13 |
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))) |