(def app-state (atom {:a 100 :b 200}))


(defn a [state]
  [:pre (pr-str (get-in @state [:a]))])


(defn b [state]
  [:div
   [:button {:on-click
             (fn []
               (swap! state update-in [:b] inc))}]
   [:code (pr-str (get-in @state [:b]))]])


(defn home-page [state]
  [:div
   [:h2 "asfasdf"]
   [a (refine state [:a])]
   [b (refine state [:b])]])