clojure jdbc - query with cursor

with-query-results-cursor

(def *default-fetch-size* 500)

(defn with-query-results-cursor [[sql & params :as sql-params] func]
  (sql/transaction
   (with-open [stmt (.prepareStatement (sql/connection) sql)]
     (doseq [[index value] (map vector (iterate inc 1) params)]
       (.setObject stmt index value))
     (.setFetchSize stmt *default-fetch-size*)
     (with-open [rset (.executeQuery stmt)]
       (func (resultset-seq rset))))))