Events driven arch

domain.clj

(ns domain)

(listen-event
 :item-created
 (fn [e]
   {:fetch {:url "https://backend.com/save"
            :body {:text (:text e)}}}))

view.clj

(ns view)

(defn view [model]
  [:div
   [:input {:on-changed (dispatch ::text-changed)}]
   [:button
    {:style {:enabled (not-empty? (:text model))}
     :on-clicked (dispatch ::add-clicked)}
    "add"]
   (into
    [:div]
    (map (fn [x] [:span (str x)]) (:model items)))])

(listen-event
 ::add-clicked
 (fn [e db]
   {:db (update-in [:items] (fn [items] (conj items (:text db))))
    :domain/item-created (:text db)}))