summaryrefslogtreecommitdiff
path: root/src/clojure_sql
diff options
context:
space:
mode:
authorCarlo Zancanaro <carlo@clearboxsystems.com.au>2013-06-23 02:57:21 +1000
committerCarlo Zancanaro <carlo@clearboxsystems.com.au>2013-06-23 02:57:21 +1000
commit68c206aab2ddac42bef6de97fd065f75edcb1a98 (patch)
tree2e524942a3fda916d8464e2f229c633068a6520b /src/clojure_sql
parent9083622a4a41052492c693baa7429309f4628317 (diff)
Make sort and group create subqueries to be correct
Diffstat (limited to 'src/clojure_sql')
-rw-r--r--src/clojure_sql/dsl.clj26
1 files changed, 20 insertions, 6 deletions
diff --git a/src/clojure_sql/dsl.clj b/src/clojure_sql/dsl.clj
index 0053cbb..6d9b413 100644
--- a/src/clojure_sql/dsl.clj
+++ b/src/clojure_sql/dsl.clj
@@ -273,7 +273,7 @@
Example:
(select query `(= :id 10)) - filter for an id of 10
(select query {:id 10}) - equivalent to the above
- (select query `(in :id '(1 2 3)) - filter for an id of 1, 2 or 3 "
+ (select query `(in :id '(1 2 3)) - filter for an id of 1, 2 or 3"
[query expression]
(let [table-name (if (= (count (:tables query)) 1)
(-> query :tables first key))
@@ -288,13 +288,21 @@
(assoc query :where new-where)))
(defn sort
- "Apply a sort to a query.
+ "Apply a sort to a query. Replaces any existing sort on the
+ query (ie. is not stable) .
`fields` is a sequential collection of fields to sort by. Each
element of fields can be either a field name, :field, or a vector of
- field and direction, [:field :desc]."
+ field and direction, [:field :desc].
+
+ If a `take` or `drop` has already been applied to this query then
+ the sort will be applied *after* the `take`/`drop` (which results in
+ a subquery being created)."
[query fields]
- (let [table-name (if (= (count (:tables query)) 1)
+ (let [query (if (or (:take query) (:drop query))
+ (convert-to-subquery query)
+ query)
+ table-name (if (= (count (:tables query)) 1)
(-> query :tables first key))
fields-seq (if (sequential? fields)
fields
@@ -309,9 +317,15 @@
(defn group
"Apply a grouping to a query.
- `fields` is a sequential collection of fields to group by."
+ `fields` is a sequential collection of fields to group by.
+
+ If the query has already been grouped then this will create a
+ subquery."
[query fields]
- (let [table-name (if (= (count (:tables query)) 1)
+ (let [query (if (:group query)
+ (convert-to-subquery query)
+ query)
+ table-name (if (= (count (:tables query)) 1)
(-> query :tables first key))
fields-seq (if (sequential? fields)
fields