From 396f288a9fb1fd3e76f8829ae97def94d8845ef7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 4 May 2020 17:32:48 +0200 Subject: Repair term + add --help. --- module/entry-points/terminal.scm | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) (limited to 'module/entry-points/terminal.scm') diff --git a/module/entry-points/terminal.scm b/module/entry-points/terminal.scm index 9f486d90..a2c41f44 100644 --- a/module/entry-points/terminal.scm +++ b/module/entry-points/terminal.scm @@ -6,21 +6,25 @@ :use-module (datetime) :use-module (datetime util) :use-module (vulgar) + :use-module (util options) ) (define options - '((date (value #t) (single-char #\d)) - (file (value #t) (single-char #\f)))) + '((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 options)) - (define-values (calendars events) - (cond [(option-ref opts 'file #f) => (compose load-calendars list)] - [else (load-calendars)])) + (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)))) ;; (format (current-error-port) "len(events) = ~a~%" (stream-length events)) (with-vulgar - (lambda () (main-loop date events)))) + (lambda () (main-loop date)))) ) -- cgit v1.2.3