lag.clj

(defn instant-text-input
  [{:keys [format-value on-change-text]}]
  (let [this' (atom nil)
        input (atom nil)
        on-change-text' (fn [new-value]
                          (.setNativeProps @input
                                           #js {:text (format-value new-value)})
                          (some-> @this' r/force-update)
                          (on-change-text new-value))]
    (r/create-class
      {:display-name "instant-text-input"
       :component-did-mount
       (fn [this] (reset! this' this))
       :component-will-unmount
       (fn [] (reset! this' nil))
       :reagent-render
       (fn [props]
         [text-input (assoc props
                            :ref #(reset! input %)
                            :on-change-text on-change-text')])})))