             db-index index)]
     (.buildCompositeIndex db)))
 
-(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)]

    (.setProperty base "storage.cassandra.keyspace" (or (name keyspace) "ophion"))
    (.setProperty base "storage.cassandra.frame-size-mb" "60")
    (JanusGraphFactory/open base)))

(defn janus-get-property-key
  [manage [key type]]

        property-index (janus-get-property-index manage index)]
    (.get (.updateIndex manage property-index SchemaAction/REINDEX))
    (.commit manage)))

(defn janus-edge-index
  [graph edge-label index]
