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

t

Browse source
This commit is contained in:
blankie 2022-10-08 17:56:56 +07:00
parent 7d8763b308
commit 940b6e01db
Signed by: blankie
GPG key ID: CC15FC822C7F61F5
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/page-file.rkt
View file

@ -38,7 +38,6 @@
(define raw-image-url (jp "/rawImageUrl" media-detail))
(define image-url (jp "/imageUrl" media-detail raw-image-url))
(define username (jp "/userName" media-detail))
(define user-page-url (jp "/userPageUrl" media-detail))
(define is-posted-in (jp "/isPostedIn" media-detail #f))
(define smaller-article-list (jp "/smallerArticleList" media-detail))
(define article-list-is-smaller (jp "/articleListIsSmaller" media-detail))
@ -54,7 +53,7 @@
`""
`(span (a (@ (href ,(u-proxy-url raw-image-url))) "View original file") ". "))
"Added by "
(a (@ (href ,(u-proxy-url user-page-url))) ,username)
(a (@ (href ,(format "/~a/wiki/User:~a" wikiname username))) ,username)
"."
,(if is-posted-in
`(span " Posted in "
@ -63,15 +62,16 @@
(define page-path (jp "/title" article))
(define title (jp "/titleText" article page-path))
`(span
(a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
,title)
`(if (eq? (car smaller-article-list) article))
,(if (eq? (car smaller-article-list) article)
""
", "))
smaller-article-list))
`(if (eq? article-list-is-smaller 1)
", ")
(a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
,title)))
smaller-article-list)
,(if (eq? article-list-is-smaller 1)
"…"
"."))))
"."))
`"")))
; ,(update-tree-wiki image-description wikiname)
))