                                         (filter #(= (value-fn %) v))
                                         first label-fn)))]
           [:div.re-select-xhr
-           #_[:i.search-icon.material-icons "search"]
            [:input.query
             {:type "text"
              :placeholder placeholder
-             :on-change handle-input-change
+             :on-change #(handle-input-change (.. % -target -value))
              :on-focus (fn [e] (swap! state assoc
                                       :current-text nil :focused true :suggestions []))
              :value (or (:current-text @state)

   [:div.controls
    {:position :absolute
     :top "2px"
     :color gray-color 
     :right (u/px 12)}]

   [:.suggestions

      (condp = ch
        timer (do (swap! state assoc
                         :suggestions (<! (suggest-fn val))
                         :loading false
                         :selected nil)
                  (recur nil))
        in (when new-val (recur new-val))))))

