Prepare overrides.

This commit is contained in:
Dominik Pantůček 2023-04-09 17:18:27 +02:00
parent 64c1c7b4f7
commit 8bf07ec897
2 changed files with 25 additions and 4 deletions

View file

@ -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!)