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

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

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

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

(defmethod usc/-query :list/pages-by-project
  [conn {:keys [user project] :as params}]
