@@ -46,11 +46,11 @@

         orig (some-> cs :selected-history :orig)

         idx (some-> cs :selected-history :index)

         history-end (- (count history) 1)

-        next (case direction :back dec :fwd inc)

+        next (case direction :backward dec :forward inc)

         at-first? (= idx history-end)

         at-last?  (= idx 0)

-        going-forward? (= direction :fwd)

-        going-backward? (= direction :back)

+        going-forward? (= direction :forward)

+        going-backward? (= direction :backward)

         not-cycling? (-> cs :selected-history nil?)]

     (cond

       (empty? history)                   {:current current :selected-history nil}

@@ -70,8 +70,8 @@

  (fn [cmd [_ event]]

    (let [

          direction (case (.-key event)

-                     "ArrowUp" :back

-                     "ArrowDown" :fwd

+                     "ArrowUp" :backward

+                     "ArrowDown" :forward

                      nil)]

      (if direction

        (do (.preventDefault event)