                      (filter-not-all-display env)
                      (draw-checkbox env)
                      (draw-todo-item env)
+                     (draw-todo-item-editing env)
+                     (draw-todo-to-add env)
+                     (draw-interface env)
+                     (add-todo env)
                      ))
     (aget env "indexes"))
   )

                                           (pretend! "elem-event" #js [(str (aget cur 3) "-1") "onClick" nil nil])
                                           ))))

(defn run []
  (let [env (init)]
    (defaults env)

(defn remove-todo [env]
  (let [itr1 (magic-iterator (index env :todo-removed) #js [0 nil nil nil nil])
        itr2 (magic-iterator (index env :todo) #js [nil 0 1 nil nil])
        itr3 (magic-iterator (index env :todo-editing) #js [nil 0 nil 1 nil])
        itr4 (magic-iterator (index env :todo-completed) #js [nil 0 nil nil 1])
        join-itr (join-iterator #js [itr1 itr2 itr3 itr4])]
    (transform (aget env "ctx") join-itr (fn [cur remember! forget! pretend!]
