(defn compile-html
"Pre-compile data structures into HTML where possible."
[content]
(cond
(vector? content) (compile-element content)
(literal? content) content
(hint? content String) content
(hint? content Number) content
:else (compile-form content)))