sql.clj

(require '[clojure.core.strint :as si]                    ;[org.clojure/core.incubator "0.1.3"]
         '[clojure.string      :as str])

(defn deterpolate
  [s]
  (let [inter (@#'si/interpolate s)]
    (vec (list* (str/join "?" (filter string? inter))
                (filter (complement string?) inter)))))

(defmacro <?
  [q]
  `(j/query (get-connection) ~(deterpolate q)))

(mapv #(<? "select * from foop where id = ~{%}") [1 2 3])