blankie/breezewiki
1
0
Fork 0
forked from cadence/breezewiki
Code Issues Pull requests Projects Releases Packages Wiki Activity

Compare commits

base: blankie:f6b448ae8f1935c0fce7f90c38fd63091499675e
Branches Tags
blankie:main
blankie:personal
blankie:no-redirect-link
blankie:tabs
blankie:tabs-dev
blankie:gamespot-reviews
blankie:noscript-a-img
blankie:redirect-param
blankie:file-namespace
blankie:file-page
blankie:referrer-policy
blankie:proxy-image-class
blankie:wikiname-regex
blankie:number-title
blankie:category-title
cadence:main
cadence:disable-requests
cadence:early-hints
..
compare: blankie:2cd489658af7104d95604fcce7eaeda7f0c46135
Branches Tags
blankie:personal
blankie:main
blankie:no-redirect-link
blankie:tabs
blankie:tabs-dev
blankie:gamespot-reviews
blankie:noscript-a-img
blankie:redirect-param
blankie:file-namespace
blankie:file-page
blankie:referrer-policy
blankie:proxy-image-class
blankie:wikiname-regex
blankie:number-title
blankie:category-title
cadence:main
cadence:disable-requests
cadence:early-hints

2 commits
f6b448ae8f ... 2cd489658a

Author SHA1 Message Date
blankie
2cd489658a
prefix 2022-10-08 22:52:23 +07:00
blankie
cb2fb07b24
ogg 2022-10-08 22:46:38 +07:00
1 changed files with 5 additions and 2 deletions
Show stats Expand all files Collapse all files

7
src/page-file.rkt
View file

@ -36,7 +36,7 @@
[(eq? content-type #f) `""] [(eq? content-type #f) `""]
[(regexp-match? #rx"^image/" content-type) [(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) [(regexp-match? #rx"^audio/|^application/ogg$" content-type)
`(audio (@ (src ,(u-proxy-url image-url)) (controls)))] `(audio (@ (src ,(u-proxy-url image-url)) (controls)))]
[(regexp-match? #rx"^video/" content-type) [(regexp-match? #rx"^video/" content-type)
`(video (@ (src ,(u-proxy-url image-url)) (controls)))] `(video (@ (src ,(u-proxy-url image-url)) (controls)))]
@ -118,7 +118,10 @@
(if (not (jp "/exists" media-detail #f)) (if (not (jp "/exists" media-detail #f))
(next-dispatcher) (next-dispatcher)
(response-handler (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 (define body (generate-results-page
#:source-url source-url #:source-url source-url
#:wikiname wikiname #:wikiname wikiname