在clojurescript /试剂/ reagi中跟踪鼠标？

(defn mouse-tracker []
  (let [mouse-pos (reagi/atom {:x 0 :y 0})]
    (reagent/create-class
      {:reagent-render (fn []
                         [:div
                          [:p "Mouse position: " (:x @mouse-pos) ", " (:y @mouse-pos)]])})))

(defn mouse-tracker []
  (let [mouse-pos (reagi/atom {:x 0 :y 0})]
    (reagent/create-class
      {:reagent-render (fn []
                         [:div
                          [:p "Mouse position: " (:x @mouse-pos) ", " (:y @mouse-pos)]])
       :component-did-mount (fn []
                              (reagi/on-js (:mousemove js/document)
                                (fn [event]
                                  (swap! mouse-pos assoc :x (.-clientX event))
                                  (swap! mouse-pos assoc :y (.-clientY event))))})))

(defn mount-root []
  (reagent/render [mouse-tracker] (js/document.getElementById "app")))

(mount-root)