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

Fix used in links that have a namespace in file pages

Browse source 
Example: /ben10/wiki/File:OS_Timespan.png
fe60579a53/includes/Title.php (L1266)
This commit is contained in:
blankie 2022-10-10 17:04:11 +07:00 committed by Cadence Ember
parent 722b0589cb
commit 71705d6e74
Signed by untrusted user: cadence
GPG key ID: BC1C2C61CF521B17
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/page-file.rkt
View file

@ -31,8 +31,7 @@
(rawImageUrl . "https://static.wikia.nocookie.net/examplefile") (rawImageUrl . "https://static.wikia.nocookie.net/examplefile")
(userName . "blankie") (userName . "blankie")
(isPostedIn . #t) (isPostedIn . #t)
(smallerArticleList . (#hasheq((title . "Example_article") (smallerArticleList . (#hasheq((titleText . "Test:Example article"))))
(titleText . "Example article"))))
(articleListIsSmaller . 0) (articleListIsSmaller . 0)
(exists . #t) (exists . #t)
(imageDescription . #f)))) (imageDescription . #f))))
@ -89,8 +88,8 @@
,(if is-posted-in ,(if is-posted-in
`(p "This file is used in " `(p "This file is used in "
,@(map (λ (article) ,@(map (λ (article)
(define page-path (jp "/title" article)) (define title (jp "/titleText" article))
(define title (jp "/titleText" article page-path)) (define page-path (regexp-replace* #rx" " title "_"))
`(span ,(if (eq? (car smaller-article-list) article) "" ", ") `(span ,(if (eq? (car smaller-article-list) article) "" ", ")
(a (@ (href ,(format "/~a/wiki/~a" wikiname page-path))) (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
,title))) ,title)))