I
This commit is contained in:
parent
ea89e37d77
commit
90a8dd5d6a
|
@ -81,6 +81,12 @@
|
||||||
:maxZoom 18}))
|
:maxZoom 18}))
|
||||||
view)
|
view)
|
||||||
(dispatch-sync [:set-view view])
|
(dispatch-sync [:set-view view])
|
||||||
|
(.on view "moveend"
|
||||||
|
(fn [_] (let [c (.getCenter view)]
|
||||||
|
(js/console.log (str "Moving centre to " c))
|
||||||
|
(dispatch :set-latitude (.-lat c))
|
||||||
|
(dispatch :set-longitude (.-lon c))
|
||||||
|
(dispatch :fetch-locality))))
|
||||||
(refresh-map-pins)
|
(refresh-map-pins)
|
||||||
view))
|
view))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue