util.cljs.hl

(defelem typeahead [{:keys [options datasets id cell] :as attr :or {id (gensym)}} _]
  (let [id          (if (cell? id) @id id)
        attrs       (dissoc attr :options :datasets :cell :id)
        field       (input :id id :type "text" :change #(when (cell? cell) (reset! cell @%)) attrs)
        select-fn   (fn [cell ev s] (when (cell? cell) (reset! cell (aget s "value"))))]
    (with-let [t      (div (field))]
      (when-dom t #(do
                    (.typeahead
                      (js/jQuery (str "#" id))
                      (clj->js options)
                      (apply clj->js datasets))
                    (.bind
                      (js/jQuery (str "#" id))
                      (clj->js :typeahead:select)
                      (partial select-fn cell)))))))