cadence/breezewiki
2
4
Fork 4
Code Issues Pull requests 1 Releases Wiki Activity

Style tweaks to file page, add copyright notice

Browse source
This commit is contained in:
Cadence Ember 2022-10-10 21:59:02 +13:00
parent 07074dccfc
commit 58d6a652d8
Signed by: cadence
GPG key ID: BC1C2C61CF521B17
1 changed files with 15 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/page-file.rkt
View file

@ -79,23 +79,24 @@
(p ,(if (non-empty-string? video-embed-code) (p ,(if (non-empty-string? video-embed-code)
`"" `""
`(span (a (@ (href ,maybe-proxied-raw-image-url)) "View original file") ". ")) `(span (a (@ (href ,maybe-proxied-raw-image-url)) "View original file") ". "))
"Added by " "Uploaded by "
(a (@ (href ,(format "/~a/wiki/User:~a" wikiname username))) ,username) (a (@ (href ,(format "/~a/wiki/User:~a" wikiname username))) ,username)
"." ".")
,(if is-posted-in
`(span " Posted in "
,@(map (λ (article)
(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)))
smaller-article-list)
,(if (eq? article-list-is-smaller 1) "…" "."))
`""))
,(if (string? image-description) ,(if (string? image-description)
(update-tree-wiki (html->xexp (preprocess-html-wiki image-description)) wikiname) (update-tree-wiki (html->xexp (preprocess-html-wiki image-description)) wikiname)
"")))) ; file license info might be displayed in the description, example: /lgbtqia/wiki/File:Rainbow_Flag1.svg
`(p "This file is likely protected by copyright. Consider the file's license and fair use law before reusing it."))
,(if is-posted-in
`(p "This file is used in "
,@(map (λ (article)
(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)))
smaller-article-list)
,(if (eq? article-list-is-smaller 1) "…" "."))
`""))))
(define (page-file req) (define (page-file req)
(define wikiname (path/param-path (first (url-path (request-uri req))))) (define wikiname (path/param-path (first (url-path (request-uri req)))))