(defn var-sym->url [rel-path static? type ns-sym var-sym]
(str rel-path (name type) "/" ns-sym "/"
(if static?
(-> (str var-sym)
(str/replace "?" "'q'")
(str/replace "!" "'e'")
(str/replace "<" "'l'")
(str/replace ">" "'g'")
(str/replace ":" "'c'")
(str/replace "*" "'a'")
(str/replace "&" "'m'"))
#?(:cljs (js/encodeURIComponent (str var-sym))
:clj (java.net.URLEncoder/encode (str var-sym) "UTF-8")))
(when static? ".html")))