Finish stdout util and bump dev version.
This commit is contained in:
parent
7a19204242
commit
5fed8899a4
4 changed files with 14 additions and 8 deletions
|
@ -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!)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue