gistfile1.clj

(ns example
  (:require [reagent.core :as r :refer [atom]]
            [reagent.cursor :as c]))

(defn input [prompt val]
  [:div
   prompt
   [:input {:value @val
            :on-change #(reset! val (.-target.value %))}]])

(defn name-edit [n]
  (let [{:keys [first-name last-name]} @n]
    [:div
     [:p "I'm editing " first-name " " last-name "."]
     
     [input "First name: " (c/cursor [:first-name] n)]
     [input "Last name:  " (c/cursor [:lastname] n)]]))

(defonce person (atom {:name
                       {:first-name "John" :last-name "Smith"}}))

(defn parent []
  [:div
   [:p "Current state: " (pr-str @person)]
   [name-edit (c/cursor [:name] person)]])