From c5922e36034eeff11697643e37c26a16e7cce298 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 25 Apr 2022 00:53:45 +0200 Subject: Scheme and js now finds HTML in text with same regex. --- config.scm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'config.scm') 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 "")) ((@ (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) -- cgit v1.2.3