@@ -40,6 +40,31 @@

  (fn [_ [_ x]]

      {:window/scroll-to x}))

+(defn- up [x]

+  (case x

+    nil 0

+    (inc x)))

+

+(defn- down [x]

+  (case x

+    nil nil

+    0   nil

+    (dec x)))

+

+(re-frame/reg-event-db

+ ::prompt-keypress

+ (fn [db [_ x]]

+   (case (.-key x)

+     "ArrowUp"

+       (do (.preventDefault x)

+           (println "up")

+           (update-in db [:cmdline :selected-history] up))

+     "ArrowDown"

+       (do (.preventDefault x)

+           (println "down")

+           (update-in db [:cmdline :selected-history] down))

+     nil)))

+

 (re-frame/reg-event-fx

  ::submit-cmd

  (fn [cofx [_ prompt]]