             Field$Store/YES
             Field$Index/ANALYZED)))
 
+(defn- concat-values
+  "Concatenate all the maps values into a single string."
+  [map]
+  (apply str (interpose " " (vals map))))
+
 (defn- map->document
   "Create a Document from a map."
   [map]
   (let [document (Document.)]
     (doseq [[key value] map]
       (add-field document key value))
+    (add-field document :_content (concat-values map))
     document))
 
 (defn add

  "Create a new index in RAM."
  []
  (RAMDirectory.))

(defn- index-writer
  "Create an IndexWriter."

(ns clucy
  (:use clojure.contrib.java-utils)
  (:import java.io.File)
  (:import org.apache.lucene.document.Document)
  (:import (org.apache.lucene.document Field, Field$Store, Field$Index))
  (:import (org.apache.lucene.index IndexWriter, IndexWriter$MaxFieldLength))
  (:import org.apache.lucene.analysis.standard.StandardAnalyzer)
  (:import org.apache.lucene.queryParser.QueryParser)
  (:import org.apache.lucene.search.IndexSearcher)
  (:import (org.apache.lucene.store RAMDirectory, NIOFSDirectory))
  (:import org.apache.lucene.util.Version))

(def *version*  Version/LUCENE_30)
