From 6c37a4c00cd420e50d0cd2ad088268bcbb3d9155 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 1 Apr 2020 21:01:17 +0200
Subject: Update remaining code to use new config scheme.

---
 config.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'config.scm')

diff --git a/config.scm b/config.scm
index 832cad23..fb09deb3 100644
--- a/config.scm
+++ b/config.scm
@@ -9,12 +9,11 @@
              ;; (ice-9 rdelim)
              (sxml simple)
              (glob)
-             (datetime util)
 
-             (util config all)
+             (util config)
              )
 
-(calendar-files (glob "~/.local/var/cal/*"))
+(set-config! 'calendar-files (glob "~/.local/var/cal/*"))
 
 ;;; TODO possibly replace with propper lookup
 (define my-courses
@@ -28,7 +27,7 @@
 (define* (aref alist key optional: default)
   (or (assoc-ref alist key) default key))
 
-(summary-filter
+(set-config! 'summary-filter
  (lambda (ev str)
    (regexp-substitute/global
     #f "T[A-Z]{3}[0-9]{2}" str
@@ -60,7 +59,7 @@
                  (a (match:substring m))
                  (recur (match:suffix m)))))))
 
-(description-filter
+(set-config! 'description-filter
  (lambda (ev str)
    (cond [(member (attr (parent ev) 'NAME)
                   '("D-sektionens officiella kalender" "LiTHe kod"))
@@ -69,4 +68,4 @@
                         'pre "<br/>" 'post))]
          [else (parse-links str)])))
 
-(week-start mon)
+(set-config! 'week-start (@ (datetime util) mon))
-- 
cgit v1.2.3