diff options
Diffstat (limited to '')
-rw-r--r-- | module/parameters.scm | 33 |
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))))) |