         [add-movement-component movements i title]]])))
 
 (defn session-page []
-  (let []
+  (let [_ (session/put! :movement-session {:parts [[]] :activity "Styrketrening"})]
     (fn []
       [:div
        (if-let [session (session/get :movement-session)]
-
          [:div.content {:style {:margin-top 0}}
-          [:a {:style      {:float 'right :margin-right 20 :margin-top 20
-                            :color (:graphic (:activity session)) :opacity 1}
-               :onClick    #(remove-session %)
-               :onTouchEnd #(remove-session %)}
-           [:i.fa.fa-times.fa-4x]]
-
-          [:div.pure-g
-           (when (or (= "Naturlig bevegelse" (:activity session))
-                     (= "Styrketrening" (:activity session))
-                     (= "Mobilitet" (:activity session)))
-             [:span.pure-u
-              {:onClick #(generate-movement-session % (:activity session))}
-              "LAG ØKT"])
-           (when-let [description (:description session)]
-             [:div.pure-u (first (shuffle description))])]
-
+          [:div.pure-g
+            [:span.pure-u {:onClick #(generate-session %)} "Lag økt"]
+            [:span.pure-u {:onClick #(reset-session %)} "Fjern økt"]
+            (when-let [description (:description session)]
+              [:div.pure-u (first (shuffle description))])]
           [:div
            (when-let [parts (:parts session)]
              [:article.session
               (doall
                 (for [i (range (count parts))]
-                  ^{:key i} [part-component (get parts i) i (:title session)]))])]]
-
-
-         [:div.content {:style {:margin-top 0}}
-          [:a {:on-click #(session/put! :movement-session {:parts [[]] :activity "Styrketrening"})} "Klikk!"]])])))
+                  ^{:key i} [part-component (get parts i) i (:title session)]))])]])])))

                                :auto-focus  true
                                :on-save     #(when (some #{%} all-movement-names)
                                               (reset! show-search-input? false)
                                               (add-movement-from-search % part-number)
                                               )}]))]])))

(defn part-component []
  (let []

              [:a.pure-u.pure-button {:style {:margin "5px 5px 5px 5px"}
                                      :onClick #(;replace-movement % {:kw :next :movement m :part-number part-number}
                                                 )
                                      ;: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"])]])]])))

