aboutsummaryrefslogtreecommitdiff
path: root/system
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-04-09 21:58:52 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2022-04-11 19:08:40 +0200
commitf1532b4eca797f5aab4ec1a693a767a7a3e603c9 (patch)
treecd6f0fab78e36a67451aceac5e042e45d061e5f1 /system
parentFix loop in import entry-point. (diff)
downloadcalp-f1532b4eca797f5aab4ec1a693a767a7a3e603c9.tar.gz
calp-f1532b4eca797f5aab4ec1a693a767a7a3e603c9.tar.xz
Replace config system with paramater based system.
This new setup stores all configurations are parameters. This forces everything into modules, and ensures that we can't have a module use an unloaded config. It (unfortunatelly) also causes users to have to specify namespaces when defining values, but ini-files (and the like) already does that. Also, there is nothing stopping a new `set-config!' from being defined which allows un-namespaced operation. The commit also removes the introspection procedures. They where a bit weird to begin with, since they only showed loaded fields. And since the program had no way of properly serializing or deserializing them we remove them for the time being. They would however be good to reintroduce together with a proper menu for editing simple configuration (see Emacs' `custom-set-variables').
Diffstat (limited to 'system')
-rw-r--r--system/config.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/system/config.scm b/system/config.scm
index 6e765fcb..6e6defe6 100644
--- a/system/config.scm
+++ b/system/config.scm
@@ -3,7 +3,7 @@
((datetime) :select (mon))
(glob))
-(set-config! 'calendar-files (glob "/var/lib/calp/.local/var/cal/*"))
+((@ (vcomponent) calendar-files) (glob "/var/lib/calp/.local/var/cal/*"))
(define (parse-links str)
(define regexp (make-regexp "https?://\\S+"))
@@ -15,11 +15,11 @@
(a (match:substring m))
(recur (match:suffix m)))))))
-(set-config! 'description-filter
+((@ (calp html vcomponent) description-filter)
(lambda (ev str) (parse-links str)))
-(set-config! 'week-start mon)
+((@ (datetime) week-start) mon)
;; (set-config! 'default-calendar "Calendar")
-(set-config! 'port 8082)
-(set-config! 'edit-mode #t)
+((@ (calp entry-points server) port) 8082)
+((@ (calp html config) edit-mode) #t)