escape < and > in the tags navigation
1 files changed, 2 insertions(+), 2 deletions(-)

M site.arc
M site.arc +2 -2
@@ 370,7 370,7 @@ title, url-slug, body."
                            (tag div (unless (is this-pos 0)
                                       (let prev-page (tags.tag (- this-pos 1))
                                            (para "previous")
-                                           (link (string "< " prev-page!title) prev-page!url-slug))))
+                                           (link (string "&lt; " prev-page!title) prev-page!url-slug))))
                            (tag div
                                 (pr "tag: ")
                                 (link tag

          
@@ 379,7 379,7 @@ title, url-slug, body."
                            (tag div (unless (is this-pos (- (len tags.tag) 1))
                                       (para "next")
                                       (let next-page (tags.tag (+ 1 this-pos))
-                                           (link (string next-page!title " >") next-page!url-slug))))))))))
+                                           (link (string next-page!title " &gt;") next-page!url-slug))))))))))
 
 (def prn-frontpage (published-folder frontpage-folder output-folder navbar-div analytics-script config)
   (prn "generating frontpage from " published-folder)