finally, sane query logging

src/wanijo/infrastructure/neo4j.clj

@@ -15,23 +15,28 @@
     #"[0-9a-f]+-[0-9a-f]+-[0-9a-f]+-[0-9a-f]+-[0-9a-f]+" %))
 
 (def conn
-  (let [env #(or (System/getenv %1) %2)
+  (delay
-        port (env "NEO4J_PORT" "7687")
+    (let [env #(or (System/getenv %1) %2)
-        host (env "NEO4J_HOST" "localhost")
+          port (env "NEO4J_PORT" "7687")
-        user (env "NEO4J_USER" "neo4j")
+          host (env "NEO4J_HOST" "localhost")
-        pass (env "NEO4J_PASS" "b")]
+          user (env "NEO4J_USER" "neo4j")
-    (delay (db/connect
+          pass (env "NEO4J_PASS" "b")]
-            (str "bolt://" host ":" port)
+      (db/connect
-            user
+        (str "bolt://" host ":" port)
-            pass))))
+        user
+        pass))))
 
-(defmacro defquery [& args] `(db/defquery ~@args))
+(defonce query-strings (atom {}))
+(defmacro defquery [name query]
+  `(do (def ~name (db/create-query ~query))
+       (swap! wanijo.infrastructure.neo4j/query-strings
+              assoc (hash ~name) ~query)))
 
 (defn uuid []
   (str (UUID/randomUUID)))
 
 (defn butiful-query [qry]
-  (->> qry
+  (->> (get @query-strings (hash qry))
        str
        cljs/trim-newline
        cljs/split-lines
@@ -41,12 +46,17 @@
 
 (defn exec-query! [qry params]
   (with-open [session (db/get-session @conn)]
-    (println "executing query" qry "with params" params)
+    (let [query-string (get @query-strings (hash qry))
-    (devmode/send-to-bar
+          query-string (-> query-string
-     (str (butiful-query qry)
+                           (cljs/replace #"\n" "")
-          "<br>---Params---<br>"
+                           (cljs/replace #"\s+" " "))
-          params))
+          query-string (str \" query-string \")]
-    (qry session params)))
+      (println "query" query-string "with params" params)
+      (devmode/send-to-bar
+        (str (butiful-query qry)
+             "<br>---Params---<br>"
+             params))
+      (qry session params))))
 
 (spec/def ::tuple-query-list
   (spec/coll-of

src/wanijo/infrastructure/repl.clj

@@ -97,4 +97,5 @@
 
 (defn dev-server! []
   (main/stop-server!)
-  (main/start-server-dev!))
+  (main/start-server-dev!)
+  (println "Startet server at http://localhost:8080"))