()

Fandom sends a fake 404 to media if there's a Referer header that has an origin
that's not Fandom. However, we can choose not to send the header by setting
Referrer-Policy. See also:
https://developer.mozilla.org/en-US/docs/Web/HTTP/Headers/Referrer-Policy

src/page-file.rkt

@@ -25,17 +25,7 @@
 (module+ test
   (require rackunit)
   (define test-media-detail
-    '#hasheq((fileTitle . "Example file")
-             (videoEmbedCode . "")
-             (imageUrl . "https://static.wikia.nocookie.net/examplefile")
-             (rawImageUrl . "https://static.wikia.nocookie.net/examplefile")
-             (userName . "blankie")
-             (isPostedIn . #t)
-             (smallerArticleList . (#hasheq((title . "Example_article")
-                                            (titleText . "Example article"))))
-             (articleListIsSmaller . 0)
-             (exists . #t)
-             (imageDescription . #f))))
+    '#hasheq((fileTitle . "Example file") (videoEmbedCode . "") (imageUrl . "https://static.wikia.nocookie.net/examplefile") (rawImageUrl . "https://static.wikia.nocookie.net/examplefile") (userName . "blankie") (isPostedIn . #t) (smallerArticleList . (#hasheq((title . "Example_article") (titleText . "Example article")))) (articleListIsSmaller . 0) (exists . #t) (imageDescription . #f))))
 
 (define (url-content-type url)
   (log-outgoing url)
@@ -73,7 +63,8 @@
    #:wikiname wikiname
    #:title title
    #:license license
-   `(div ,(if (non-empty-string? video-embed-code)
+   `(div
+     ,(if (non-empty-string? video-embed-code)
           (update-tree-wiki (html->xexp (preprocess-html-wiki video-embed-code)) wikiname)
           (get-media-html image-url image-content-type))
      (p ,(if (non-empty-string? video-embed-code)
@@ -88,8 +79,7 @@
                              (define page-path (jp "/title" article))
                              (define title (jp "/titleText" article page-path))
                              `(span ,(if (eq? (car smaller-article-list) article) "" ", ")
-                                        (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
-                                           ,title)))
+                                    (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path))) ,title)))
                            smaller-article-list)
                     ,(if (eq? article-list-is-smaller 1) "…" "."))
              `""))
@@ -156,10 +146,9 @@
   (check-equal? (get-media-html "https://example.com" #f) `""))
 (module+ test
   (parameterize ([(config-parameter 'strict_proxy) "true"])
-    (check-not-false
-     ((query-selector
-       (attribute-selector 'src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fexamplefile")
-       (generate-results-page #:source-url ""
+    (check-not-false ((query-selector (attribute-selector 'src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fexamplefile")
+                                      (generate-results-page
+                                       #:source-url ""
                                        #:wikiname "test"
                                        #:title "File:Example file"
                                        #:media-detail test-media-detail