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

Format today as ISO date.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-17 21:46:56 +02:00
parent 779aa80ba3
commit 09bce0be88
3 changed files with 34 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/configuration.scm
View file

@ -35,6 +35,7 @@
*jendasap-checked*
*bank-dir*
*email-from*
*summary-mailto*
load-configuration!
)
@ -73,6 +74,10 @@
(define *email-from* (make-parameter #f))
(define =email-from= "Brmlab - Rada <rada@brmlab.cz>")
;; TODO - later move to configuration
(define *summary-mailto* (make-parameter #f))
(define =summary-mailto= "rada@brmlab.cz")
;; Loads the configuration file and possibly changes the default
;; parameters.
(define (load-configuration!)
@ -101,6 +106,9 @@
((email-from)
(when (not (*email-from*))
(*email-from* v)))
((summary-mailto)
(when (not (*summary-mailto*))
(*summary-mailto* v)))
)))
(loop (cdr lines))))))
(when (not (*members-directory*))
@ -111,6 +119,8 @@
(*jendasap-checked* =jendasap-checked=))
;; No bank-dir - #f default
(when (not (*email-from*))
(*email-from* =email-from=)))
(*email-from* =email-from=))
(when (not (*summary-mailto*))
(*summary-mailto* =summary-mailto=)))
)