   (vec (flatten (walk-buckets <-buckets agg-result {} steps value-path))))
 
 (defn- ->query
-  [{:keys [agg-terms sub-aggs show-dimensions? filters default-filter size] :or {size 5}}]
+  [{:keys [agg-terms sub-aggs filters default-filter size] :or {size 5}}]
   (let [agg-query (build-parsets-agg {:terms (reverse agg-terms) :sub-aggs sub-aggs :size size})
         agg-query (filtered-agg (merge {:body agg-query}
                                  (merge {:filter default-filter}

                 :make-agg-query #(->query {:agg-terms ((:get-agg-terms (om/get-state owner)))
                                            :sub-aggs (:sub agg)
                                            :size (:size (om/get-state owner))
                                            :show-dimensions? (:show-dimensions? (om/get-state owner))
                                            :filters (ref-state :filters)
                                            :default-filter (get-in (es-settings) [:default :filter])})
                 :value-path (apply vector (map keyword value-path))

                 :svg nil
                 :parsets-data []
                 :highlighted {}
                 :show-dimensions (get-in opts [:dimensions :show])}))
  (will-mount [_]
              (do-parsets-agg owner))
  (render-state [_ {:keys [parsets-agg get-agg-terms parsets-data show-dimensions]}]
