@@ -115,6 +115,12 @@

   (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-db

  ::prompt-keypress

  (re-frame/path :cmdline)

@@ -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,9 @@

       (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])}

+

                       x]))]]))

 (defn title []