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

Merge in Pull Request #34, Support basic common table expressions.

Browse source
This commit is contained in:
Dave Della Costa 2015-03-09 13:22:02 +09:00
parent 6d0ff344b9
commit 11e6d1c017
2 changed files with 31 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/honeysql/format.clj
View file

@ -161,7 +161,9 @@
(def default-clause-priorities
"Determines the order that clauses will be placed within generated SQL"
{:select 50
{:with 30
:with-recursive 40
:select 50
:insert-into 60
:update 70
:delete-from 80
@ -416,3 +418,19 @@
(defmethod format-clause :delete-from [[_ table] _]
(str "DELETE FROM " (to-sql table)))
(defn cte->sql
[[cte-name query]]
(str (to-sql cte-name) " AS " (to-sql query)))
(defmethod format-clause :with [[_ ctes] _]
(str "WITH " (comma-join (map cte->sql ctes))))
(defmethod format-clause :with-recursive [[_ ctes] _]
(str "WITH RECURSIVE " (comma-join (map cte->sql ctes))))
(defmethod format-clause :union [[_ maps] _]
(string/join " UNION " (map to-sql maps)))
(defmethod format-clause :union-all [[_ maps] _]
(string/join " UNION ALL " (map to-sql maps)))

12
src/honeysql/helpers.clj
View file

@ -219,3 +219,15 @@
(defn delete-from
([table] (delete-from nil table))
([m table] (build-clause :delete-from m table)))
(defmethod build-clause :with [_ m ctes]
(assoc m :with ctes))
(defmethod build-clause :with-recursive [_ m ctes]
(assoc m :with-recursive ctes))
(defmethod build-clause :union [_ m maps]
(assoc m :union maps))
(defmethod build-clause :union-all [_ m maps]
(assoc m :union-all maps))