 
 (defn property-index-name
   [index]
-  (string/join "-" (concat (keys index) ["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]

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

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

(defn janus-edge-reindex
  [graph edge-label index]
  (try
    (close-transactions! graph)
    (let [manage (.openManagement graph)
          index (janus-get-edge-index manage edge-label index)]
      (.get (.updateIndex index SchemaAction/REINDEX))
      (.commit manage))
    (catch Exception e
      (.printStackTrace e))))
