(* create map *) let map = let container_id = "map" in Leaflet.Map.create container_id (* setup map *) let () = (* set osm layer *) let osm_layer = Leaflet.Layer.create_tile_osm None in Leaflet.Layer.add_to map osm_layer; (* set view *) let latlng = Leaflet.Latlng.create 40.71 (-74.0) in ignore @@ Leaflet.Map.set_view latlng ~zoom:(Some 13) map