blankie/breezewiki
1
0
Fork 0
forked from cadence/breezewiki
Code Issues Pull requests Projects Releases Packages Wiki Activity

odd

Browse source
This commit is contained in:
blankie 2022-10-09 10:45:37 +07:00
parent fb21700517
commit 1a996e7c89
Signed by: blankie
GPG key ID: CC15FC822C7F61F5
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/page-file.rkt
View file

@ -36,11 +36,11 @@
(define (get-media-html url content-type) (define (get-media-html url content-type)
(cond (cond
[(eq? content-type #f) `""] [(eq? content-type #f) `""]
[(regexp-match? #rx"^(?i)image/" content-type) [(regexp-match? #rx"(?i:^image/)" content-type)
`(img (@ (src ,url)))] `(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)))] `(audio (@ (src ,url) (controls)))]
[(regexp-match? #rx"^(?i)video/" content-type) [(regexp-match? #rx"(?i:^video/)" content-type)
`(video (@ (src ,url) (controls)))] `(video (@ (src ,url) (controls)))]
[else `""])) [else `""]))