Compare commits
1 commit
main
...
file-names
Author | SHA1 | Date | |
---|---|---|---|
e9748d774b |
1 changed files with 3 additions and 4 deletions
|
@ -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)))
|
||||||
|
|
Loading…
Reference in a new issue