gistfile1.clj

(defn collect*
  [table & xs]
  (if (vector? (last xs))
    (let [tbls (interpose ", " (map #(sqlize %) (conj (butlast xs) table)))
	  cols (str-utils/str-join ", " (map #(sqlize %) (last xs)))]
      (apply str "select " cols " from " tbls))
    (let [tbls (interpose ", " (map #(sqlize %) (conj xs table)))]
      (apply str "select * from " tbls))))

(defmacro collect
  [table & xs]
  `(let [~'as (fn[name# col#] (str (sqlize col#) " AS " (sqlize name#)))]
     (collect* ~table ~@xs)))