diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 19:12:48 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 19:12:48 +0200 |
commit | 4810e380ed10c1983f00944d31716f1d0683b6a5 (patch) | |
tree | 42b09db2aa5fe98b832b015db8b5cd88a1ba4d04 /module/main.scm | |
parent | Fix terminal output. (diff) | |
download | calp-4810e380ed10c1983f00944d31716f1d0683b6a5.tar.gz calp-4810e380ed10c1983f00944d31716f1d0683b6a5.tar.xz |
Add command line option parsing.
Diffstat (limited to 'module/main.scm')
-rwxr-xr-x | module/main.scm | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/module/main.scm b/module/main.scm index 760aedf8..58ea8ae7 100755 --- a/module/main.scm +++ b/module/main.scm @@ -23,6 +23,8 @@ (html html) + (ice-9 getopt-long) + (parameters) ) @@ -156,10 +158,17 @@ (cons (list->stream regular) (map generate-recurrence-set repeating)))))) +(define options + '((mode (value #t) (single-char #\m)) + (date (value #t) (single-char #\d)) + )) + (define (main args) - ;; (init (lambda (calendars events) - ;; (with-vulgar - ;; (lambda () (main-loop events))))) - ((@ (sxml simple) sxml->xml) (init html-main)) - (newline) - ) + (let ((opts (getopt-long args options #:stop-at-first-non-option #t))) + (init + (case (string->symbol (option-ref opts 'mode "term")) + ((html) html-main) + ((term) (lambda (calendars events) + (with-vulgar + (lambda () (main-loop events))))))) + (newline))) |