go back to using the real honeysql

a release was made which includes the necessary
multimethod for the new distinct-on functionality
to work.

Author: b-ryan

CHANGELOG.md

@@ -1,3 +1,8 @@
+## 0.2.6
+- Add ILIKE, NOT ILIKE
+- ADD EXCEPT and EXCEPT ALL
+- Fix query-values priority
+
 ## 0.2.5
 - Adds if-exist in drop table
 

README.md

@@ -23,42 +23,44 @@ Currently honeysql-postgres supports the following postgres specific clauses:
   - rename column
 - insert-into-as
 - pattern matching (ILIKE and NOT ILIKE)
+- except (and except-all)
 
 ## Index
 
-- [Usage](https://github.com/nilenso/honeysql-postgres#usage)
-  - [Leiningen](https://github.com/nilenso/honeysql-postgres#leiningen)
-  - [Maven](https://github.com/nilenso/honeysql-postgres#maven)
-  - [repl](https://github.com/nilenso/honeysql-postgres#repl)
-  - [Breaking Change](https://github.com/nilenso/honeysql-postgres#breaking-change)
-  - [upsert](https://github.com/nilenso/honeysql-postgres#upsert)
-  - [insert into with alias](https://github.com/nilenso/honeysql-postgres#insert-into-with-alias)
-  - [over](https://github.com/nilenso/honeysql-postgres#over)
-  - [create view](https://github.com/nilenso/honeysql-postgres#create-view)
-  - [create table](https://github.com/nilenso/honeysql-postgres#create-table)
-  - [drop table](https://github.com/nilenso/honeysql-postgres#drop-table)
-  - [alter table](https://github.com/nilenso/honeysql-postgres#alter-table)
-  - [pattern matching](https://github.com/nilenso/honeysql-postgres#pattern-matching)
-  - [SQL functions](https://github.com/nilenso/honeysql-postgres#sql-functions)
-- [License](https://github.com/nilenso/honeysql-postgres#license)
+- [Usage](#usage)
+  - [Leiningen](#leiningen)
+  - [Maven](#maven)
+  - [repl](#repl)
+  - [Breaking Change](#breaking-change)
+  - [upsert](#upsert)
+  - [insert into with alias](#insert-into-with-alias)
+  - [over](#over)
+  - [create view](#create-view)
+  - [create table](#create-table)
+  - [drop table](#drop-table)
+  - [alter table](#alter-table)
+  - [pattern matching](#pattern-matching)
+  - [except](#except)
+  - [SQL functions](#sql-functions)
+- [License](#license)
 
 ## Usage
 
 ### Leiningen
 ```clj
-[nilenso/honeysql-postgres "0.2.5"]
+[nilenso/honeysql-postgres "0.2.6"]
 ```
 ### Maven
 ```xml
 <dependency>
   <groupId>nilenso</groupId>
   <artifactId>honeysql-postgres</artifactId>
-  <version>0.2.5</version>
+  <version>0.2.6</version>
 </dependency>
 ```
 ### repl
 ```clj
-; Note that `honeysql-postgres.format` and `honeysql-postgres.helpers` 
+; Note that `honeysql-postgres.format` and `honeysql-postgres.helpers`
 ; must be required into the project for the extended features to work.
 (require '[honeysql.core :as sql]
          '[honeysql.helpers :refer :all]
@@ -181,6 +183,17 @@ The `ilike` and `not-ilike` operators can be used to query data using a pattern
     sql/format)
 => ["SELECT * FROM products WHERE name NOT ILIKE ?" "%name%"]
 ```
+### except
+
+```clj
+
+(sql/format
+  {:except
+    [{:select [:ip]}
+     {:select [:ip] :from [:ip_location]}]})
+=> ["SELECT ip EXCEPT SELECT ip FROM ip_location"]
+```
+`except-all` works the same way as `except`.
 
 ### SQL functions
 The following are the SQL functions added in `honeysql-postgres`

deps.edn

@@ -1 +1 @@
-{:deps {honeysql {:git/url "https://github.com/jkk/honeysql" :sha "be203e9086808c47ab7e42520950db0bfd9efcc1" :exclusions [org.clojure/clojurescript]}}}
+{:deps {honeysql {:mvn/version "0.9.5" :exclusions [org.clojure/clojurescript]}}}

package.json

@@ -1,6 +1,6 @@
 {
   "name": "@honeysql/honeysql-postgres",
-  "version": "0.2.4",
+  "version": "0.2.6",
   "license": "EPL-1.0",
   "homepage": "https://github.com/nilenso/honeysql-postgres",
   "repository": {

project.clj

@@ -1,4 +1,4 @@
-(defproject b-ryan/honeysql-postgres "0.2.6"
+(defproject nilenso/honeysql-postgres "0.2.6"
   :description "PostgreSQL extension for honeysql"
   :url "https://github.com/nilenso/honeysql-postgres"
   :license {:name "Eclipse Public License"

src/honeysql_postgres/format.cljc

@@ -1,7 +1,8 @@
 (ns ^{:doc "Extension of the honeysql format functions specifically for postgreSQL"}
     honeysql-postgres.format
   (:require [honeysql.format :as sqlf :refer [fn-handler format-clause format-modifiers]] ;; multi-methods
-            [honeysql-postgres.util :as util]))
+            [honeysql-postgres.util :as util]
+            [clojure.string :as string]))
 
 (def ^:private custom-additions
   {:create-table 10
@@ -26,6 +27,8 @@
   "Determines the order that clauses will be placed within generated SQL"
   (merge {:with 30
           :with-recursive 40
+          :except 45
+          :except-all 45
           :select 50
           :insert-into 60
           :update 70
@@ -208,6 +211,14 @@
 (defmethod format-clause :insert-into-as [[_ [table-name table-alias]] _]
   (str  "INSERT INTO " (sqlf/to-sql table-name) " AS " (sqlf/to-sql table-alias)))
 
+(defmethod format-clause :except [[_ maps] _]
+  (binding [sqlf/*subquery?* false]
+    (string/join " EXCEPT " (map sqlf/to-sql maps))))
+
+(defmethod format-clause :except-all [[_ maps] _]
+  (binding [sqlf/*subquery?* false]
+    (string/join " EXCEPT ALL " (map sqlf/to-sql maps))))
+
 (override-default-clause-priority)
 
 (defmethod format-modifiers :distinct-on [[_ & fields]]

test/honeysql_postgres/postgres_test.cljc

@@ -221,6 +221,41 @@
               (where [:not-ilike :name "%name%"])
               sql/format)))))
 
+(deftest values-except-select
+  (testing "select which values are not not present in a table"
+    (is (= ["VALUES (?), (?), (?) EXCEPT SELECT id FROM images" 4 5 6]
+           (sql/format
+                  {:except
+                   [{:values [[4] [5] [6]]}
+                    {:select [:id] :from [:images]}]})))))
+
+
+(deftest select-except-select
+  (testing "select which rows are not present in another table"
+    (is (= ["SELECT ip EXCEPT SELECT ip FROM ip_location"]
+           (sql/format
+            {:except
+             [{:select [:ip]}
+              {:select [:ip] :from [:ip_location]}]})))))
+
+
+(deftest values-except-all-select
+  (testing "select which values are not not present in a table"
+    (is (= ["VALUES (?), (?), (?) EXCEPT ALL SELECT id FROM images" 4 5 6]
+           (sql/format
+            {:except-all
+             [{:values [[4] [5] [6]]}
+              {:select [:id] :from [:images]}]})))))
+
+
+(deftest select-except-all-select
+  (testing "select which rows are not present in another table"
+    (is (= ["SELECT ip EXCEPT ALL SELECT ip FROM ip_location"]
+           (sql/format
+            {:except-all
+             [{:select [:ip]}
+              {:select [:ip] :from [:ip_location]}]})))))
+
 (deftest select-distinct-on
   (testing "select distinct on"
     (is (= ["SELECT DISTINCT ON(\"a\", \"b\") \"c\" FROM \"products\" "]