    (.getEdgeLabel manage (name edge-label))
    (.make (.makeEdgeLabel manage (name edge-label)))))
 
+(defn janus-get-edge-index
+  [manage edge-label index]
+  (let [index-name (edge-index-name edge-label index)
+        edge (janus-get-edge-label manage edge-label)]
+    (.getRelationIndex manage edge index-name)))
+
 (defn janus-apply-index
   [manage db-index index]
   (let [db (reduce

      (.commit manage))
    (catch Exception e
      (.printStackTrace e))))

(defn edge-index-name
  [edge-label index]


(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]
