mirror of
https://github.com/status-im/re-natal.git
synced 2025-02-17 06:56:27 +00:00
36 lines
1.3 KiB
Plaintext
36 lines
1.3 KiB
Plaintext
|
(ns re-natal.support
|
||
|
|
(:require [om.next :refer-macros [ui]]))
|
||
|
|
|
||
|
|
(def root-nodes (atom {}))
|
||
|
|
|
||
|
|
(defn root-node
|
||
|
|
"A substitute for a real root node (1) for mounting om-next component.
|
||
|
|
You have to call function :on-render and :on-unmount in reconciler :root-render :root-unmount function."
|
||
|
|
[id]
|
||
|
|
(let [content (atom nil)
|
||
|
|
instance (atom nil)
|
||
|
|
class (ui Object
|
||
|
|
(componentWillMount [this] (reset! instance this))
|
||
|
|
(render [_] @content))]
|
||
|
|
(swap! root-nodes assoc id {:on-render (fn [el]
|
||
|
|
(reset! content el)
|
||
|
|
(when @instance
|
||
|
|
(.forceUpdate @instance)))
|
||
|
|
:on-unmount (fn [])
|
||
|
|
:class class})
|
||
|
|
class))
|
||
|
|
(defn root-render
|
||
|
|
"Use this as reconciler :root-render function."
|
||
|
|
[el id]
|
||
|
|
(let [node (get @root-nodes id)
|
||
|
|
on-render (:on-render node)]
|
||
|
|
(when on-render (on-render el))))
|
||
|
|
|
||
|
|
(defn root-unmount
|
||
|
|
"Use this as reconciler :root-unmount function."
|
||
|
|
[id]
|
||
|
|
(let [node (get @root-nodes id)
|
||
|
|
unmount-fn (:on-unmount node)]
|
||
|
|
(when unmount-fn (unmount-fn))))
|
||
|
|
|