From c0040b38989c3bada48187d316bb94218cfcdfb9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 26 Jun 2023 13:45:57 +0200 Subject: [PATCH] Add dokuwiki base dir to configuration. --- doc/formats.md | 1 + doc/specification.md | 2 ++ src/configuration.scm | 13 +++++++++++-- 3 files changed, 14 insertions(+), 2 deletions(-) diff --git a/doc/formats.md b/doc/formats.md index 7314b29..ac5ccb8 100644 --- a/doc/formats.md +++ b/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 ------------- diff --git a/doc/specification.md b/doc/specification.md index 502e312..c4ba5a1 100644 --- a/doc/specification.md +++ b/doc/specification.md @@ -75,6 +75,8 @@ configuration values. *email-from* *summary-mailto* + +*dokuwiki* (load-configuration!) diff --git a/src/configuration.scm b/src/configuration.scm index f3ea596..731a44c 100644 --- a/src/configuration.scm +++ b/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 ") - ;; 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=))) )