Change how util is loaded.

1 files changed, 23 insertions, 0 deletions

diff --git a/module/parameters.scm b/module/parameters.scm
new file mode 100644
index 00000000..45b8862b
--- /dev/null
+++ b/module/parameters.scm
@@ -0,0 +1,23 @@
+;;; Commentary:
+
+;; This file should define all global configurable variables which
+;; doesn't belong anywhere else. The config module should then import
+;; this module, and set all configs as needed. The config module
+;; should also be able to set configs gotten from other parts.
+
+;;; Code:
+
+(define-module (parameters))
+
+(define (ensure pred?)
+  (lambda (v)
+    (unless (pred? v)
+      (error "Bad value to config"))
+    v))
+
+(define-public calendar-files
+  (make-parameter
+   '() (ensure list?)))
+
+(define-public summary-filter
+  (make-parameter (lambda (_ a) a) (ensure procedure?)))