Prepare overrides.
This commit is contained in:
parent
64c1c7b4f7
commit
8bf07ec897
2 changed files with 25 additions and 4 deletions
|
@ -69,6 +69,12 @@
|
|||
(define -show-destroyed- (make-parameter #f))
|
||||
(define -notify-months- (make-parameter 1))
|
||||
|
||||
;; Configuration overrides
|
||||
(define =members-directory= (make-parameter #f))
|
||||
(define =apikeys-file= (make-parameter #f))
|
||||
(define =jendasap-checked= (make-parameter #f))
|
||||
(define =bank-dir= (make-parameter #f))
|
||||
|
||||
;; Arguments parsing
|
||||
(command-line
|
||||
print-help
|
||||
|
@ -154,6 +160,18 @@
|
|||
(-action- 'notify))
|
||||
)
|
||||
|
||||
;; Load default configuration
|
||||
|
||||
;; Override from command-line
|
||||
(when (=members-directory=)
|
||||
(*members-directory* (=members-directory=)))
|
||||
(when (=apikeys-file=)
|
||||
(*apikeys-file* (=apikeys-file=)))
|
||||
(when (=jendasap-checked=)
|
||||
(*jendasap-checked* (=jendasap-checked=)))
|
||||
(when (=bank-dir=)
|
||||
(*bank-dir* (=bank-dir=)))
|
||||
|
||||
;; Run tests
|
||||
(when (-run-tests?-)
|
||||
(listing-tests!)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue