diff --git a/src/configuration.scm b/src/configuration.scm index 7e83973..0926d31 100644 --- a/src/configuration.scm +++ b/src/configuration.scm @@ -32,7 +32,7 @@ *members-directory* *apikeys-file* - *jendasap-checked* + *checked-file* *bank-dir* *email-from* *summary-mailto* @@ -63,8 +63,8 @@ (define =apikeys-file= "apikey.ntlm") ;; Old last checket transaction id support - (define *jendasap-checked* (make-parameter #f)) - (define =jendasap-checked= "checked.ntlm") + (define *checked-file* (make-parameter #f)) + (define =checked-file= "checked.ntlm") ;; Where are the bank CSV files (define *bank-dir* (make-parameter #f)) @@ -96,9 +96,9 @@ ((apikeys-file) (when (not (*apikeys-file*)) (*apikeys-file* v))) - ((jendasap-checked) - (when (not (*jendasap-checked*)) - (*jendasap-checked* v))) + ((jendasap-checked checked-file) + (when (not (*checked-file*)) + (*checked-file* v))) ((bank-dir) (when (not (*bank-dir*)) (*bank-dir* v))) @@ -114,8 +114,8 @@ (*members-directory* =members-directory=)) (when (not (*apikeys-file*)) (*apikeys-file* =apikeys-file=)) - (when (not (*jendasap-checked*)) - (*jendasap-checked* =jendasap-checked=)) + (when (not (*checked-file*)) + (*checked-file* =checked-file=)) ;; No bank-dir - #f default (when (not (*email-from*)) (*email-from* =email-from=)) diff --git a/src/hackerbase.scm b/src/hackerbase.scm index a8f5f83..d3df497 100644 --- a/src/hackerbase.scm +++ b/src/hackerbase.scm @@ -98,8 +98,8 @@ (*apikeys-file* fname)) (-bankdir (dir) "Where are bank CSV files" (*bank-dir* dir)) - (-checked (file) "JendaSAP checked.ntlm file" - (*jendasap-checked* file)) + (-checked (file) "File with last checked bank transaction ID" + (*checked-file* file)) "" "Email options:" (-from (email) "Sender email address" @@ -215,7 +215,7 @@ (if (-action-) (let ((mb (load-mbase (*members-directory*) #t))) (if (-needs-bank-) - (members-payments-process mb (*apikeys-file*) (*bank-dir*) (*jendasap-checked*)) + (members-payments-process mb (*apikeys-file*) (*bank-dir*) (*checked-file*)) mb)) #f))