     (-> (sv/novelty params)
         (p/then #(http/ok (ufc/rsp %))))))
 
-(defn project-delete
+(defn delete-project
   [{user :identity params :route-params}]
   (let [params {:id (UUID/fromString (:id params))
                 :type :project/delete

    (-> (sv/novelty params)
        (p/then (fn [v] (http/no-content))))))

(defn page-list
  [{user :identity}]
  (let [params {:user user :type :page/list}]
    (-> (sv/query params)
        (p/then #(http/ok (ufc/rsp %))))))

(defn page-list-by-project
  [{user :identity params :route-params}]
  (let [params {:user user
                :project (UUID/fromString (:id params))

    (-> (sv/novelty params)
        (p/then #(http/ok (ufc/rsp %))))))


(defn update-page-metadata
  [{user :identity params :route-params data :data}]
  (let [params (merge data
                      {:id (UUID/fromString (:id params))
                       :type :page/update-metadata
                       :user user})]
    (-> (sv/novelty params)
        (p/then #(http/ok (ufc/rsp %))))))

(defn delete-page
  [{user :identity params :route-params}]
  (let [params {:id (UUID/fromString (:id params))
                :type :page/delete
