   (delete-page conn params))
 
 ;; --- List Pages
+
+;; TODO: consider using transducers
 
 (defn get-pages-for-user
   [conn user]

                 " ORDER BY created_at ASC")]
    (->> (sc/fetch conn [sql user])
         (map usc/normalize-attrs)
         (map decode-page-data))))

(defmethod usc/-query :list/pages
  [conn {:keys [user] :as params}]
  (get-pages-for-user conn user))


;; --- List Pages by Project


              version options id user project]]
    (some-> (sc/fetch-one conn sqlv)
            (usc/normalize-attrs)
            (decode-page-data)
            (decode-page-options))))

(defmethod usc/-novelty :update/page-metadata
  [conn params]
