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

special case identifier quoting for *

Browse source
This commit is contained in:
Justin Kramer 2013-08-07 18:22:44 -04:00
parent 3b07644b8a
commit 9d46b48366
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/honeysql/format.clj
View file

@ -42,10 +42,11 @@
*quote-identifier-fn*)] *quote-identifier-fn*)]
(if-not qf (if-not qf
x x
(let [qf* #(if (= "*" %) % (qf %))]
(if-not split (if-not split
(qf (name x)) (qf* (name x))
(let [parts (string/split (name x) #"\.")] (let [parts (string/split (name x) #"\.")]
(string/join "." (map qf parts))))))) (string/join "." (map qf* parts))))))))
(def infix-fns (def infix-fns
#{"+" "-" "*" "/" "%" "mod" "|" "&" "^" #{"+" "-" "*" "/" "%" "mod" "|" "&" "^"