(require
'[clojurewerkz.neocons.rest :as neo-rest]
'[clojurewerkz.neocons.rest.transaction :as tx]
'[clojurewerkz.neocons.rest.cypher :as cypher])
(def NEO4J_HOST "http://192.168.99.100:7474/db/data/")
(def NEO4J_USER "neo4j")
(def NEO4J_PASSWORD "password")
(defn single-cypher
([query]
(single-cypher query nil))
([query parameters]
(let [connection (neo-rest/connect NEO4J_HOST NEO4J_USER NEO4J_PASSWORD)
transaction (tx/begin-tx connection)
statement (tx/statement query nil)]
(tx/with-transaction
connection
transaction
true
(tx/execute connection transaction statement)))))
Here is the query:
(single-cypher "CREATE (n) RETURN ID(n)")
=>
[{:commit "http://192.168.99.100:7474/db/data/transaction/129/commit",
:location "http://192.168.99.100:7474/db/data/transaction/129",
:expires "Tue, 29 Dec 2015 20:14:25 +0000"}
()]