     :default (.toString value)))
 
 (defn- set-attr! [element attr-name attr-value]
+  ;; (println "setting attr" element attr-name attr-value)
   (if attr-value
     (.setAttribute element attr-name (normalize-attr-value attr-value))
     (.removeAttribute element attr-name)))


(declare dom-element)

(defn- as-velem [elem-spec]
  (cond
    (string? elem-spec)


(defn- get-ns-attr-setter [element attr-ns attr-name]
  (fn [attr-value]
      (if attr-value
        (.setAttributeNS element attr-ns attr-name
          (normalize-attr-value attr-value))
