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 +++++++-
 static/style.scss | 3 +++
 2 files changed, 10 insertions(+), 1 deletion(-)

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))]
diff --git a/static/style.scss b/static/style.scss
index 83b86c59..2e30f029 100644
--- a/static/style.scss
+++ b/static/style.scss
@@ -22,6 +22,9 @@ html, body {
             "main main events"
             "footer footer events";
 
+    /* main the graphical portion
+       of both the wide and the table
+       view */
     main {
         min-width: 0;  /* for wide */
         min-height: 0; /* for tall */
-- 
cgit v1.2.3