feat(datalog-console): respond to datalog-console messages (#91)

Co-authored-by: Chris Smothers <[email protected]>

Author: groundedsage

src/homebase/datalog_console.cljs

@@ -0,0 +1,18 @@
+(ns homebase.datalog-console
+  (:require [goog.object :as gobj]
+            [cljs.reader]))
+
+(js/document.documentElement.setAttribute "__datalog-console-remote-installed__" true)
+
+(defn init!
+  [{:keys [conn]}]
+  (.addEventListener js/window "message"
+                     (fn [event]
+                       (when-let [devtool-message (gobj/getValueByKeys event "data" ":datalog-console.client/devtool-message")]
+                         (let [msg-type (:type (cljs.reader/read-string devtool-message))]
+                           (case msg-type
+
+                             :datalog-console.client/request-whole-database-as-string
+                             (.postMessage js/window #js {":datalog-console.remote/remote-message" (pr-str @conn)} "*")
+
+                             nil))))))

src/homebase/react.cljs

@@ -7,7 +7,10 @@
    [clojure.set]
    [homebase.js :as hbjs]
    [datascript.core :as d]
-   [datascript.impl.entity :as de]))
+   [datascript.impl.entity :as de]
+   [homebase.datalog-console :as datalog-console]))
+
+
 
 (defn try-hook [hook-name f]
   (if hbjs/*debug*
@@ -134,6 +137,7 @@
         conn (d/create-conn (if schema
                               (merge (hbjs/js->schema schema) base-schema)
                               base-schema))]
+    (datalog-console/init! {:conn conn})
     (when initial-tx (hbjs/transact! conn initial-tx))
     (react/createElement
      (goog.object/get homebase-context "Provider")