From f6b448ae8f1935c0fce7f90c38fd63091499675e Mon Sep 17 00:00:00 2001 From: blankie Date: Sat, 8 Oct 2022 22:42:43 +0700 Subject: [PATCH] idfk --- src/page-file.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/page-file.rkt b/src/page-file.rkt index 2a82def..953d04f 100644 --- a/src/page-file.rkt +++ b/src/page-file.rkt @@ -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