 
        :component-did-mount
        (fn [c]
+         (reset! at-bottom? true)
          (scroll-to-bottom! c)
          (go (loop []
                (let [[_ ch] (alts! [embed-update-chan kill-chan])]

       (fn [thread]
         [:div.messages
          {:ref ref-cb
           :on-scroll (fn [_] (check-at-bottom))}
          (let [sorted-messages
                (->> @messages
                     (sort-by :created-at)

        ref-cb (fn [node] (reset! messages-node node))

        at-bottom? (atom true)
        first-scroll? (atom true)

        check-at-bottom
        (fn []
