aboutsummaryrefslogtreecommitdiff
path: root/module/parameters.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/parameters.scm')
-rw-r--r--module/parameters.scm33
1 files changed, 0 insertions, 33 deletions
diff --git a/module/parameters.scm b/module/parameters.scm
deleted file mode 100644
index d58c6333..00000000
--- a/module/parameters.scm
+++ /dev/null
@@ -1,33 +0,0 @@
-;;; 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 (format #f "Value [~s] doesn't satisfy condition ~a"
- v (or (procedure-name pred?) ""))))
- v))
-
-(define-public calendar-files
- (make-parameter
- '() (ensure list?)))
-
-(define-public summary-filter
- (make-parameter (lambda (_ a) a) (ensure procedure?)))
-
-;; ev x str -> sxml
-(define-public description-filter
- (make-parameter (lambda (_ a) a) (ensure procedure?)))
-
-(use-modules (datetime util))
-
-(define-public week-start
- (make-parameter sun (ensure (lambda (x) (<= sun x sat)))))