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

Prepare for loading initial configuration.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-09 17:13:34 +02:00
parent 8dcc00b516
commit 64c1c7b4f7
2 changed files with 20 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/hackerbase.scm
View file

@ -57,7 +57,6 @@
(newline)
;; Command-line options and configurable parameters
(define -apikeys-file- (make-parameter "apikey.ntlm"))
(define -needs-bank- (make-parameter #f))
(define -member-id- (make-parameter #f))
(define -member-nick- (make-parameter #f))
@ -65,9 +64,7 @@
(define -fname- (make-parameter #f))
(define -run-tests?- (make-parameter #f))
(define -web-dir- (make-parameter #f))
(define -bank-dir- (make-parameter #f))
(define -normal-month- (make-parameter #t))
(define -jendasap-checked- (make-parameter "checked.ntlm"))
(define -ml-all- (make-parameter #f))
(define -show-destroyed- (make-parameter #f))
(define -notify-months- (make-parameter 1))
@ -95,11 +92,11 @@
(-tstyle (style) "Use given table style: debug, ascii, unicode"
(*table-border-style* (string->symbol style)))
(-apikey (fname) "File with Fio API keys"
(-apikeys-file- fname))
(*apikeys-file* fname))
(-bankdir (dir) "Where are bank CSV files"
(-bank-dir- dir))
(*bank-dir* dir))
(-checked (file) "JendaSAP checked.ntlm file"
(-jendasap-checked- file))
(*jendasap-checked* file))
(-ml-all () "Load all mailman lists"
(-ml-all- #t))
(-destroyed () "Show destroyed members in -fees"
@ -180,7 +177,7 @@
(if (-action-)
(let ((mb (load-members (*members-directory*) #t)))
(if (-needs-bank-)
(members-payments-process mb (-apikeys-file-) (-bank-dir-) (-jendasap-checked-))
(members-payments-process mb (*apikeys-file*) (*bank-dir*) (*jendasap-checked*))
mb))
#f))