diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 17:48:31 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 17:48:31 +0200 |
commit | 59b1fed40dfc93f7dc02e1dbd7a6285046e4c68f (patch) | |
tree | b1bc4980abdff1a1a23fa9f407448f38ffd6f16e /config.scm | |
parent | Selected event now glows. (diff) | |
download | calp-59b1fed40dfc93f7dc02e1dbd7a6285046e4c68f.tar.gz calp-59b1fed40dfc93f7dc02e1dbd7a6285046e4c68f.tar.xz |
stuff.
Diffstat (limited to 'config.scm')
-rw-r--r-- | config.scm | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -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))] |