                      show-before 0
                      repeating   false}}]
   (let [task (new-task task-name
-                       project
+                       parent
                        tags
                        sub-tasks
                        description


(defn- new-task
  [task-name project tags sub-tasks description remind-date due-date show-before repeating done]
  {:name        task-name
   :id          (build-id task-name)
   :project     (select-keys project [:name :id])
   :tags        tags
   :sub-tasks   sub-tasks
   :description description

  (:require [cljs-uuid-utils.core :as uuid]
            [great-things-done.db :as db]))

(def ^:private task-types ["Task" "SubTask"])

;; Caches
(def ^:private meta-projects      (atom []))
(def ^:private projects           (atom {}))
(def ^:private active-projects    (atom {}))
(def ^:private completed-projects (atom {}))
(def ^:private tasks              (atom {}))
(def ^:private active-tasks       (atom {}))
(def ^:private repeating-tasks    (atom {}))
(def ^:private completed-tasks    (atom {}))
