From 1a996e7c89295d5d1851c7f670f6318e3c91c0c9 Mon Sep 17 00:00:00 2001 From: blankie Date: Sun, 9 Oct 2022 10:45:37 +0700 Subject: [PATCH] odd --- src/page-file.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/page-file.rkt b/src/page-file.rkt index 7fc9bd1..ef1c2f4 100644 --- a/src/page-file.rkt +++ b/src/page-file.rkt @@ -36,11 +36,11 @@ (define (get-media-html url content-type) (cond [(eq? content-type #f) `""] - [(regexp-match? #rx"^(?i)image/" content-type) + [(regexp-match? #rx"(?i:^image/)" content-type) `(img (@ (src ,url)))] - [(regexp-match? #rx"^(?i)audio/|^(?i)application/ogg(;|$)" content-type) + [(regexp-match? #rx"(?i:^audio/|^application/ogg(;|$))" content-type) `(audio (@ (src ,url) (controls)))] - [(regexp-match? #rx"^(?i)video/" content-type) + [(regexp-match? #rx"(?i:^video/)" content-type) `(video (@ (src ,url) (controls)))] [else `""]))