brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Load sender address from configuration.

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

8
src/configuration.scm
View file

@ -38,6 +38,7 @@
*apikeys-file*
*jendasap-checked*
*bank-dir*
*email-from*
load-configuration!
)
@ -79,6 +80,9 @@
;; Where are the bank CSV files
(define *bank-dir* (make-parameter #f))
;; From address for emails
(define *email-from* (make-parameter "Brmlab - Rada <rada@brmlab.cz>"))
;; Loads the configuration file and possibly changes the default
;; parameters.
(define (load-configuration!)
@ -95,7 +99,9 @@
((members-directory) (*members-directory* v))
((apikeys-file) (*apikeys-file* v))
((jendasap-checked) (*jendasap-checked* v))
((bank-dir) (*bank-dir* v)))))
((bank-dir) (*bank-dir* v))
((email-from) (*email-from* v))
)))
(loop (cdr lines)))))))
)