        "Maya"]]]]
    [:div {:class "section movements"}
     [:div.container
-     ;----
-
-     ;-----
-     (let [categories [vals @template]]
+     (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)]
       (when (-> items count pos?)
         [:div
          [:section#main
           [:ul#todo-list
            (for [movement items]
              ^{:key (:id movement)} [movement-item movement])]]])
       [movement-input {:id          "new-todo"
                        :placeholder "Add movement.."
                        :on-save     add-movement!}])]))

(defn temp []
  [:div
   (for [part @ttemplate]
     [:div
      [:div.row [:h3 (:name part)]]
      (list-movements part)])])

(defn home-page []
  [:div

(defn refresh-movement! [id] (update-movement! id (prep-name (first (take 1 (shuffle strength))))))

(defn mmap [m f a] (->> m (f a) (into (empty m))))

(defn movement-input [{:keys [title on-save on-stop]}]
  (let [val (atom title)
