Reagent Form-2 Component Nesting Part 2 (Purely Demonstrative Purposes)

clicker2.core.cljs

(ns clicker2.core
  (:require [reagent.core :as r]))

(def message (r/atom "Hello"))

(defn clicker [some-message]
  (let [john? (r/atom true)]
    (fn [some-message]
      (let [clicks (r/atom 0)]
        (fn [some-message]
          [:div
           [:h1 {:on-click #(swap! john? not)} (if @john? "John" "James")]
           [:p {:on-click #(swap! clicks inc)} "Clicks: " @clicks]
           [:p {:on-click #(reset! message "Good Bye")} some-message]])))))

(defn my-app []
  [:div
   [clicker @message]])

(r/render
  [my-app]
  (js/document.getElementById "app"))