multiqueries in neo4j

src/wanijo/framework/neo4j.clj

@@ -37,6 +37,17 @@
           params))
     (qry session params)))
 
+(defn exec-queries! [& tuples]
+  (with-open [session (db/get-session @conn)]
+    (doseq [tuple tuples]
+      (let [qry (first tuple)
+            params (second tuple)]
+        (devmode/send-to-bar
+         (str (butiful-query qry)
+              "<br>---Params---<br>"
+              params))
+        (qry session params)))))
+
 (defn now-str []
   (time-format/unparse
    (time-format/formatters :basic-date-time)

src/wanijo/schema/domain.clj

@@ -155,12 +155,11 @@
    CREATE (s)<-[:permission{type:{permtype}}]-(u)")
 
 (defn assign-users! [uuid users permission]
-  (neo4j/exec-query!
-   remove-assignments
+  (neo4j/exec-queries!
+   [remove-assignments
     {:uuid uuid
-    :permtype permission})
-  (neo4j/exec-query!
-   create-assignments
+     :permtype permission}]
+   [create-assignments
     {:uuid uuid
      :users users
-    :permtype permission}))
+     :permtype permission}]))