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

article...

Browse source
This commit is contained in:
blankie 2022-10-08 15:42:41 +07:00
parent 0148c1c3f9
commit 00da2efd7a
Signed by: blankie
GPG key ID: CC15FC822C7F61F5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/page-file.rkt
View file

@ -60,8 +60,8 @@
`(span " Posted in " `(span " Posted in "
,@(map ,@(map
(λ (article) (λ (article)
(define page-path (jp "/title" result)) (define page-path (jp "/title" article))
(define title (jp "/titleText" result page-path)) (define title (jp "/titleText" article page-path))
`(a (@ (href ,(format "/~a/wiki/~a" wikiname page-path))) `(a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
,title)) ,title))
smaller-article-list)) smaller-article-list))