URI-encode topic names in anchor IDs. Closes #8

otherjoel · Mar 30, 2019 · efe005c · efe005c
1 parent 8e54641
commit efe005c
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 8 deletions.
diff --git a/topics.html.pp b/topics.html.pp
@@ -1,6 +1,12 @@
 #lang pollen
 
-◊(local-require "util-topics.rkt" pollen/template pollen/pagetree pollen/private/version pollen/cache)
+◊(require "util-topics.rkt"
+          pollen/template
+          pollen/pagetree
+          pollen/private/version
+          pollen/cache
+          net/uri-codec)
+
 ◊(define main-pagetree (cached-doc (string->path "index.ptree")))
 
 <!DOCTYPE html>
@@ -27,7 +33,7 @@
             <table>
               ◊for/s[topic (topic-list)]{
               <tr>
-                <td><a name="◊(car topic)">◊(car topic)</a></td>
+                <td><a id="◊(uri-encode (car topic))">◊(car topic)</a></td>
                 <td><ul>                   
                  ◊for/s[post (cdr topic)]{
                   <li><a href="/◊(list-ref post 0)">◊(list-ref post 1)</a></li>

diff --git a/util-template.rkt b/util-template.rkt
@@ -1,12 +1,8 @@
 #lang racket
 
 (require
-  racket/date
-  pollen/template
   pollen/core
-  pollen/cache
-  pollen/pagetree
-  pollen/file
+  net/uri-codec
   "util-date.rkt"
   txexpr)
 
@@ -31,7 +27,7 @@
   (define topics-xexpr
     (cond [topics
            (define topic-listitems
-             (map (λ(t) `(li (a [[href ,(string-append "/topics.html#" t)]] ,t)))
+             (map (λ(t) `(li (a [[href ,(string-append "/topics.html#" (uri-encode t))]] ,t)))
                   (string-split (regexp-replace* #px"\\s*,\\s*" topics ",") ",")))
            `(ul ,@topic-listitems)]
           [else ""]))