@@ -31,16 +31,15 @@

    :else {:err (str "Unknown command '" cmdline "'")})))

 (re-frame/reg-fx

- :window/scroll-smoothly-to-bottom

+ :window/scroll-to-prompt

  (fn []

-   (let [x (.-scrollX js/window)

-         y (.-scrollMaxY js/window)]

-     (.scrollTo js/window (clj->js {:left x :top y :behavior :smooth})))))

+   (-> js/document

+       (.getElementById "prompt")

+       (.scrollIntoView (clj->js {:behavior :smooth})))))

 (re-frame/reg-event-fx

- ::scroll-to-bottom

- (fn []

-   {:window/scroll-smoothly-to-bottom []}))

+ ::scroll-to-prompt

+ (fn [] {:window/scroll-to-prompt []}))

 (re-frame/reg-event-fx

  ::submit-cmd

@@ -60,4 +59,4 @@

                 {:input cmdline :output output}))))

      ; dispatch-later to ensure that the DOM has already been updated,

      ; so that scrollMaxY has been changed appropriately.

-     :fx [[:dispatch-later {:ms 10 :dispatch [::scroll-to-bottom]}]]})))

+     :fx [[:dispatch-later {:ms 10 :dispatch [::scroll-to-prompt]}]]})))

@@ -13,7 +13,7 @@

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

         submit-cmd #(do (.preventDefault %)

                         (re-frame/dispatch [::events/submit-cmd]))]

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

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

             :on-submit submit-cmd}

      [:input {:value @cmdline

               :on-change update-cmdline