From 35a413167e323f8b0c9ea40fe7599ffb50e9e321 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 31 Mar 2020 16:46:02 +0200
Subject: Attempt at decentralized configuration system.

Placing all possible configuration items in a central (parameters)
module scales really badly. This idea that any module can register
configuration parameters is better. The current implementation however
has the drawback that it requires that the module exposing the parameter
is loaded before the value can be sat, but that scales even worse.

A probable solution would be to abandon binding everything to guile's
module system, and instead let (util config) provide a `conf-ref' and a
`conf-set!' procedures.

A `define-configuration' similar to emacs `defcustom' could be of use,
mainly for retroactively type checking parameters.
---
 module/entry-points/benchmark.scm | 2 +-
 module/entry-points/html.scm      | 2 +-
 module/entry-points/ical.scm      | 2 +-
 module/entry-points/server.scm    | 2 +-
 module/entry-points/terminal.scm  | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'module/entry-points')

diff --git a/module/entry-points/benchmark.scm b/module/entry-points/benchmark.scm
index eff4c261..a21b4630 100644
--- a/module/entry-points/benchmark.scm
+++ b/module/entry-points/benchmark.scm
@@ -4,7 +4,7 @@
   :use-module (ice-9 getopt-long)
   :use-module (util)
   :use-module (vcomponent)
-  :use-module (parameters)
+  :use-module (util config all)
   )
 
 
diff --git a/module/entry-points/html.scm b/module/entry-points/html.scm
index 71a68f44..bacc8038 100644
--- a/module/entry-points/html.scm
+++ b/module/entry-points/html.scm
@@ -8,7 +8,7 @@
   :use-module (datetime util)
   :use-module (ice-9 getopt-long)
 
-  :use-module (parameters)
+  :use-module (util config all)
   )
 
 
diff --git a/module/entry-points/ical.scm b/module/entry-points/ical.scm
index 9f7457c3..e2ee7dcf 100644
--- a/module/entry-points/ical.scm
+++ b/module/entry-points/ical.scm
@@ -3,7 +3,7 @@
   :use-module (util)
   :use-module (output ical)
   :use-module ((vcomponent) :select (load-calendars*))
-  :use-module ((parameters) :select (calendar-files))
+  :use-module ((util config all) :select (calendar-files))
   :use-module (ice-9 getopt-long)
   :use-module (datetime)
   :use-module (datetime util)
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index f90afa63..e3ce168a 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -2,7 +2,7 @@
   :export (main)
   :use-module (util)
   :use-module (vcomponent)
-  :use-module (parameters)
+  :use-module (util config all)
   )
 
 (use-modules* (web (server request response uri))
diff --git a/module/entry-points/terminal.scm b/module/entry-points/terminal.scm
index 09ae8004..0f2a85f0 100644
--- a/module/entry-points/terminal.scm
+++ b/module/entry-points/terminal.scm
@@ -5,7 +5,7 @@
   :use-module (ice-9 getopt-long)
   :use-module (datetime)
   :use-module (datetime util)
-  :use-module (parameters)
+  :use-module (util config all)
   :use-module (vulgar)
   )
 
-- 
cgit v1.2.3