Clojurians Log v2

Is there a way to mock out functions used by components being rendered in a devcard? For instance if I have this component:

(ns scratch-reagent-devcards.components)

(defn click-handler []
  (prn "real handler"))

(defn first-component []
  [:button {:on-click click-handler} "Click Me"])

(defcard-rg first-card
  (with-redefs [comp/click-handler #(prn "mocked handler")]
    [comp/first-component]))

It's expected because by the time user clicks a button with-redefs block is finished. Instead make click-handler an explicit parameter of first-component.