Om state test

core.cljs

(defonce app-state (atom {:text "51"}))

(om/root
  (fn [data owner]
    (reify om/IRender
      (render [_]
        (dom/div nil
                 (dom/p nil "Enter some numbers:")
                 (dom/input #js {:value (:text data)
                                 :onChange (fn [e]
                                             (let [input-txt e.target.value
                                                   input-number (first (re-seq #"\d+" input-txt))]
                                               (om/update! data [:text] input-number)))})
                 (dom/pre nil "Value: " (pr-str (:text data)))))))
  app-state
  {:target (. js/document (getElementById "app"))})