diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-02-21 16:12:30 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-02-21 16:12:30 +0100 |
| commit | df7145e5d13f2884266ceb44276fded522c9d8d1 (patch) | |
| tree | a998088e282c74defbc1ed1edf3150678825e99a /config.scm | |
| parent | Got ical output workign with new date system. (diff) | |
| download | calp-df7145e5d13f2884266ceb44276fded522c9d8d1.tar.gz calp-df7145e5d13f2884266ceb44276fded522c9d8d1.tar.xz | |
add dirty hack to handle "some" bad HTML.
Diffstat (limited to 'config.scm')
| -rw-r--r-- | config.scm | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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)]))) |