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

?

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

14
src/page-file.rkt
View file

@ -51,8 +51,8 @@
`(div
(p
,(if (non-empty-string? video-embed-code)
`(span (a (@ (href ,(u-proxy-url raw-image-url))) "View original file") ". ")
`(return-no-element))
`""
`(span (a (@ (href ,(u-proxy-url raw-image-url))) "View original file") ". "))
"Added by "
(a (@ (href ,(u-proxy-url user-page-url))) ,username)
"."
@ -62,10 +62,14 @@
(λ (article)
(define page-path (jp "/title" article))
(define title (jp "/titleText" article page-path))
`(a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
,title))
`(span
(a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
,title)
`(if (eq? (car smaller-article-list) article))
""
", "))
smaller-article-list))
`(if (= article-list-is-smaller 1)
`(if (eq? article-list-is-smaller 1)
"…"
"."))))
; ,(update-tree-wiki image-description wikiname)