       (cond 
         (nil? result) :bad-taxonomy
         (keyword? result) result
-        :else true
-          ;get an updated categories
-          ;update the taxonomy with the updated categories
-          ;update the taxonomy
-          ;(update-taxonomy coll-slug taxonomy-slug taxonomy))
-        ))))+        :else (update-taxonomy coll-slug taxonomy-slug 
+          (assoc result :categories (create-categories (category-slugs-from-path category-path) (:categories result))))))))
        (blank? (first path-parts)) (vec (rest (rest path-parts)))
        :else (vec (rest path-parts))))))

(defn create-category
  "Given the slug of the collection, a path to a new category, add an optional name for the category, create
  the category and any missing categories in the path to the category.

        (if (true? validity) 
          (resource/create-resource coll-slug taxonomy-name :taxonomy reserved-properties props)
          validity))
      (create-taxonomy coll-slug taxonomy-name (assoc props :categories [])))))

(defn delete-taxonomy
  "Given the slug of the collection containing the taxonomy and the slug of the taxonomy,
