luciano/honeysql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added support for preserving dashes in quoted names.o

Browse source
This commit is contained in:
Jon Doane 2015-10-11 10:47:14 -04:00
parent ee2b778d52
commit 95e208485a
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/honeysql/format.clj
View file

@ -38,6 +38,8 @@
(def ^:dynamic *subquery?* false) (def ^:dynamic *subquery?* false)
(def ^:dynamic *allow-dashed-names?* true)
(def ^:private quote-fns (def ^:private quote-fns
{:ansi #(str \" % \") {:ansi #(str \" % \")
:mysql #(str \` % \`) :mysql #(str \` % \`)
@ -55,12 +57,13 @@
(string/replace s "-" "_")) (string/replace s "-" "_"))
(defn quote-identifier [x & {:keys [style split] :or {split true}}] (defn quote-identifier [x & {:keys [style split] :or {split true}}]
(let [qf (if style (let [name-transform-fn (if *allow-dashed-names?* identity undasherize)
qf (if style
(quote-fns style) (quote-fns style)
*quote-identifier-fn*) *quote-identifier-fn*)
s (cond s (cond
(or (keyword? x) (symbol? x)) (undasherize (name x)) (or (keyword? x) (symbol? x)) (name-transform-fn (name x))
(string? x) (if qf x (undasherize x)) (string? x) (if qf x (name-transform-fn x))
:else (str x))] :else (str x))]
(if-not qf (if-not qf
s s
@ -228,7 +231,8 @@
*param-names* (atom []) *param-names* (atom [])
*input-params* (atom params) *input-params* (atom params)
*quote-identifier-fn* (quote-fns (:quoting opts)) *quote-identifier-fn* (quote-fns (:quoting opts))
*parameterizer* (parameterizers (or (:parameterizer opts) :jdbc))] *parameterizer* (parameterizers (or (:parameterizer opts) :jdbc))
*allow-dashed-names?* (:allow-dashed-names opts)]
(let [sql-str (to-sql sql-map)] (let [sql-str (to-sql sql-map)]
(if (seq @*params*) (if (seq @*params*)
(if (:return-param-names opts) (if (:return-param-names opts)