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

shrug

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

14
src/page-file.rkt
View file

@ -31,17 +31,17 @@
(define (url-content-type url)
(log-outgoing url)
(define dest-res (easy:head url #:timeouts timeouts))
(easy:response-headers-ref dest-res 'Content-Type))
(easy:response-headers-ref dest-res 'content-type))
(define (get-media-html url content-type)
(cond
[(eq? content-type #f) `""]
[(regexp-match? #rx"^image/" content-type)
`(img (@ (src ,(u-proxy-url url))))]
[(regexp-match? #rx"^audio/|^application/ogg$" content-type)
`(audio (@ (src ,(u-proxy-url url)) (controls)))]
[(regexp-match? #rx"^video/" content-type)
`(video (@ (src ,(u-proxy-url url)) (controls)))]
[(regexp-match? #rx"^(?i)image/" content-type)
`(img (@ (src ,url)))]
[(regexp-match? #rx"^(?i)audio/|^(?i)application/ogg(;|$)" content-type)
`(audio (@ (src ,url) (controls)))]
[(regexp-match? #rx"^(?i)video/" content-type)
`(video (@ (src ,url) (controls)))]
[else `""]))
(define (generate-results-page