@@ -30,6 +30,18 @@

    (contains? equipment cmd) (equipment cmd)

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

+(re-frame/reg-fx

+ :window/scroll-smoothly-to-bottom

+ (fn []

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

+         y (.-scrollMaxY js/window)]

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

+

+(re-frame/reg-event-fx

+ ::scroll-to-bottom

+ (fn []

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

+

 (re-frame/reg-event-fx

  ::submit-cmd

  (fn [cofx _]