 (defn remove-children
   "Remove all children from the element with the passed id."
   [id]
-  (let [parent (dom/getElement (name id))]
-    (do (dom/removeChildren parent))))
+  (let [parent (gdom/getElement (name id))]
+    (do (gdom/removeChildren parent))))
 
 (defn get-element [id]
-  (dom/getElement (name id)))
+  (gdom/getElement (name id)))
 
 (defn html [s]
-  (dom/htmlToDocumentFragment s))
-
-(defn element-arg? [x]
-  (or (keyword? x)
-      (map? x)
-      (string? x)))
+  (gdom/htmlToDocumentFragment s))
 
 (defn insert-at [parent child index]
-  (dom/insertChildAt parent child index))
+  (gdom/insertChildAt parent child index))

(ns clojure.browser.dom
  (:require [goog.dom :as dom]))

(defn append [parent & children]
  (apply dom/append parent children)
  parent)

(defprotocol DOMBuilder

                         nil)]
         (log-obj str-attrs)
         (if (seq children)
           (apply gdom/createDom
                  (name this)
                  str-attrs
                  (map -element children))
           (gdom/createDom (name this)
                          str-attrs)))))

  Vector
