 
 ;;; Common utilities
 
-(defn named? [x]
+(defn ^boolean named? [x]
   (or (keyword? x)
       (symbol? x)))
 
-(defn hiccup-tag? [x]
+(defn ^boolean hiccup-tag? [x]
   (or (named? x)
       (string? x)))
 
-(defn valid-tag? [x]
+(defn ^boolean valid-tag? [x]
   (or (hiccup-tag? x)
       (ifn? x)
       (instance? NativeWrapper x)))

        (.! :onChange #(input-handle-change this on-change %))))
    (.! this :cljsInputValue nil)))

(defn input-component? [x]
  (or (identical? x "input")
      (identical? x "textarea")))


                         :charset "charSet"})

(defn obj-get [o k]
  (when (true? (.hasOwnProperty o k))
    (aget o k)))

(defn cached-prop-name [k]
