          movements (session/get-in [:movement-session :parts position-in-parts :movements])
          part (session/get-in [:movement-session :parts position-in-parts])
          part (apply dissoc part (for [[k v] part :when (nil? v)] k))
-         part (dissoc part :title :movements)
-         difficulty (case new-difficulty "easier" :movement/easier "harder" :movement/harder nil)]
-     (when-let [id (:db/id (first (shuffle (difficulty m))))]
+         part (dissoc part :title :movements)]
+     (when-let [id (:db/id (first (shuffle (new-difficulty m))))]
        (GET "movement-by-id"
             {:params        {:id id
                              :part part}

        rest-clicked? (atom false)]
    (fn []
      [:div.pure-u.movement.center {:id (str "m-" id)}
       (buttons-component m title)
       [:div.pure-g
        [:div.pure-u-1-12]
        [:h3.pure-u.title name]

  (create-session-from-template (:db/id (first (shuffle (session/get :templates))))))

;;;;;; Components ;;;;;;
(defn slider-component []
  (let [data (atom 0)]
    (fn [position-in-parts id r min max step]
