Lazy select with Korma

gistfile1.clj

(ns something.cool
  (:use [korma.core]))

(def page-size 20)

(defn lazy-select
  "Creates a lazy sequence of sql results by batch selecting."
  ([statement]
   (lazy-select statement 0))
  ([statement o]
   (when-let [r (seq (select (-> statement
                               (limit page-size)
                               (offset o))))]
     (lazy-cat r (lazy-select statement (+ o page-size))))))