Use overrides.

This commit is contained in:
Dominik Pantůček 2023-04-09 17:20:12 +02:00
parent 8bf07ec897
commit bab8883c2d

View file

@ -91,18 +91,19 @@
(exit 0)) (exit 0))
"" ""
"Configuration options:" "Configuration options:"
(-members (dir) "Members base directory" (*members-directory* dir)) (-members (dir) "Members base directory"
(=members-directory= dir))
(-month (YYYY-MM) "Specify current month" (-month (YYYY-MM) "Specify current month"
(-normal-month- #f) (-normal-month- #f)
(*current-month* (string->month YYYY-MM))) (*current-month* (string->month YYYY-MM)))
(-tstyle (style) "Use given table style: debug, ascii, unicode" (-tstyle (style) "Use given table style: debug, ascii, unicode"
(*table-border-style* (string->symbol style))) (*table-border-style* (string->symbol style)))
(-apikey (fname) "File with Fio API keys" (-apikey (fname) "File with Fio API keys"
(*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) "JendaSAP checked.ntlm file"
(*jendasap-checked* file)) (=jendasap-checked= file))
(-ml-all () "Load all mailman lists" (-ml-all () "Load all mailman lists"
(-ml-all- #t)) (-ml-all- #t))
(-destroyed () "Show destroyed members in -fees" (-destroyed () "Show destroyed members in -fees"