         (.! :onChange #(input-handle-change this on-change %))))
     (.! this :cljsInputValue nil)))
 
-(defn input-component? [x]
+(defn ^boolean input-component? [x]
   (or (identical? x "input")
       (identical? x "textarea")))
 

;; See: https://html.spec.whatwg.org/multipage/forms.html#do-not-apply
(def these-inputs-have-selection-api #{"text" "textarea" "password" "search" "tel" "url"})

(defn has-selection-api?
  [input-type]
  (contains? these-inputs-have-selection-api input-type))


              (expand-seq-dev x ctx)
              (ratom/capture-derefed #(expand-seq-dev x ctx)
                                     ctx))]
    (when-not (nil? (ratom/captured ctx))
      (warn "Reactive deref not supported in lazy seq, "
            "it should be wrapped in doall"
            (comp/comp-name) ". Value:\n" (pr-str x)))
