From 85e23c803a205d002b2638b6d52e5062542e271e Mon Sep 17 00:00:00 2001 From: blankie Date: Sat, 8 Oct 2022 22:40:47 +0700 Subject: [PATCH] ' --- src/page-file.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/page-file.rkt b/src/page-file.rkt index 5d4b886..c4a1a1f 100644 --- a/src/page-file.rkt +++ b/src/page-file.rkt @@ -32,14 +32,14 @@ (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 + (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)))] + '(video (@ (src ,(u-proxy-url image-url)) (controls)))] [else ""])) (define (generate-results-page @@ -67,7 +67,7 @@ `(div ,(if (non-empty-string? video-embed-code) (update-tree-wiki (html->xexp (preprocess-html-wiki video-embed-code)) wikiname) - (html-from-url image-url)) + `(html-from-url image-url)) (p ,(if (non-empty-string? video-embed-code) `""