     (def topType (. (. @database getTypeSystem) getTop))
     (def userThreadRelType (HGQuery$hg/assertAtom @database (HGRelType. "user-thread" (into-array HGHandle [topType topType]))))
     ;(def userPostRelType (HGQuery$hg/assertAtom @database (HGRelType. "user-post" (into-array HGHandle [topType topType]))))
+
+    ;(def postTypeHandle (. (. @database getTypeSystem) getTypeHandle Post))
+    ;(. (. @database getIndexManager) register (ByPartIndexer. postTypeHandle, "content"))
+    ;(. @database runMaintenance)
 
     (if (= database-exists 0)
       (do

  Creates a database or opens existing one from the folder specified by argument
  "
  [path]
  (let [dbinstance (HGEnvironment/get path)]
    (reset! database dbinstance)))

(defn close-database

(ns forumdb.core
  (:import [org.hypergraphdb HGEnvironment HGHandle HGPlainLink HGQuery$hg HGQuery HGValueLink HGConfiguration]
           (java.util Locale TimeZone)
           (java.text SimpleDateFormat)
           (java.io File)
