Example rum

gistfile1.clj

(ns rumming.core
  (:require [rum]))

(defn handle-number-input [event owner]
  (let [text (.. event -target -value)
        num-pattern #"-?\d*"]
    (if (re-matches num-pattern text)
      (reset! owner text)
      (reset! owner @owner))))

(rum/defc input < rum/reactive [ref]
  [:input {:type "text"
           :value (rum/react ref)
           :style {:width 100}
           :on-change #(handle-number-input % ref)}])

(def app-state (atom {:first-input "123" :second-input "456"}))

(rum/defc big-component < rum/cursored-watch [app-state]
  [:div
   (input (rum/cursor app-state [:first-input]))
   (input (rum/cursor app-state [:second-input]))])

(defn main
  []
  (rum/mount (big-component app-state) (.-body js/document)))

(set! (.-onload js/window) main)