Prepare overrides.

src/configuration.scm

@@ -29,9 +29,12 @@
  configuration
  (
   *current-month*
+  
   *member-suspend-max-months*
-  *members-directory*
+  
   *etc-hackerbase*
+  
+  *members-directory*
   *apikeys-file*
   *jendasap-checked*
   *bank-dir*
@@ -53,12 +56,12 @@
  ;; How long the member can be suspended without any action required?
  (define *member-suspend-max-months* (make-parameter 24))
 
- ;; Needed by multiple modules actually
- (define *members-directory* (make-parameter "members"))
-
  ;; Where to load initial configuration from
  (define *etc-hackerbase* (make-parameter "/etc/hackerbase"))
 
+ ;; Needed by multiple modules actually
+ (define *members-directory* (make-parameter "members"))
+
  ;; List of bank accounts and Fio API keys (no support for other banks now)
  (define *apikeys-file* (make-parameter "apikey.ntlm"))
 

src/hackerbase.scm

@@ -69,6 +69,12 @@
 (define -show-destroyed- (make-parameter #f))
 (define -notify-months- (make-parameter 1))
 
+;; Configuration overrides
+(define =members-directory= (make-parameter #f))
+(define =apikeys-file= (make-parameter #f))
+(define =jendasap-checked= (make-parameter #f))
+(define =bank-dir= (make-parameter #f))
+
 ;; Arguments parsing
 (command-line
  print-help
@@ -154,6 +160,18 @@
 	   (-action- 'notify))
  )
 
+;; Load default configuration
+
+;; Override from command-line
+(when (=members-directory=)
+  (*members-directory* (=members-directory=)))
+(when (=apikeys-file=)
+  (*apikeys-file* (=apikeys-file=)))
+(when (=jendasap-checked=)
+  (*jendasap-checked* (=jendasap-checked=)))
+(when (=bank-dir=)
+  (*bank-dir* (=bank-dir=)))
+
 ;; Run tests
 (when (-run-tests?-)
   (listing-tests!)