From 1c676fd5a0a95e4e03ab9b0db64deea40e25d727 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Sat, 8 Oct 2022 22:41:43 +0700
Subject: [PATCH] ???

---
 src/page-file.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/page-file.rkt b/src/page-file.rkt
index c4a1a1f..2a82def 100644
--- a/src/page-file.rkt
+++ b/src/page-file.rkt
@@ -32,7 +32,7 @@
   (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))))]
@@ -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)
            `""