     (-> (sv/novelty params)
         (p/then (fn [v] (http/no-content))))))
 
-(defn page-list
+(defn list-pages
   [{user :identity}]
   (let [params {:user user :type :page/list}]
     (-> (sv/query params)
         (p/then #(http/ok (ufc/rsp %))))))
 
-(defn page-list-by-project
+(defn list-pages-by-project
   [{user :identity params :route-params}]
   (let [params {:user user
                 :project (UUID/fromString (:id params))

;; 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

           loc (str "/api/projects/" (:id result))]
    (http/created loc (ufc/rsp result))))

(defn update-project
  [{user :identity params :route-params data :data}]
  (let [params (merge data
                      {:id (UUID/fromString (:id params))
