@@ -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]}]]})))