From 59b1fed40dfc93f7dc02e1dbd7a6285046e4c68f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 17 Aug 2020 17:48:31 +0200
Subject: stuff.

---
 config.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'config.scm')

diff --git a/config.scm b/config.scm
index ec40773c..ac20024e 100644
--- a/config.scm
+++ b/config.scm
@@ -66,10 +66,16 @@
                  (a (match:substring m))
                  (recur (match:suffix m)))))))
 
+(define html-cals
+  '("D-sektionens officiella kalender"
+    "LiTHe kod"
+    "Klassfadder 2020"))
+
 (set-config! 'description-filter
  (lambda (ev str)
    (cond [(member (prop (parent ev) 'NAME)
-                  '("D-sektionens officiella kalender" "LiTHe kod"))
+                  html-cals
+                  )
           (parse-html (regexp-substitute/global
                         #f "<br>" str
                         'pre "<br/>" 'post))]
-- 
cgit v1.2.3