 ;;     - show-before: int >= 0 number of days before the due date when the instance should appear in the inbox
 
 (defn- new-task
-  [task-name parent task-type tags tasks description remind-date due-date show-before repeating done]
+  [task-name project parent task-type tags tasks description remind-date due-date show-before repeating done]
   (when-not (is-task {:type task-type})
     (throw (js/Error. (str "Task type must belong to ["
                            (clojure.string/join ", "

                           "]. Provided type was `"
                           task-type
                           "`"))))
  {:name        task-name
   :id          (build-id task-name)
   :parent      (:id parent)
   :type        (if (= (:type parent) "Project")
                  "Task"

  @tasks)

(defn register-task
  [task-name {:keys [project parent tags tasks description remind-date due-date show-before repeating]
              :or   {project     (inbox)
                     parent      (inbox)
                     tags        []
                     tasks   []
                     description ""
