gistfile1.txt

(defn paginate-all-ents [page pp _db & [return-ent?]]
  (let [_drop (* page pp)]
    (->> (d/seek-datoms (db/_d) :avet :content/fk)
         (drop _drop)
         (take pp)
         (map (fn [_datom]
                (if return-ent?
                  (ret-rec
                   (db/by-id (nth _datom 0 ) _db))
                  (nth _datom 0 ))))
         vec)))