@@ -12,12 +12,14 @@

   (let [cmdline (re-frame/subscribe [::subs/cmdline])

         update-cmdline #(re-frame/dispatch-sync

                          [::events/update-cmdline (-> % .-target .-value)])

+        key-pressed #(re-frame/dispatch-sync [::events/prompt-keypress %])

         submit-cmd #(do (.preventDefault %)

                         (re-frame/dispatch [::events/submit-cmd (-> % .-target)]))]

     [:form {:class (styles/prompt-style)

             :on-submit submit-cmd}

      [:input {:value @cmdline

               :on-change update-cmdline

+              :on-keyDown key-pressed

               :type "text"}]]))

 (defn title []