 
 (defn escape-html
   "Change special characters into HTML character entities."
-  [^String text]
-  (.. ^String text
+  ^String [^String text]
+  (.. text
     (replace "&"  "&amp;")
     (replace "<"  "&lt;")
     (replace ">"  "&gt;")

(defn render-html
  ([src] (render-html src nil))
  ([src opts]
    (let [result   (-render-html src nil (volatile! 1))
          checksum (adler32 result)]
      (str/replace-first result " data-reactid=\"1\""
        (str " data-reactid=\"1\" data-react-checksum=\"" checksum "\"")))))



(defn normalize-css-key [k]
  (-> (to-str k)
      (str/replace #"[A-Z]" (fn [ch] (str "-" (str/lower-case ch))))
      (str/replace #"^ms-" "-ms-")))

