         [:div.pure-u.movement
 
          [:div.pure-g
-          [:div.pure-u-1-2.refresh {:on-click #()}]
+          [:div.pure-u-1-2.refresh {:on-click #(refresh-movement m part-title)}]
           [:div.pure-u-1-2.destroy {:on-click #(remove-movement m part-title)}]]
 
          [:div.pure-g.title

      (session/update-in! [:movement-session :parts position-in-parts :movements]
                          conj (first (shuffle @movements))))))

(defn remove-movement [m part-title]
  (go
    (let [parts (session/get-in [:movement-session :parts])

    (fn [{:keys [title categories movements]}]
      [:div
       [:h2 title]
       [:button {:type     "submit"
                 :on-click #(get-new-movement title)} "+"]
       [:div.pure-g
        (for [m movements]
          ^{:key (str m (rand-int 100000))} [movement-component m title])]])))


(defn session-component []
