From 868fcec0dc3f9df0aca3c8876179c73cb5ede44f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 23 Apr 2019 21:21:15 +0200 Subject: Add ability to set start-date of term mode. --- module/main.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'module/main.scm') 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))) -- cgit v1.2.3