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

`?

Browse source
This commit is contained in:
blankie 2022-10-08 22:36:13 +07:00
parent 91a3d7255f
commit 6d2f5904fe
Signed by: blankie
GPG key ID: CC15FC822C7F61F5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/page-file.rkt
View file

@ -32,7 +32,7 @@
(log-outgoing image-url) (log-outgoing image-url)
(define dest-res (easy:head image-url #:timeouts timeouts)) (define dest-res (easy:head image-url #:timeouts timeouts))
(define content-type (easy:response-headers-ref dest-res "Content-Type")) (define content-type (easy:response-headers-ref dest-res "Content-Type"))
(cond `(cond
[(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))))]
@ -67,7 +67,7 @@
`(div `(div
,(if (non-empty-string? video-embed-code) ,(if (non-empty-string? video-embed-code)
(update-tree-wiki (html->xexp (preprocess-html-wiki video-embed-code)) wikiname) (update-tree-wiki (html->xexp (preprocess-html-wiki video-embed-code)) wikiname)
`(html-from-url image-url)) (html-from-url image-url))
(p (p
,(if (non-empty-string? video-embed-code) ,(if (non-empty-string? video-embed-code)
`"" `""