From df7145e5d13f2884266ceb44276fded522c9d8d1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 21 Feb 2020 16:12:30 +0100
Subject: add dirty hack to handle "some" bad HTML.

---
 config.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'config.scm')

diff --git a/config.scm b/config.scm
index 4efdccb6..ef381bfd 100644
--- a/config.scm
+++ b/config.scm
@@ -54,7 +54,8 @@
 
 (description-filter
  (lambda (ev str)
-   (cond [(member (attr (parent ev) 'NAME) '("d_sektionen" #; "lithekod"
-                                             ))
-          (parse-html str)]
+   (cond [(member (attr (parent ev) 'NAME) '("d_sektionen" "lithekod"))
+          (parse-html (regexp-substitute/global
+                        #f "<br>" str
+                        'pre "<br/>" 'post))]
          [else (parse-links str)])))
-- 
cgit v1.2.3