:default-value of :input in reagent when rendering form multiple times

reagent-default-1.cljs

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; global app-state

(defonce app-state (r/atom {}))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; UI components

(defn to []
  [:form {:on-submit (fn [e] (swap! app-state assoc :page "from"))}
   [:input {:default-value "hi there"}]
   [:button "Submit"]])

(defn from []
  [:form {:on-submit (fn [e] (swap! app-state assoc :page "to"))}
   [:button "Click Me"]])

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; init system

(defn main []
  (condp = (:page app-state)
    "from" [from]
    "to" [to]))

(defn mount-root
  "init function:
  - initializes global state
  - attaches component 'main' to '#app' element in index.html"
  []
  (reset! app-state {:page "from"})
  (r/render [main] (.getElementById js/document "app")))

(.addEventListener js/document "deviceready" mount-root false)

reagent-default-2.cljs

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; global app-state

(defonce app-state (r/atom {}))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; UI components

(defn to []
  [:form {:on-submit (fn [e] (swap! app-state assoc :page "from"))}
   [:input {:default-value "hi there"
            :value (:val @app-state)
            :on-change (fn [e] (swap! app-state assoc :val (.. e -target -value)))}]
   [:button "Submit"]])

(defn from []
  [:form {:on-submit (fn [e] (swap! app-state assoc :page "to" :val nil))}
   [:button "Click Me"]])

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; init system

(defn main []
  (condp = (:page app-state)
    "from" [from]
    "to" [to]))

(defn mount-root
  "init function:
  - initializes global state
  - attaches component 'main' to '#app' element in index.html"
  []
  (reset! app-state {:page "from"})
  (r/render [main] (.getElementById js/document "app")))

(.addEventListener js/document "deviceready" mount-root false)