Hi Marc, sure - but give me a few days. It isn't anything more complex
than (hacked from memory, and obvious numpty upgrades
notwithstanding...):
(register-sub :add-patient/filter
(fn [db] (reaction (-> db deref state/AddPatient :filter)))
(register-handler :add-patient/edit-field
[c/middleware (path state/AddPatient :filter]
(fn [db [k v]] (assoc db k v)))
(defn []
(let [state (subscribe [:add-patient/filter])
field-a (reaction (-> state deref :field-a))]
[:input {:type "text" :value @field-a :on-change (fn [] (dispatch
[:add-patient/edit-field :field-a %]) nil)}]))