Load sender address from configuration.

This commit is contained in:
Dominik Pantůček 2023-04-12 20:10:00 +02:00
parent 8e188a0a8c
commit 073c1efbc6
4 changed files with 16 additions and 10 deletions

View file

@ -62,6 +62,7 @@
(define =apikeys-file= (make-parameter #f))
(define =jendasap-checked= (make-parameter #f))
(define =bank-dir= (make-parameter #f))
(define =email-from= (make-parameter #f))
;; Arguments parsing
(command-line
@ -108,7 +109,7 @@
(-quiet- #t)
(*progress-quiet* #t))
(-from (email) "Sender email address"
(*reminder-from* email))
(=email-from= email))
""
"Query options:"
(-mi (id) "Specify member by id" (-member-id- (string->number id)))
@ -179,6 +180,8 @@
(*jendasap-checked* (=jendasap-checked=)))
(when (=bank-dir=)
(*bank-dir* (=bank-dir=)))
(when (=email-from=)
(*email-from* (=email-from=)))
;; Run tests
(when (-run-tests?-)