From 85100e40ee47512459954ef2be1810ec2f899f99 Mon Sep 17 00:00:00 2001
From: "Michael S. Klishin" <michael@novemberain.com>
Date: Sat, 21 Apr 2012 06:35:33 +0400
Subject: [PATCH] Add elastisch.query fns for remaining query types

---
 src/clojurewerkz/elastisch/query.clj | 38 +++++++++++++++++++++++++---
 1 file changed, 34 insertions(+), 4 deletions(-)

diff --git a/src/clojurewerkz/elastisch/query.clj b/src/clojurewerkz/elastisch/query.clj
index fc0c99b2..44b8ba93 100644
--- a/src/clojurewerkz/elastisch/query.clj
+++ b/src/clojurewerkz/elastisch/query.clj
@@ -181,7 +181,37 @@
   [& {:as options}]
   {:wildcard options})
 
-;; has-child
-;; top-children
-;; nested
-;; custom-filters-score
+(defn indices
+  "Indices query
+
+   For more information, please refer to http://www.elasticsearch.org/guide/reference/query-dsl/indices-query.html"
+  [& {:as options}]
+  {:indices options})
+
+(defn has-child
+  "Has Child query
+
+   For more information, please refer to http://www.elasticsearch.org/guide/reference/query-dsl/has-child-query.html"
+  [& {:as options}]
+  {:has_child options})
+
+(defn custom-filters-score
+  "Custom Filters Score query
+
+   For more information, please refer to http://www.elasticsearch.org/guide/reference/query-dsl/custom-filters-score-query.html"
+  [& {:as options}]
+  {:custom_filters_score options})
+
+(defn top-children
+  "Top children query
+
+   For more information, please refer to http://www.elasticsearch.org/guide/reference/query-dsl/top-children-query.html"
+  [& {:as options}]
+  {:top_children options})
+
+(defn nested
+  "Nested document query
+
+   For more information, please refer to http://www.elasticsearch.org/guide/reference/query-dsl/nested-query.html"
+  [& {:as options}]
+  {:nested options})