Expose a few more helper functions in clojure-sql.core

1 files changed, 11 insertions, 1 deletions

diff --git a/src/clojure_sql/core.clj b/src/clojure_sql/core.clj
index 4a55c3a..01e128d 100644
--- a/src/clojure_sql/core.clj
+++ b/src/clojure_sql/core.clj
@@ -18,9 +18,11 @@
 (pull clojure-sql.dsl
       table join
       project rename
+      prefix-names-matching prefix-names as-subobject
       select
       group having
-      sort take drop)
+      sort take drop
+      union intersection)
 
 
 (def ^:private ^:dynamic *database-type* nil)
@@ -78,3 +80,11 @@
     (*query-executor* :delete compiled)))
 
 (q/set-query-deref-behaviour! run-query)
+
+(let [users (-> (table :users)
+                (project [:id :email]))
+      people (-> (table :people)
+                 (project [:id :name]))]
+  (join (rename users (as-subobject :user))
+        (rename people (as-subobject :person))
+        :on `(= :user.id :person.id)))