     (-> (sv/query params)
         (p/then #(http/ok (ufc/rsp %))))))
 
-(defn page-create
+(defn create-page
   [{user :identity params :data}]
   (p/alet [params (assoc params
                          :type :page/create

;; Handlers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

(defn project-create
  [{user :identity params :data}]
  (p/alet [params (assoc params
                         :type :project/create

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

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

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