 (defn- document->map
   "Turn a Document object into a map."
   [document]
-  (into {}
-    (for [f (.getFields document)]
-      [(keyword (.name f)) (.stringValue f)])))
+  (-> (into {}
+        (for [f (.getFields document)]
+          [(keyword (.name f)) (.stringValue f)]))
+      (dissoc :_content)))
 
 (defn search
   "Search the supplied index with a query string."
-  [index query max-results default-field]
-  (with-open [searcher (IndexSearcher. index)]
-    (let [parser (QueryParser. *version* (as-str default-field) *analyzer*)
-          query  (.parse parser query)
-          hits   (.search searcher query max-results)]
-      (doall
-        (for [hit (.scoreDocs hits)]
-          (document->map (.doc searcher (.doc hit))))))))
+  ([index query max-results]
+    (search index query max-results :_content))
+  ([index query max-results default-field]
+    (with-open [searcher (IndexSearcher. index)]
+      (let [parser (QueryParser. *version* (as-str default-field) *analyzer*)
+            query  (.parse parser query)
+            hits   (.search searcher query max-results)]
+        (doall
+          (for [hit (.scoreDocs hits)]
+            (document->map (.doc searcher (.doc hit)))))))))

            Field$Store/YES
            Field$Index/ANALYZED)))

(defn- map->document
  "Create a Document from a map."
  [map]
  (let [document (Document.)]
    (doseq [[key value] map]
      (add-field document key value))
    document))

(defn add

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

(defn disk-index
  "Create a new index in a directory on disk."
  [dir-path]
  (NIOFSDirectory. (File. dir-path)))

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