From ef901153404d24ca1694a2b98e845eaca47aa085 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 23 Apr 2019 18:46:09 +0200 Subject: Change how util is loaded. --- module/parameters.scm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 module/parameters.scm (limited to 'module/parameters.scm') 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?))) -- cgit v1.2.3