@@ -121,6 +121,13 @@

  (fn [cmd [_ idx]]

      (assoc-in cmd [:suggestions :selected] idx)))

+(re-frame/reg-event-fx

+ ::click-suggestion

+ (fn [cofx [_ prompt cmd]]

+   (let [db (cofx :db)]

+     {:db (assoc-in db [:cmdline :current] cmd)

+      :fx [[:dispatch [::submit-cmd prompt]]]})))

+

 (re-frame/reg-event-db

  ::prompt-keypress

  (re-frame/path :cmdline)

@@ -61,8 +61,11 @@

          (for [[idx x] (enumerated options)]

            ^{:key x} [:li

                       {:class (when (= idx selected) :selected)

-                       :on-mouse-enter #(re-frame/dispatch [::events/hover-suggestion idx])}

-

+                       :on-mouse-enter #(re-frame/dispatch [::events/hover-suggestion idx])

+                       :on-click #(do (.preventDefault %)

+                                      (re-frame/dispatch [::events/click-suggestion

+                                                          (-> % .-target .-parentElement .-parentElement)

+                                                          x]))}

                       x]))]]))

 (defn title []