Test out removing one of four Reagent queues

Author: Deraen

src/reagent/impl/batching.cljs

@@ -24,11 +24,6 @@
                  fake-raf)
              w))))
 
-(defn compare-mount-order
-  [^clj c1 ^clj c2]
-  (- (.-cljsMountOrder c1)
-     (.-cljsMountOrder c2)))
-
 ;; See reagent.dom.client/render and hydrate-root
 ;;
 ;; On React 19 react-dom/flushSync is used to flush all Reagent ratom changes
@@ -40,18 +35,6 @@
   (fn noop [f]
     (f)))
 
-(defn run-queue [a]
-  ;; sort components by mount order, to make sure parents
-  ;; are rendered before children
-  (.sort a compare-mount-order)
-  (react-flush
-    (fn []
-      (dotimes [i (alength a)]
-        (let [^js/React.Component c (aget a i)]
-          (when (true? (.-cljsIsDirty c))
-            (.forceUpdate c)))))))
-
-
 ;; Set from ratom.cljs
 (defonce ratom-flush (fn []))
 
@@ -95,20 +78,14 @@
       (set! (.-beforeFlush this) nil)
       (run-funs fs)))
 
-  (flush-render [this]
-    (when-some [fs (.-componentQueue this)]
-      (set! (.-componentQueue this) nil)
-      (run-queue fs)))
-
   (flush-after-render [this]
     (when-some [fs (.-afterRender this)]
       (set! (.-afterRender this) nil)
       (run-funs fs)))
 
   (flush-queues [this]
     (.flush-before-flush this)
-    (ratom-flush)
-    (.flush-render this)
+    (react-flush (fn [] (ratom-flush)))
     (.flush-after-render this)))
 
 (def render-queue (->RenderQueue false))
@@ -120,12 +97,7 @@
   (.flush-after-render render-queue))
 
 (defn queue-render [^clj c]
-  (when-not (.-cljsIsDirty c)
-    (set! (.-cljsIsDirty c) true)
-    (.queue-render render-queue c)))
-
-(defn mark-rendered [^clj c]
-  (set! (.-cljsIsDirty c) false))
+  (.forceUpdate c))
 
 (defn do-before-flush [f]
   (.add-before-flush render-queue f))

src/reagent/impl/component.cljs

@@ -199,7 +199,6 @@
     (fn componentWillUnmount []
       (this-as c
                (some-> (gobj/get c "cljsRatom") ratom/dispose!)
-               (batch/mark-rendered c)
                (when-not (nil? f)
                  (.call f c c))))
 
@@ -255,7 +254,6 @@
                      (this-as c (if util/*non-reactive*
                                   (do-render c compiler)
                                   (let [^clj rat (gobj/get c "cljsRatom")]
-                                    (batch/mark-rendered c)
                                     (if (nil? rat)
                                       (ratom/run-in-reaction #(do-render c compiler) c "cljsRatom"
                                                              batch/queue-render rat-opts)
@@ -306,7 +304,6 @@
                   (construct this props))
                 (when get-initial-state
                   (set! (.-state this) (get-initial-state this)))
-                (set! (.-cljsMountOrder this) (batch/next-mount-count))
                 this))]
 
     (gobj/extend (.-prototype cmp) (.-prototype react/Component) methods)
@@ -412,7 +409,6 @@
           _ (when-not (.-current state-ref)
               (let [obj #js {}]
                 (set! (.-forceUpdate obj) (fn [] (update-count inc)))
-                (set! (.-cljsMountOrder obj) (batch/next-mount-count))
                 ;; Use reagentRender name, as that is also used
                 ;; by class components, and some checks.
                 ;; reagentRender is replaced with form-2 inner fn,
@@ -438,8 +434,6 @@
       ;; so reaction fn will always see the latest value.
       (set! (.-argv reagent-state) argv)
 
-      (batch/mark-rendered reagent-state)
-
       ;; static-fns :render
       (if (nil? rat)
         (ratom/run-in-reaction