@@ -115,6 +115,19 @@

   (let [{:keys [options selected]} suggestions]

     {:current (nth options selected) :suggestions null-suggestions}))

+(re-frame/reg-event-db

+ ::hover-suggestion

+ (re-frame/path :cmdline)

+ (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)

@@ -126,7 +139,6 @@

                      nil)

          tab (= (.-key event) "Tab")

          escape (= (.-key event) "Escape")]

-     (println (.-key event) direction (contains? #{:backward :forward} direction))

      (cond

       (contains? #{:backward :forward} direction) (do (.preventDefault event)

                                                       (if (some-> cmd :suggestions :options)

@@ -213,6 +213,7 @@

     :background-color (colorscheme :light0-soft)}

    [:li {:list-style :none

          :padding-left :3ch

-         :padding-right :1ch}

+         :padding-right :1ch

+         :cursor :pointer}

      [(s/& :.selected)

       {:background-color (colorscheme :neutral-purple)}]]])

@@ -60,7 +60,12 @@

       (let [{:keys [options selected]} @suggestions]

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

            ^{:key x} [:li

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

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

+                       :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 []