       (.commit manage))
     (catch Exception e
       (.printStackTrace e))))
+
+(defn close-transactions!
+  [graph]
+  (map #(.rollback %) (.getOpenTransactions graph)))
+
+(defn janus-property-reindex
+  [graph index]
+  (close-transactions! graph)
+  (let [manage (.openManagement graph)
+        property-index (janus-get-property-index manage index)]
+    (.get (.updateIndex manage property-index SchemaAction/REINDEX))
+    (.commit manage)))
 
 (defn edge-index-name
   [edge-label index]

   (.getEdgeLabel manage (name edge-label))
   (.make (.makeEdgeLabel manage (name edge-label)))))

(defn janus-apply-index
  [manage db-index index]
  (let [db (reduce


(defn property-index-name
  [index]
  (string/join "-" (concat (map name (keys index)) ["index"])))

(defn janus-get-property-index
  [manage index]
  (let [index-name (property-index-name index)]
    (.getGraphIndex manage index-name)))

(defn janus-property-index
  [graph index]
