Fix index generation

parent 14eef4ec
......@@ -162,7 +162,7 @@
(define* (gen-one-post post mode #:optional (need-abstract? #f))
(define-syntax-rule (->url url-name)
(format #f "/archives/~a" url-name))
(format #f "/archives/~a" (uri-decode url-name)))
(define-syntax-rule (->title title url)
`(div (@ (class "blog-post-title"))
(a (@ (href ,(->url (post-url-name post)))) ,title)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment