试剂-仅在挂载父对象后才调用父函数

如何解决试剂-仅在挂载父对象后才调用父函数

我不确定如何执行以下操作

我有一个父级（div）-子级（pre）组件关系，如下所示

(defn hello-world
  []
  (let [app-state (r/atom {:nums [1 2 3 4]})
        observer (atom nil)
        observe-me (fn [dom]
                     (when dom
                       (. @observer observe dom)))]
    [:div {:ref (fn [dom]
                  (let [o (js/IntersectionObserver.
                           (fn [e _] (rdbg/log e))
                           {:root dom
                            :threshold [0 1]})]
                    (reset! observer o)))}
     (for [e (:nums @app-state)]
       ^{:key e} [:pre {:ref observe-me} e])]))

鉴于组件在层次结构中的安装方式（先是子级，然后是父级），对observe-me的调用导致@observer为null（因为父div的ref回调）还没有被召唤）

我想

• 在安装父级时设置观察者
• 观察者应观察第一组子DOM元素
• 每次添加一个新子项（在我的情况下，只要修改应用程序状态，都是pre个元素），我都希望观察它们的DOM元素（FYI，.observe函数和{{ 1}}构造函数期望使用DOM元素，这就是为什么依赖ref回调的原因