cadence/breezewiki
2
4
Fork 4
Code Issues Pull requests 1 Releases Wiki Activity

Compare commits

merge into: cadence:main
Branches Tags
cadence:main
cadence:disable-requests
cadence:early-hints
blankie:personal
blankie:main
blankie:no-redirect-link
blankie:tabs
blankie:tabs-dev
blankie:gamespot-reviews
blankie:noscript-a-img
blankie:redirect-param
blankie:file-namespace
blankie:file-page
blankie:referrer-policy
blankie:proxy-image-class
blankie:wikiname-regex
blankie:number-title
blankie:category-title
...
pull from: blankie:category-title
Branches Tags
blankie:personal
blankie:main
blankie:no-redirect-link
blankie:tabs
blankie:tabs-dev
blankie:gamespot-reviews
blankie:noscript-a-img
blankie:redirect-param
blankie:file-namespace
blankie:file-page
blankie:referrer-policy
blankie:proxy-image-class
blankie:wikiname-regex
blankie:number-title
blankie:category-title
cadence:main
cadence:disable-requests
cadence:early-hints

1 commit
main ... category-t

Author SHA1 Message Date
blankie
65af2fc0e2
Display real category title 
Fixes https://lists.sr.ht/~cadence/breezewiki-discuss/%3CCN5B6AUHFUSC.1H7B7SEFDRDK9%40archer%3E
 2022-09-25 16:45:07 +07:00
1 changed files with 6 additions and 5 deletions
Show stats Expand all files Collapse all files

11
src/page-category.rkt
View file

@ -31,7 +31,7 @@
(define (generate-results-page (define (generate-results-page
#:source-url source-url #:source-url source-url
#:wikiname wikiname #:wikiname wikiname
#:prefixed-category prefixed-category #:title title
#:members-data members-data #:members-data members-data
#:page page #:page page
#:body-class [body-class #f] #:body-class [body-class #f]
@ -40,13 +40,13 @@
(generate-wiki-page (generate-wiki-page
#:source-url source-url #:source-url source-url
#:wikiname wikiname #:wikiname wikiname
#:title prefixed-category #:title title
#:body-class body-class #:body-class body-class
#:license license #:license license
`(div `(div
,(update-tree-wiki page wikiname) ,(update-tree-wiki page wikiname)
(hr) (hr)
(h2 ,(format "All Pages in ~a" prefixed-category)) (h2 ,(format "All Pages in ~a" title))
(div (@ (class "mw-parser-output")) (div (@ (class "mw-parser-output"))
(ul (@ (class "my-category-list")) (ul (@ (class "my-category-list"))
,@(map ,@(map
@ -91,6 +91,7 @@
(easy:response-json dest-res)] (easy:response-json dest-res)]
[license (license-auto wikiname)]) [license (license-auto wikiname)])
(define title (preprocess-html-wiki (jp "/parse/title" page-data prefixed-category)))
(define page-html (preprocess-html-wiki (jp "/parse/text" page-data ""))) (define page-html (preprocess-html-wiki (jp "/parse/text" page-data "")))
(define page (html->xexp page-html)) (define page (html->xexp page-html))
(define head-html (jp "/parse/headhtml" page-data "")) (define head-html (jp "/parse/headhtml" page-data ""))
@ -100,7 +101,7 @@
(define body (generate-results-page (define body (generate-results-page
#:source-url source-url #:source-url source-url
#:wikiname wikiname #:wikiname wikiname
#:prefixed-category prefixed-category #:title title
#:members-data members-data #:members-data members-data
#:page page #:page page
#:body-class body-class #:body-class body-class
@ -119,6 +120,6 @@
(generate-results-page (generate-results-page
#:source-url "" #:source-url ""
#:wikiname "test" #:wikiname "test"
#:prefixed-category "Category:Items" #:title "Category:Items"
#:members-data category-json-data #:members-data category-json-data
#:page '(div "page text")))))) #:page '(div "page text"))))))