fix(discover): allow proceed when native epoch-cb is available, no 10x required

Closes #15. discover used to refuse with :ns-not-loaded any time
:ten-x-loaded? was false. Since the native epoch-cb path landed
(rf-ybv, re-frame ≥ 1.4), re-frame-pair's runtime can read epochs
without 10x — the panel-based UI is one consumer of the trace stream,
not the only one. discover wasn't aware.

Now: refuse only when both :ten-x-loaded? AND :native-epoch-cb? are
false. With the native cb installed, discover succeeds even on stacks
that don't use 10x (re-frisk, plain dev tools, no panel UI at all).

Hint updated to name both alternatives. 2 new deftests cover the
two new branches: native-cb-true-no-10x → success; both-false →
:ns-not-loaded with the new hint.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>

Author: mike-thompson-day8

scripts/ops.clj

@@ -1037,10 +1037,15 @@
           (not (:ok? health))
           (emit (with-version health))
 
-          (not (:ten-x-loaded? health))
+          ;; #15 — only refuse on missing 10x when the native epoch cb
+          ;; (re-frame ≥ rf-ybv) is also unavailable. With the native cb
+          ;; installed, re-frame-pair can read epochs without 10x — useful
+          ;; for stacks using re-frisk or no panel-based dev tooling at all.
+          (and (not (:ten-x-loaded? health))
+               (not (:native-epoch-cb? health)))
           (emit (with-version
                   {:ok? false :reason :ns-not-loaded :missing :re-frame-10x
-                   :hint "Add re-frame-10x to your dev deps and preloads."}))
+                   :hint "No epoch source available. Either add re-frame-10x to dev deps + preloads, or upgrade to re-frame ≥ 1.4 (which provides register-epoch-cb — re-frame-pair installs it automatically and consumes epochs without 10x)."}))
 
           (not (:trace-enabled? health))
           (emit (with-version

tests/ops_smoke.bb

@@ -1204,6 +1204,9 @@
                     ops/inject-runtime!        (fn [_build-id _opts]
                                                  {:ok? true
                                                   :ten-x-loaded? false
+                                                  ;; #15 — also no native cb,
+                                                  ;; so :ns-not-loaded fires.
+                                                  :native-epoch-cb? false
                                                   :trace-enabled? true})
                     ops/startup-context        (fn [_build-id] {})
                     ops/version-check          (fn [] {:current "0.1.0-beta.6"
@@ -1214,6 +1217,49 @@
         (is (= "0.1.0-beta.6" (:version @emitted))
             "operator reporting a bug always sees their version")))))
 
+(deftest discover-proceeds-without-ten-x-when-native-epoch-cb-present
+  (testing "#15 — discover does NOT block on missing 10x when native epoch cb is available"
+    (let [emitted (atom nil)]
+      (with-redefs [ops/ensure-port!           (fn [] true)
+                    ops/read-port              (fn [] 8777)
+                    ops/shadow-cljs-available? (fn [_] true)
+                    ops/list-builds-on-port    (fn [_] [:app])
+                    ops/inject-runtime!        (fn [_build-id _opts]
+                                                 {:ok? true
+                                                  :ten-x-loaded? false
+                                                  :native-epoch-cb? true
+                                                  :trace-enabled? true
+                                                  :re-com-debug? true
+                                                  :versions {:by-dep {}}})
+                    ops/startup-context        (fn [_build-id] {})
+                    ops/version-check          (fn [] nil)
+                    ops/emit                   (fn [m] (reset! emitted m))]
+        (#'ops/discover [])
+        (is (true? (:ok? @emitted))
+            "discover succeeds with no 10x because native epoch cb is the alternate epoch source")
+        (is (not= :ns-not-loaded (:reason @emitted))
+            "no :ns-not-loaded refusal when native cb is present")))))
+
+(deftest discover-blocks-when-both-ten-x-and-native-cb-missing
+  (testing "#15 — discover still blocks when neither 10x nor the native epoch cb is available"
+    (let [emitted (atom nil)]
+      (with-redefs [ops/ensure-port!           (fn [] true)
+                    ops/read-port              (fn [] 8777)
+                    ops/shadow-cljs-available? (fn [_] true)
+                    ops/list-builds-on-port    (fn [_] [:app])
+                    ops/inject-runtime!        (fn [_build-id _opts]
+                                                 {:ok? true
+                                                  :ten-x-loaded? false
+                                                  :native-epoch-cb? false
+                                                  :trace-enabled? true})
+                    ops/startup-context        (fn [_build-id] {})
+                    ops/version-check          (fn [] nil)
+                    ops/emit                   (fn [m] (reset! emitted m))]
+        (#'ops/discover [])
+        (is (= :ns-not-loaded (:reason @emitted)) "still refuses when no epoch source at all")
+        (is (str/includes? (:hint @emitted) "register-epoch-cb")
+            ":hint mentions the native cb as an alternative to 10x")))))
+
 ;; ---------------------------------------------------------------------------
 ;; Tests for issue #14: refuse non-shadow-cljs nREPLs early with a structured
 ;; :unsupported-build-tool, instead of crashing on the first call to