 
 (defmethod step :toggle-snoop [state _]
   (update state :snooping not))
+
+(defmethod step :filter [state {:keys [text]}]
+  (assoc state :filter-text text))
 
 
 ;; VIEW HELPERS

      {:on-click (on-click :toggle-snoop)}
      (if (:snooping state) "peeking..." "peek...")]
     (when (:snooping state)
      (into [:ol]
       (map #(vec [:li %]) (:stack state))))])
   [:div
    [:form
     {:on-submit (on-submit :push)}

  [greeting @app-state])

(reagent/render [app] (js/document.getElementById "app"))
(reagent/render [app] (js/document.getElementById "app"))
