 (ns bzzz.core
   (use ring.adapter.jetty)
   (use overtone.at-at)
+  (use clojure.stacktrace)
   (:require [clojure.data.json :as json])
   (:import (java.io StringReader File)
            (org.apache.lucene.analysis Analyzer TokenStream)

    (search (:index input) (:query input) (:size input))))

(defn handler [request]
  {:status 200
   :headers {"Content-Type" "application/json"}
   :body (json/write-str (work (:request-method request) (json/read-str (slurp (:body request)) :key-fn keyword))) } )

(def tp (mk-pool))
(defn main []

    (if (.isDirectory f)
      (get-search-manager (.getName f)))))

(defn use-searcher-from-search-manager [name f]
  (let [manager (get-search-manager name)
        searcher (.acquire manager)]
    (try
