migrate events to cljc

src/main/shadow/experiments/grove/components.cljs

@@ -221,7 +221,10 @@
   (supports? [this next]
     (and (component-init? next)
          (let [other (.-component ^ComponentInit next)]
-           (identical? config other))))
+           (identical? config other))
+         (let [custom-check (-> config .-opts (get :supports?))]
+           (or (nil? custom-check)
+               (custom-check args (.-args next))))))
 
   (dom-sync! [this ^ComponentInit next]
     (. config (check-args-fn this args (.-args next)))

src/main/shadow/experiments/grove/events.cljs → src/main/shadow/experiments/grove/events.cljc

@@ -83,7 +83,7 @@
     ;; each query will figure out on its own if if actually triggers an update
     ;; FIXME: figure out if this can be smarter
     (reduce
-      (fn [_ ^IQuery query]
+      (fn [_ #?(:clj query :cljs ^IQuery query)]
         (query-refresh! query))
       nil
       queries)))
@@ -103,7 +103,7 @@
   (let [^function handler-fn (get event-config ev-id)]
 
     (if-not handler-fn
-      (js/console.warn "no event handler for" ev-id tx env)
+      (throw (ex-info "unhandled event" {:ev-id ev-id :tx tx}))
 
       (let [before @data-ref
 
@@ -120,7 +120,7 @@
           (fn [_ fx-key value]
             (let [fx-fn (get fx-config fx-key)]
               (if-not fx-fn
-                (js/console.warn "invalid fx" fx-key value)
+                (throw (ex-info "invalid fx" {:fx-key fx-key :fx-value value}))
                 (let [transact-fn
                       (fn [fx-tx]
                         ;; FIXME: should probably track the fx causing this transaction and the original tx

src/main/shadow/experiments/grove/history.cljs

@@ -1,7 +1,7 @@
 (ns shadow.experiments.grove.history
   (:require
     [shadow.experiments.grove :as sg]
-    [shadow.experiments.grove.runtime.worker-engine :as eng]
+    [shadow.experiments.grove.worker-engine :as eng]
     [clojure.string :as str])
   (:import [goog.history Html5History]))
 

src/main/shadow/experiments/grove/http_fx.cljs

@@ -1,7 +1,7 @@
 (ns shadow.experiments.grove.http-fx
   (:require
     [clojure.string :as str]
-    [shadow.experiments.grove.runtime.worker :as sw]))
+    [shadow.experiments.grove.worker :as sw]))
 
 ;; this is using XMLHttpRequest. no intent on making this usable with anything else.
 ;; might split this up into different namespace so there could be one variant using js/fetch
@@ -210,7 +210,7 @@
     (read-fn (.-responseText xhr-req))))
 
 (defn parse-transit [env ^js xhr-req]
-  (let [read-fn (:shadow.experiments.grove.runtime.worker/transit-read env)]
+  (let [read-fn (:shadow.experiments.grove.worker/transit-read env)]
     (when-not read-fn
       (throw (ex-info "received a transit response but didn't have transit-read fn" {})))
     (read-fn (.-responseText xhr-req))))

src/main/shadow/experiments/grove/preload.cljs

@@ -3,7 +3,7 @@
     [shadow.remote.runtime.api :as p]
     [shadow.remote.runtime.shared :as shared]
     [shadow.cljs.devtools.client.shared :as cljs-shared]
-    [shadow.experiments.grove.runtime.worker :as sw]
+    [shadow.experiments.grove.worker :as sw]
     [shadow.experiments.grove.db :as db]
     [shadow.experiments.grove.runtime :as rt]
     [clojure.core.protocols :as cp]))

src/main/shadow/experiments/grove/runtime.clj

@@ -0,0 +1 @@
+(ns shadow.experiments.grove.runtime)