       :else nil))
 
 (defn add-movement [category part-number]
-  (let [new-movement (first (shuffle (data/all-movements)))
+  (let [new-movement (first (shuffle (data/all-movements-english)))
         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)))
        new-session {:title "ABC" :parts [movements] :activity "Styrketrening"}]
    (session/put! :movement-session new-session)))


           :style      {:cursor 'pointer}}]]
        (when @show-search-input?
          (let [id (str "mtags" part-number)
                all-movement-names (mapv :name (data/all-movements-english))
                movements-ac-comp (with-meta text-input-component
                                             {:component-did-mount #(auto-complete-did-mount (str "#" id) all-movement-names)})]
            [movements-ac-comp {:style       {:font-size "100%" :margin-top 20}
