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

Rename jendasap-checked to checked-file.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-13 20:04:25 +02:00
parent fc099d027f
commit 647ce20cd3
2 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/configuration.scm
View file

@ -32,7 +32,7 @@
*members-directory* *members-directory*
*apikeys-file* *apikeys-file*
*jendasap-checked* *checked-file*
*bank-dir* *bank-dir*
*email-from* *email-from*
*summary-mailto* *summary-mailto*
@ -63,8 +63,8 @@
(define =apikeys-file= "apikey.ntlm") (define =apikeys-file= "apikey.ntlm")
;; Old last checket transaction id support ;; Old last checket transaction id support
(define *jendasap-checked* (make-parameter #f)) (define *checked-file* (make-parameter #f))
(define =jendasap-checked= "checked.ntlm") (define =checked-file= "checked.ntlm")
;; Where are the bank CSV files ;; Where are the bank CSV files
(define *bank-dir* (make-parameter #f)) (define *bank-dir* (make-parameter #f))
@ -96,9 +96,9 @@
((apikeys-file) ((apikeys-file)
(when (not (*apikeys-file*)) (when (not (*apikeys-file*))
(*apikeys-file* v))) (*apikeys-file* v)))
((jendasap-checked) ((jendasap-checked checked-file)
(when (not (*jendasap-checked*)) (when (not (*checked-file*))
(*jendasap-checked* v))) (*checked-file* v)))
((bank-dir) ((bank-dir)
(when (not (*bank-dir*)) (when (not (*bank-dir*))
(*bank-dir* v))) (*bank-dir* v)))
@ -114,8 +114,8 @@
(*members-directory* =members-directory=)) (*members-directory* =members-directory=))
(when (not (*apikeys-file*)) (when (not (*apikeys-file*))
(*apikeys-file* =apikeys-file=)) (*apikeys-file* =apikeys-file=))
(when (not (*jendasap-checked*)) (when (not (*checked-file*))
(*jendasap-checked* =jendasap-checked=)) (*checked-file* =checked-file=))
;; No bank-dir - #f default ;; No bank-dir - #f default
(when (not (*email-from*)) (when (not (*email-from*))
(*email-from* =email-from=)) (*email-from* =email-from=))

6
src/hackerbase.scm
View file

@ -98,8 +98,8 @@
(*apikeys-file* fname)) (*apikeys-file* fname))
(-bankdir (dir) "Where are bank CSV files" (-bankdir (dir) "Where are bank CSV files"
(*bank-dir* dir)) (*bank-dir* dir))
(-checked (file) "JendaSAP checked.ntlm file" (-checked (file) "File with last checked bank transaction ID"
(*jendasap-checked* file)) (*checked-file* file))
"" ""
"Email options:" "Email options:"
(-from (email) "Sender email address" (-from (email) "Sender email address"
@ -215,7 +215,7 @@
(if (-action-) (if (-action-)
(let ((mb (load-mbase (*members-directory*) #t))) (let ((mb (load-mbase (*members-directory*) #t)))
(if (-needs-bank-) (if (-needs-bank-)
(members-payments-process mb (*apikeys-file*) (*bank-dir*) (*jendasap-checked*)) (members-payments-process mb (*apikeys-file*) (*bank-dir*) (*checked-file*))
mb)) mb))
#f)) #f))