Querying a SolRDF index with Clojure and Lucene

querying-solrdf-with-clojure-and-lucene.clj

(ns clojene.core
  (:import 
    (org.apache.lucene.store FSDirectory) 
    (org.apache.lucene.index IndexReader)
    (org.apache.lucene.search IndexSearcher) 
    (org.apache.lucene.queryparser.classic.QueryParser)
    (org.apache.lucene.analysis.core.SimpleAnalyzer)
    (java.io File)))

(defn searcher [path] 
  (IndexSearcher. 
      (IndexReader/open 
        (FSDirectory/open (File. path)))))

(defn search [searcher q]
  (let [
        parser (QueryParser. "o" (SimpleAnalyzer.))
        query (.parse parser q)]
    (.search searcher query 10))) 

(defn dump [results index]
  (let [
        as-triple #(.doc searcher (.doc %)) 
        s #(.get % "s")
        p #(.get % "p")
        o #(.get % "o") 
        as-spo #(str (s %) " " (p %) " " (o %))]
  (str 
    (reduce #(str %1 " . \n" %2 )  
      (map as-spo 
           (map as-triple (.scoreDocs results)))) " . ")))