(ns clojure-sql.jdbc
  (:require [clojure.java.jdbc :as jdbc]
            [clojure-sql.core :refer [set-query-executor!]]))

(defn use-jdbc! [connection-string]
  (set-query-executor! (fn [type query] 
                         (jdbc/with-connection connection-string
                           (case type
                             :select (jdbc/with-query-results results query
                                       (vec results))
                             :insert (jdbc/do-prepared-return-keys (first query) (next query))
                             :update (jdbc/do-prepared-return-keys (first query) (next query))
                             :delete (first (jdbc/do-prepared (first query) (next query)))
                             (assert false (str "Unknown query type: " type)))))))