Fix some special characters in titles like ? and ;

This commit is contained in:
Cadence Ember
2022-11-17 23:25:06 +13:00
parent 1c83c0b4d3
commit 92591a5eab
4 changed files with 25 additions and 15 deletions

View File

@@ -52,7 +52,7 @@
,@(map
(λ (result)
(define title (jp "/title" result))
(define page-path (regexp-replace* #rx" " title "_"))
(define page-path (page-title->path title))
`(li
(a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
,title)))