1 files changed, 5 insertions, 8 deletions
diff --git a/config.scm b/config.scm
index 04b63b71..c0e4e639 100644
--- a/config.scm
+++ b/config.scm
@@ -84,18 +84,15 @@
                  [else (list line '(br))])))
        (string-split str #\newline)))
 
-(define html-cals
-  '("D-sektionens officiella kalender"
-    "LiTHe kod"
-    "Klassfadder 2020"))
+(define html-rx
+  (make-regexp "</?\\w+( +\\w+(=[\"']?\\w+[\"']?)?)* */?>"))
 
 ((@ (calp html filter) description-filter)
  (lambda (ev str)
-   (cond [(member (prop (parent ev) 'NAME)
-                  html-cals)
-          (parse-html str)]
-         [(prop ev 'X-MICROSOFT-SKYPETEAMSMEETINGURL)
+   (cond [(prop ev 'X-MICROSOFT-SKYPETEAMSMEETINGURL)
           (parse-teams-description str)]
+         [(regexp-exec html-rx str)
+           (parse-html str)]
          [else (parse-links str)])))
 
 ((@ (datetime) week-start) mon)