metadata generated keys

(defn do-prepared-with-generated-keys
  "Executes an (optionally parameterized) SQL prepared statement on the
	  open database connection. Each param-group is a seq of values for all of
	  the parameters.  #THIS MONKEY PATCH INCLUDES METADATA#"
  [sql & param-groups]
  (with-open [stmt (.prepareStatement (connection) sql)]
    (doseq [param-group param-groups]
      (doseq [[index value] (map vector (iterate inc 1) param-group)]
        (.setObject stmt index value))
      (.addBatch stmt))
    (transaction
     (with-meta
       (seq (.executeBatch stmt))
       (let [gen-keys (.getGeneratedKeys stmt)]
         {:generated-keys (doall (map (comp first vals) (resultset-seq gen-keys)))}
         )))
    ))