Add dokuwiki base dir to configuration.

doc/formats.md

@@ -134,6 +134,7 @@ are used to set initial values for runtime parameters:
 * bank-dir
 * email-from
 * summary-mailto
+* dokuwiki
 
 API Keys File
 -------------

doc/specification.md

@@ -75,6 +75,8 @@ configuration values.
 *email-from*
 
 *summary-mailto*
+
+*dokuwiki*
   
     (load-configuration!)
 

src/configuration.scm

@@ -36,6 +36,7 @@
   *bank-dir*
   *email-from*
   *summary-mailto*
+  *doku-base*
   
   load-configuration!
   )
@@ -73,10 +74,14 @@
  (define *email-from* (make-parameter #f))
  (define =email-from= "Brmlab - Rada <rada@brmlab.cz>")
 
- ;; TODO - later move to configuration
+ ;; Summary email address
  (define *summary-mailto* (make-parameter #f))
  (define =summary-mailto= "rada@brmlab.cz")
 
+ ;; DokuWiki base dir
+ (define *doku-base* (make-parameter #f))
+ (define =doku-base= "/var/www")
+
  ;; Loads the configuration file and possibly changes the default
  ;; parameters.
  (define (load-configuration!)
@@ -108,6 +113,8 @@
 		 ((summary-mailto)
 		  (when (not (*summary-mailto*))
 		    (*summary-mailto* v)))
+		 ((dokuwiki)
+		  (*doku-base* v))
 		 )))
 	   (loop (cdr lines))))))
    (when (not (*members-directory*))
@@ -120,6 +127,8 @@
    (when (not (*email-from*))
      (*email-from* =email-from=))
    (when (not (*summary-mailto*))
-     (*summary-mailto* =summary-mailto=)))
+     (*summary-mailto* =summary-mailto=))
+   (when (not (*doku-base*))
+     (*doku-base* =doku-base=)))
 
  )