         function->html (comp function->html fn-metas)
         subcat->html (fn [subcat]
                        (cons [:h3.subcategory
-                              {:id (subcat-id subcat)}
-                              (:name subcat)]
+                              {:id (as-id (subcat-id subcat))}
+                              (u/escape-html (:name subcat))]
                              (map function->html (:fns subcat))))
         subcat->toc (fn [subcat]
                       (cons [:h4.subcategory (link (:name subcat) nil (subcat-id subcat))]

                                                 [:code processing-name])
                                               "None. It is present only in Quil.")
                "Added in" added)]
    [:div.function {:id name}
     [:h3 name]
     [:dl (for [[key val] fields]
            (list [:dt key] [:dd val]))]]))

          (column->html [column]
            [:div.column (map (comp category->html find-category) column)])]
    [:div.wrapper
     [:h1#title "Quil 2.2.0 API"]
     [:div#description
      [:p "Quil is a clojure animation library for creating interactive sketches. "]
      [:p
