Fix tags page generation

app/controllers/tags.scm

@@ -24,13 +24,15 @@
              (colt config))
 
 (define (gen-content tag)
+  (define-syntax-rule (->url url-name)
+    (format #f "/archives/~a" (uri-decode url-name)))
   (let ((posts (get-posts-by-tag tag)))
     (tpl->html
      `(div (@ (class "blog-post-content"))
            (h2 "Articles contains tag: "
                (font (@ (class "red-text")) ,tag))
            ,(map (lambda (p)
-                   `(p (a (@ (href ,(string-append "/articles/" (post-url-name p))))
+                   `(p (a (@ (href ,(->url (post-url-name p))))
                           ,(post-title p))))
                  posts)))))