 (defn- number-processor []
   (.availableProcessors (Runtime/getRuntime)))
 
-(defn- get-root-path ^String []
+(defn- root-path ^String []
   (.getSourceRootPath env))
 
-(defn- get-data-root-path ^String []
+(defn- data-root-path ^String []
   (.getDataRootFile env))
 
 (defn- hits-per-page []
   (.getHitsPerPage env))
 
-(defn- get-sort ^Sort [opts]
+(defn- get-sort [opts]
   (let [sort (:sort opts)]
     (cond
       (= sort "date") (Sort. (SortField. "date" SortField$Type/STRING true))
       (= sort "path") (Sort. (SortField. "fullpath" SortField$Type/STRING))
       :else (Sort/RELEVANCE))))
 
-(defn- query-builder ^QueryBuilder [opts]
+(defn- query-builder [opts]
   (let [qb (QueryBuilder.)]
     (doto qb
       (.setDefs (:def opts))

(defn- subreaders [projects]
  (map #(DirectoryReader/open
         (FSDirectory/open
          (File. (str (get-data-root-path)
                      "/index" (.getPath ^Project %))))) projects))

(defn- search-multi-database [projects]

(defn- search-single-database []
  (IndexSearcher. (DirectoryReader/open
                   (FSDirectory/open
                    (File. (str (data-root-path) "/index"))))))

(defn- searcher []
  (if (has-projects?)
