Adding options and onClick for map.

Author: nojaf

src/Fable.ReactGoogleMaps/Fable.Helpers.ReactGoogleMaps.fs

@@ -25,7 +25,17 @@ module Coordinates =
         NE : Position
         SW : Position
     }
-
+    
+    // https://developers.google.com/maps/documentation/javascript/reference/coordinates#LatLngBounds
+    
+    type LatLngBounds =
+        abstract member extend : U2<LatLngBounds, Position> -> LatLngBounds
+        
+    [<Emit("new window.google.maps.LatLngBounds()")>]
+    let newLatLngBounds () : LatLngBounds = jsNative
+    
+    [<Emit("new window.google.maps.LatLngBounds($0, $1)")>]
+    let newLatLngBoundsWith (sw: U2<LatLng, Position>, ne: U2<LatLng, Position>) : LatLngBounds = jsNative
 
 module Places =
 
@@ -58,6 +68,9 @@ type MapRef(mapRef) =
 
     member __.GetCenter() : Coordinates.Position =
         mapRef?getCenter() |> unbox
+        
+    member __.FitBounds(bounds: Coordinates.LatLngBounds) : unit =
+        mapRef?fitBounds(bounds)
 
 module Props =
 

src/Fable.ReactGoogleMaps/README.md

@@ -134,3 +134,33 @@ let myMap =
 let bounds = mapRef.GetBounds()
 
 ```
+
+### Set bounds of map to fit all the markers
+
+```fs
+    // ...
+    let markerPositions: Position list = // ...
+        
+    // In some scenarios ref can be null, f.ex. slow network when the google maps isn't fully loaded yet.
+    let setRef (ref:obj) =
+        let bounds = ReactGoogleMaps.Coordinates.newLatLngBounds()
+        
+        match markerPositions, Option.ofObj ref with
+        | multiple, Some ref ->
+            multiple
+            |> List.fold (fun (acc:LatLngBounds) pos ->
+                acc.extend( !^ pos)
+            ) bounds
+            |> (MapRef ref).FitBounds
+        | _ ->
+            ()
+            
+    googleMap [ MapProperties.ApiKey googleMapApiKey
+                    MapProperties.MapContainer "mapContainer"
+                    MapProperties.DefaultZoom 9
+                    MapProperties.DefaultCenter defaultCenter
+                    MapProperties.Center defaultCenter
+                    MapProperties.Options mapStyle
+                    MapProperties.Markers markers
+                    MapProperties.SetRef setRef ]
+```