Commit 66a1eb4c authored by Camil Staps's avatar Camil Staps 🙂 Committed by Steffen Michels

Leaflet: update center on the server after zooming

parent da5fe78c
......@@ -294,9 +294,15 @@ where
# (taskId,world) = me .# "attributes.taskId" .? world
# (editorId,world) = me .# "attributes.editorId" .? world
# (mapObj,world) = args.[0] .# "target" .? world
# (center,world) = getMapCenter mapObj world
# (zoom,world) = getMapZoom mapObj world
# (bounds,world) = getMapBounds mapObj world
# edit = toJSON [LDSetZoom zoom,LDSetBounds bounds:if (jsValToBool` False ignore) [] [LDSetManualPerspective]]
# edit = toJSON
[ LDSetCenter center
, LDSetZoom zoom
, LDSetBounds bounds
: if (jsValToBool` False ignore) [] [LDSetManualPerspective]
]
# world = (me .# "doEditEvent" .$! (taskId,editorId,edit)) world
= world
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment