        [:div.pure-g.movements
         (doall
           (for [m (vals movements)]
-            ^{:key (str m (rand-int 100000))} [movement-component m part]))]
-       [:div.pure-g
-        [:a.pure-u.pure-u-md-1-5.button {:on-click #(add-movement title)} [:i.fa.fa-plus] "random" ]
-        [:div.pure-u.pure-u-md-3-5]
-        #_[:a.pure-u.pure-u-md-1-5.button {:on-click #(add-movement title)} "search" [:i.fa.fa-plus]]]
-       ])))
+            ^{:key (str m (rand-int 100000))} [movement-component m part]))
+        (add-movement-component title)]])))
 
 (defn header-component []
   (let [date (js/Date.)

       (when @duration-clicked?
         [slider position-in-parts id :duration 0 1800 10])])))

(defn part-component []
  (let [show-search-input (atom false)]
    (fn [{:keys [title movements] :as part}]

       [:div.pure-g
        [:h1.pure-u "Let's create your next Movement Session"]]
       [:div.pure-g
        [:div.pure-u.pure-u-md-2-5.button.button-primary {:on-click pick-random-template} "Start moving"]
        [:div.pure-u.pure-u-md-2-5.button {:className (when @templates-showing? "button-primary")
                                           :on-click  #(handler-fn
                                                        (do
                                                          (when (nil? (session/get :equipment))
                                                            (get-equipment))
                                                          (when equipment-showing?
                                                            (reset! equipment-showing? false))
                                                          (reset! templates-showing? (not @templates-showing?))))}
         "Choose template"]]
       #_[:div.pure-g
        [:h3.pure-u [:a.button {:className (when @equipment-showing? "button-primary")
                                :on-click #(handler-fn
