                          wu (take wu-n (shuffle warmup))
                          mob (take mob-n (shuffle mobility))
                          st (take st-n (shuffle strength))]
+                    (reset! template (sorted-map))
+                    (reset! c-counter 0)
                     (add-category! "Warmup" warmup)
-                    (add-category! "Mobility" mobility)
+                    (add-movement! "Push up" 1)
+                    #_(dotimes [n wu-n] (add-movement! (prep-name (nth wu n)) (ffirst @template)))
+                    (add-category! "Mobility" warmup)
+                    #_(dotimes [n mob-n] (add-movement! (prep-name (nth mob n)) (second @template)))
                     (add-category! "Strength" strength)
-                    (dotimes [n wu-n] (add-movement! (prep-name (nth wu n))))
-                    (dotimes [n mob-n] (add-movement! (prep-name (nth mob n))))
-                    (dotimes [n st-n] (add-movement! (prep-name (nth st n))))
+                    #_(dotimes [n st-n] (add-movement! (prep-name (nth st n)) (nth @template 2)))
 
                     #_(update! :strength)
                     #_(generate! "Warmup" warmup 1)

       "Maya"]]]]
   [:div {:class "section movements"}
    [:div.container
     ;----

     ;-----
     (let [categories [vals @template]]
       [:section
        (when (-> categories count pos?)
          [:div
           (for [c categories]
             ^{:key (:id c)} [category-item c])])])

     #_(let [items (vals @movements)]
       [:section#todoapp
        [:header#header
         [:h1 "Movements"]
        (when (-> items count pos?)
          [:div
           [:section#main
            [:ul#todo-list
             (for [todo items]
               ^{:key (:id todo)} [movement-item todo])]]])
         [movement-input {:id          "new-todo"
                          :placeholder "Add movement.."
                          :on-save     add-movement!}]]])
     ]]
   [:div.footer
    [:div.container

  (fn [{:keys [id category title movements]}]
    [:div
     [:label title]
     (let [items (vals @movements)]
       [:p (str items)]
       (when (-> items count pos?)
         [:div
          [:section
           [:ul
            [:li "!!"]
            #_(for [movement items]
              ^{:key (:id movement)} [movement-item movement])]]])
       [movement-input {:id          "new-movement"
                        :placeholder "Add movement.."
                        :on-save     #(add-movement! %1 id)}])]))

(print @template)

(defn home-page []
  [:div
