 
 (defn save-query-handler
   [graph search mongo request]
-  (let [query (json/parse-stream (InputStreamReader. (:body request)) keyword)
+  (let [query (read-json (:body request))
         relevant (select-keys query [:user :key :focus :path :query :current])]
     (log/info query)
     (store/store-query {:graph graph :search search} mongo relevant)

        schema (protograph/graph-structure protograph)
        mongo (mongo/connect! (get config :mongo))
        routes (polaris/build-routes (ophion-routes graph search schema mongo))
        router (resource/wrap-resource (polaris/router routes) "public")
        app (-> router
                (resource/wrap-resource "public")
                (keyword/wrap-keyword-params)


(defn vertex-query-handler
  [graph search cache request]
  (let [raw-query (read-json (:body request))
        ;; query (query/delabelize raw-query)
        _ (log/info (mapv identity (query/delabelize raw-query)))
        ;; out (check-query-cache graph search cache query)
