swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wrap latlng: partial fix for leaflet alternative earth

Browse source
This commit is contained in:
Swrup 2022-02-19 00:21:31 +01:00
parent 92625ecc23
commit 5fbb709834
1 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/js/js_map.ml
View file

@ -58,10 +58,12 @@ module Leaflet = struct
ignore @@ Jv.call map "setView" [| latlng; Jv.of_int 13 |]
let on_moveend _event =
log "on zoomend event@.";
log "on moveend event@.";
let latlng = Jv.call map "getCenter" [||] in
let lat = Jv.get latlng "lat" in
let lng = Jv.get latlng "lng" in
(*we need to wrap coordinates so we don't drift into a parralel universe and lose track of markers :^) *)
let wrapped_latlng = Jv.call map "wrapLatLng" [| latlng |] in
let lat = Jv.get wrapped_latlng "lat" in
let lng = Jv.get wrapped_latlng "lng" in
match
Brr_io.Storage.set_item storage (Jstr.of_string "lat") (Jv.to_jstr lat)
with
@ -71,7 +73,14 @@ module Leaflet = struct
Brr_io.Storage.set_item storage (Jstr.of_string "lng") (Jv.to_jstr lng)
with
| (exception Jv.Error _) | Error _ -> failwith "can't set latlng storage"
| Ok () -> () )
| Ok () ->
let is_wrapped =
not @@ Jv.to_bool @@ Jv.call latlng "equals" [| wrapped_latlng |]
in
if is_wrapped then (
log "setView to wrapped coordinate@.";
(* warning: calling setView in on_moveend can cause recursion *)
ignore @@ Jv.call map "setView" [| wrapped_latlng |] ) )
let on_zoomend _event =
log "on zoomend event@.";