   []
   (str (.now js/Date)))
 
+(defn- register-entity-in
+  [entity atom-map]
+  (swap! atom-map assoc (:id entity) entity))
+
 (defn- is-project
   [entity]
   (= (:type entity) "Project"))

(defn all-projects
  []
  (assoc
    (merge @active-projects @completed-projects)
    "Inbox"
    (inbox)))

(defn register-task
  [task-name {:keys [parent tags sub-tasks description remind-date due-date show-before repeating]

                           "`"))))
  {:name        task-name
   :id          (build-id task-name)
   :parent      (:id parent)
   :type        (if (= (:type parent) "Project")
                  "Task"
                  "SubTask")
