                           old-movement (dissoc movement :next :previous) ; remove data that may not be overwritten by merging with the new movement
                           part (session/get-in [:movement-session :parts part-number])
                           pos (first (positions #{movement} part))
-                          new-movement (-> (filter #(contains? (:category %) category) data/all-movements) shuffle first)
+                          new-movement (-> (filter #(contains? (:category %) category) (data/all-movements-english)) shuffle first)
                           new-part (assoc part pos (merge old-movement new-movement))]
                       (session/assoc-in! [:movement-session :parts part-number] new-part))
       (or (= :next kw)

      :else nil))

(defn add-movement [category part-number]
  (let [new-movement (first (shuffle (data/all-movements)))
        part (session/get-in [:movement-session :parts part-number])
        new-part (conj part new-movement)]
    (session/assoc-in! [:movement-session :parts part-number] new-part)))

(defn generate-session [e]
  (.preventDefault e)
  (let [n (inc (rand-int 8))
        movements (vec (take n (shuffle (data/all-movements-english))))
        new-session {:title "ABC" :parts [movements] :activity "Styrketrening"}]
    (session/put! :movement-session new-session)))

