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 `(div
(p (p
,(if (non-empty-string? video-embed-code) ,(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 " "Added by "
(a (@ (href ,(u-proxy-url user-page-url))) ,username) (a (@ (href ,(u-proxy-url user-page-url))) ,username)
"." "."
@ -62,10 +62,14 @@
(λ (article) (λ (article)
(define page-path (jp "/title" article)) (define page-path (jp "/title" article))
(define title (jp "/titleText" article page-path)) (define title (jp "/titleText" article page-path))
`(a (@ (href ,(format "/~a/wiki/~a" wikiname page-path))) `(span
,title)) (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
,title)
`(if (eq? (car smaller-article-list) article))
""
", "))
smaller-article-list)) smaller-article-list))
`(if (= article-list-is-smaller 1) `(if (eq? article-list-is-smaller 1)
"…" "…"
".")))) "."))))
; ,(update-tree-wiki image-description wikiname) ; ,(update-tree-wiki image-description wikiname)