Clojure Om component communication example

gistfile1.clj

(defn child [props owner {:keys [ch]}]
  (reify
    om/IInitState
    (init-state [_]
      {:text ""})
    om/IRenderState
    (render-state [_ {:keys [text editable?]}]
      (dom/div nil
        (if editable?
          (dom/input ...)
          (dom/div nil text))
        (dom/button #js {:onClick #(async/put! ch :no-edit)}
          "No Edit")))))

(defn parent [props owner opts]
  (reify
    om/IInitState
    (init-state [_]
      {:ch (async/chan)
       :editable? true})
    om/IWillMount
    (will-mount [_]
      (async/go-loop []
        (when-let [value (async/<! (om/get-state owner :ch))]
          (condp = value
            :no-edit (om/set-state! owner :editable? false))
          (recur))))
    om/IRenderState
    (render-state [_ {:keys [editable? ch]}]
      (om/build child props {:state {:editable? editable?}
                             :opts ch}))))