 
 ;: VIEW
 
-(defn counter [count inc-msg dec-msg]
-  [:div
-   [:h2 (str "count " count)]
-   [:button 
-    {:on-click (on-click inc-msg)}
-    "+"]
-   [:button 
-    {:on-click (on-click dec-msg)}
-    "-"]])
 
 (defn greeting [state]
   [:div

    [:button
     {:on-click (on-click :pop)}
     "Pop"]]
   [:div
    [:p (:new-item-text state)]
    [:input

  (assoc state :new-item-text (:text m)))

(defmethod step :push [{:keys [new-item-text] :as state} _]
  (-> state
    (update :stack conj new-item-text)
    (assoc :new-item-text "")))

(defmethod step :pop [state _]
  (update state :stack pop))

(defmethod step :toggle-snoop [state _]
  (update state :snooping not))


; VIEW HELPERS
