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

Fix used in links that have a namespace in file pages #8

Closed
blankie wants to merge 1 commit from blankie/breezewiki:file-namespace into main
pull from: blankie/breezewiki:file-namespace
merge into: cadence:main
Conversation 1 Commits 1 Files changed 1 +3 -4
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)))