aboutsummaryrefslogtreecommitdiff
path: root/module/entry-points
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-03-31 16:46:02 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-03-31 16:46:02 +0200
commit35a413167e323f8b0c9ea40fe7599ffb50e9e321 (patch)
tree9b00917547b4a3e756aab29543fbb6574e0f7788 /module/entry-points
parentFix IPv6 binding for server. (diff)
downloadcalp-35a413167e323f8b0c9ea40fe7599ffb50e9e321.tar.gz
calp-35a413167e323f8b0c9ea40fe7599ffb50e9e321.tar.xz
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.
Diffstat (limited to 'module/entry-points')
-rw-r--r--module/entry-points/benchmark.scm2
-rw-r--r--module/entry-points/html.scm2
-rw-r--r--module/entry-points/ical.scm2
-rw-r--r--module/entry-points/server.scm2
-rw-r--r--module/entry-points/terminal.scm2
5 files changed, 5 insertions, 5 deletions
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)
)