Finish stdout util and bump dev version.

This commit is contained in:
Dominik Pantůček 2023-05-10 20:21:41 +02:00
parent 7a19204242
commit 5fed8899a4
4 changed files with 14 additions and 8 deletions

View file

@ -43,7 +43,8 @@
cal-period
cal-month
util-git
util-dict-list)
util-dict-list
util-stdout)
;; Command-line options and configurable parameters
(define -needs-bank- (make-parameter #f))
@ -58,7 +59,6 @@
(define -show-destroyed- (make-parameter #f))
(define -notify-months- (make-parameter 1))
(define -send-emails- (make-parameter #f))
(define -quiet- (make-parameter #f))
;; Arguments parsing
(command-line
@ -104,7 +104,7 @@
(-logfile (filename) "Enable logging to file"
(*log-file* filename))
(-quiet () "Suppress all output"
(-quiet- #t)
(*stdout-quiet* #t)
(*progress-quiet* #t))
(-from (email) "Sender email address"
(*email-from* email))
@ -167,9 +167,8 @@
)
;; Print banner
(when (not (-quiet-))
(print banner-line)
(newline))
(stdout-print banner-line)
(stdout-newline)
;; Load default configuration
(load-configuration!)