duelinmarkers

(ns clj-record.query
  (:require [clojure.contrib.str-utils :as str-utils]))

(defn- clause-and-parameters [join-with values]
  [(str-utils/str-join join-with (reduce (fn [v1 v2] (conj v1 (if (nil? v2) "NULL" "?"))) [] values)) (filter (complement nil?) values)])


(defn between [value1 value2]
  (fn [attribute]
    (let [[clause parameters] (clause-and-parameters " AND " [value1 value2])]