SQL*.clj

(defmacro SQL* [& clauses]
  (let [query (walk/postwalk
                (fn [x]
                  (if (and (symbol? x) (re-find #"^[A-Z]+$" (name x)))
                    (if (resolve x)
                      x
                      (str x))
                    x)) clauses)
        query (cons 'list query)]
  `(join \space ~query)))

(defn load-data-infile [file table]
  (SQL*
    LOAD DATA INFILE (sql-dquote file)
    IGNORE INTO TABLE (sql-escape table)
    FIELDS TERMINATED BY (sql-dquote "|") LINES TERMINATED BY (sql-dquote "\\n")
    IGNORE 1 LINES))