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

idfk

Browse source
This commit is contained in:
blankie 2022-10-08 22:42:43 +07:00
parent 1c676fd5a0
commit f6b448ae8f
Signed by: blankie
GPG key ID: CC15FC822C7F61F5
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/page-file.rkt
View file

@ -32,15 +32,15 @@
(log-outgoing image-url)
(define dest-res (easy:head image-url #:timeouts timeouts))
(define content-type (easy:response-headers-ref dest-res 'Content-Type))
`(cond
[(eq? content-type #f) ""]
(cond
[(eq? content-type #f) `""]
[(regexp-match? #rx"^image/" content-type)
'(img (@ (src ,(u-proxy-url image-url))))]
`(img (@ (src ,(u-proxy-url image-url))))]
[(regexp-match? #rx"^audio/" content-type)
'(audio (@ (src ,(u-proxy-url image-url)) (controls)))]
`(audio (@ (src ,(u-proxy-url image-url)) (controls)))]
[(regexp-match? #rx"^video/" content-type)
'(video (@ (src ,(u-proxy-url image-url)) (controls)))]
[else ""]))
`(video (@ (src ,(u-proxy-url image-url)) (controls)))]
[else `""]))
(define (generate-results-page
#:source-url source-url