prefix

src/page-file.rkt

@@ -36,7 +36,7 @@
     [(eq? content-type #f) `""]
     [(regexp-match? #rx"^image/" content-type)
       `(img (@ (src ,(u-proxy-url image-url))))]
-    [(regexp-match? #rx"^audio/" content-type)
+    [(regexp-match? #rx"^audio/|^application/ogg$" content-type)
       `(audio (@ (src ,(u-proxy-url image-url)) (controls)))]
     [(regexp-match? #rx"^video/" content-type)
       `(video (@ (src ,(u-proxy-url image-url)) (controls)))]
@@ -118,7 +118,10 @@
   (if (not (jp "/exists" media-detail #f))
     (next-dispatcher)
     (response-handler
-      (define title (jp "/fileTitle" media-detail))
+      (define title (jp "/fileTitle" media-detail ""))
+      (define title (if (non-empty-string? title)
+        (format "File:~a" title)
+        prefixed-title))
       (define body (generate-results-page
                     #:source-url source-url
                     #:wikiname wikiname