@@ -84,10 +84,16 @@

      (assoc-in [:cmdline :suggestions] {:options nil :selected nil}))))

+(defn with-autocomplete [{:keys [current suggestions]}]

+  (if (some-> suggestions :selected)

+      (nth (suggestions :options) (suggestions :selected))

+      current))

+

+

 (re-frame/reg-event-fx

  ::submit-cmdline

  (fn [cofx _]

-   {:fx [[:dispatch [::execute (-> cofx :db :cmdline :current)]]

+   {:fx [[:dispatch [::execute (-> cofx :db :cmdline with-autocomplete)]]

          [:dispatch [::clear-cmdline]]]}))