From a9fcd837ca81252ea3ed15f41821789dfe24c0d5 Mon Sep 17 00:00:00 2001 From: Justin Kramer Date: Tue, 7 Aug 2012 17:58:32 -0400 Subject: [PATCH] un-select --- src/honeysql/core.clj | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/honeysql/core.clj b/src/honeysql/core.clj index fd33fc1..e62bcac 100644 --- a/src/honeysql/core.clj +++ b/src/honeysql/core.clj @@ -18,6 +18,9 @@ (defn merge-select [sql-map & fields] (update-in sql-map [:select] concat fields)) +(defn un-select [sql-map & fields] + (update-in sql-map [:select] #(remove (set fields) %))) + (defn from [& tables] (let [[m tables] (if (map? (first tables)) [(first tables) (rest tables)]