uuids!

src/wanijo/neo4j.clj

@@ -10,6 +10,9 @@
 (defn conn! []
   @conn)
 
+(defn uuid []
+  (str (java.util.UUID/randomUUID)))
+
 (defn butiful-query [qry]
   (->> qry
        clojure.string/trim-newline

src/wanijo/repl.clj

@@ -7,9 +7,11 @@
 
 (defn create-user! [ident pw]
   (cypher/tquery
-   neo4j/conn
+   (neo4j/conn!)
    "CREATE (n:user)
        SET n.ident = {ident}
-       SET n.pw = {pw}"
+       SET n.pw = {pw}
+       SET n.uuid = {uuid}"
    {:ident ident
-    :pw (hashers/derive pw)}))
+    :pw (hashers/derive pw)
+    :uuid (neo4j/uuid)}))