   [{:keys [name image slot-category measurement previous next
            rep set performed-sets distance duration weight rest] :as m}
    part-number]
-  (let [parts  (session/get-in [:movement-session :parts])
+  (let [parts (session/get-in [:movement-session :parts])
         pos (positions #{m} (get parts part-number))
         expand (atom false)]
     (fn []

        hash-tags (vec (re-seq #"#[\w]+" (:comment session)))
        session (assoc session :parts new-parts :date-time date-time :tags hash-tags)]
    (POST "store-session"
            {:params        {:session session
                             :user-id (:user-id (session/get :user))}
             :handler       (fn [] (reset! s true))
             :error-handler (fn [r] (pr r))})))

(defn finish-session-component []
  ;; Etter trykk på avslutt&lagre bør den oppdaterte feeden vises

                                      :onTouchEnd #(replace-movement % {:kw :next :movement m :part-number part-number}) :title "Bytt med vanskeligere"}
               [:i.fa.fa-arrow-up {:style {:color "#99cc99" :opacity 0.8}}]
               "Bytt med vanskeligere"])]
           ])]])))

(defn add-movement-component []
  (let [show-search-input? (atom false)]
