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

Support case/when/then/else

Browse source
This commit is contained in:
Sean Corfield 2020-10-12 18:38:05 -07:00
parent d1e4e196d0
commit eff3b03a81
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/honey/sql.cljc
View file

@ -483,6 +483,23 @@
(into params-x)
(into params-a)
(into params-b))))
:case
(fn [_ clauses]
(let [[sqls params]
(reduce (fn [[sqls params] [condition value]]
(let [[sqlc & paramsc] (when-not (= :else condition)
(format-expr condition))
[sqlv & paramsv] (format-expr value)]
[(if (= :else condition)
(conj sqls (sql-kw :else) sqlv)
(conj sqls (sql-kw :when) sqlc (sql-kw :then) sqlv))
(-> params (into paramsc) (into paramsv))]))
[[] []]
(partition 2 clauses))]
(into [(str (sql-kw :case) " "
(str/join " " sqls)
" " (sql-kw :end))]
params)))
:cast
(fn [_ [x type]]
(let [[sql & params] (format-expr x)