focusable typeahead

src/cljs/auto_ap/views/components/typeahead.cljs

@@ -24,7 +24,14 @@
                             valid-matches)]
         [:div.typeahead
          (if @selected
-           [:div.input {:class class}
+           [:div.input {:class class
+                        :tab-index "0"
+                        :on-key-up (fn [e]
+                                     (if (= 8 (.-keyCode e))
+                                       (do
+                                         (select [nil "" nil])
+                                         true)
+                                       true))}
             [:div.control
              [:div.tags.has-addons
               [:span.tag @text]