   [{: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])
-        ;position-in-parts (first (positions #{title} (map :title parts)))
+  (let [parts  (session/get-in [:movement-session :parts])
+        pos (positions #{m} (get parts part-number))
         expand (atom false)]
     (fn []
       [:div.pure-g.movement #_{:id (str "m-" id)}

    (str hours ":" minutes ":" seconds)))

(defn date-component []
  ;; Moment.js er aktuelt, spesielt for norsk støtte http://momentjs.com/
  (let [date-value (session/get-in [:movement-session :date])]
    (session/assoc-in! [:movement-session :date] date-value)
    [:input {:style     {:float 'right} :id "date" :name "date" :type "date"

      [:span "Legg ved bilde"]
      [:input {:id "upload" :className "upload" :type "file" :on-change #(preview-file)}]]]))

;;;;;; Components ;;;;;;

(defn r-component [{:keys [data name]}]
  [:div.pure-g {:style {:margin 'auto}}
