diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-18 20:44:25 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-18 20:44:25 +0200 |
commit | 0f66dcc489843886d0e092126b8c47fc20a27b54 (patch) | |
tree | 577dae0fcaf3635889e0bdb46c199e811e3f6253 /system/config.scm | |
parent | Made --port also option. (diff) | |
download | calp-0f66dcc489843886d0e092126b8c47fc20a27b54.tar.gz calp-0f66dcc489843886d0e092126b8c47fc20a27b54.tar.xz |
Move towards release.
Diffstat (limited to '')
-rw-r--r-- | system/config.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/system/config.scm b/system/config.scm new file mode 100644 index 00000000..bc3ce52c --- /dev/null +++ b/system/config.scm @@ -0,0 +1,20 @@ +(set-config! 'calendar-files (glob "/var/lib/calp/.local/var/cal/*")) + +(define (parse-links str) + (define regexp (make-regexp "https?://\\S+")) + (let recur ((str str)) + (let ((m (regexp-exec regexp str))) + (if (not m) + (list str) + (cons* (match:prefix m) + (a (match:substring m)) + (recur (match:suffix m))))))) + +(set-config! 'description-filter + (lambda (ev str) (parse-links str))) + +(set-config! 'week-start mon) +;; (set-config! 'default-calendar "Calendar") + +(set-config 'port 8082) +(set-config 'edit-mode #t) |