                  {:bool
                   {:must [{:bool {:filter (get-filter options)}}
                           {:dis_max
-                           {:queries [{:term {:wbid q}}
+                           {:queries [{:term {:wbid (:q_raw options)}}
                                       {:match_phrase {:label {:query q
                                                               :minimum_should_match "70%"}}}
                                       {:match_phrase {:other_names {:query q

                 {:bool
                  {:must [{:bool {:filter (get-filter options)}}
                          {:dis_max
                           {:queries [{:term {:wbid q}}
                                      {:match_phrase {:label {:query q
                                                              :minimum_should_match "70%"}}}
                                      {:match_phrase {:other_names {:query q


(defn wrap-query-lower-case [handler]
  (fn [request]
    (let [q-raw (get-in request [:params :q])
          new-request (-> request
                          (update-in [:params :q] #(some-> % clojure.string/lower-case))
                          (assoc-in [:params :q_raw] q-raw)
                          )]
      (handler new-request))
    ))


(defn get-filter [options]
