Not "cool" per se, but here's something that works :)

    (require '[goog.dom :as dom])
    (def body (aget (dom/getElementsByTagNameAndClass "body") 0))
    (defn elem-factory [tag text] 
        (let [elem (dom/createElement tag)] 
            (dom/setTextContent elem text) 
            elem))
    (dom/appendChild body (elem-factory "p" "my new tag"))