reagent-lifecycle-async.cljs

;; Async Lifecycle

(defn lifecycle-channel [component]
  (.-lifecycleChannel component))

(defn with-lifecycle [klass]
  (let [ch (async/chan)
        handle (fn [event]
                 (fn [& args]
                   (async/put! ch event)
                   (when-let [f (event klass)]
                     (apply f args))))]
    (into
      {:component-will-mount
       (fn [this]
         (set! (.-lifecycleChannel this) ch)
         ((handle :component-will-mount) this))
       :component-will-unmount
       (fn [this]
         ((handle :component-will-unmount) this)
         (async/close! (lifecycle-channel this))) }
      (for [event [:get-initial-state :component-will-receive-props
                   :should-component-update :component-did-mount
                   :component-will-update :component-did-update :reagent-render]]
        [event (handle event)]))))