@@ -31,19 +31,18 @@

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

 (re-frame/reg-fx

- :window/scroll-to-prompt

- (fn []

-   (-> js/document

-       (.getElementById "prompt")

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

+ :window/scroll-to

+ (fn [element]

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

 (re-frame/reg-event-fx

- ::scroll-to-prompt

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

+ ::scroll-to

+ (fn [_ [_ x]]

+     {:window/scroll-to x}))

 (re-frame/reg-event-fx

  ::submit-cmd

- (fn [cofx _]

+ (fn [cofx [_ prompt]]

   (let [db (cofx :db)

         cmdline (some-> db :cmdline :current trim)

         not-empty? seq]

@@ -59,4 +58,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-prompt]}]]})))

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

@@ -12,8 +12,8 @@

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

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

         submit-cmd #(do (.preventDefault %)

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

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

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

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

             :on-submit submit-cmd}

      [:input {:value @cmdline

               :on-change update-cmdline