fable-compiler / fable.reactgooglemaps Goto Github PK

    externals: {
        'google.maps': 'window.google.maps'
    },

let route() =
    printfn "route GetBounds %A" (mapRef.GetBounds())
    //()
    
    if (mapRef.GetBounds().IsSome) then
        let directionService = GoogleMaps.maps.DirectionsService.Create()
        let directionRenderer = GoogleMaps.maps.DirectionsRenderer.Create()
        let map:GoogleMaps.Map option = Some (GoogleMaps.maps :?> GoogleMaps.Map)
        directionRenderer.setMap(map)
        
        let origin = GoogleMaps.maps.LatLng.Create(10.11111, 10.22222)
        let destination = GoogleMaps.maps.LatLng.Create(11.11111, 11.22222)
     
         
        let req:GoogleMaps.DirectionsRequest =
            { new GoogleMaps.DirectionsRequest with
                 member x.avoidFerries with get() = None and set v = () 
                 member x.avoidHighways with get() = None and set v = () 
                 member x.avoidTolls with get() = None and set v = () 
                 member x.destination with get() = Some !^destination and set v = ()
                 member x.durationInTraffic with get() = None and set v = () 
                 member x.drivingOptions with get() = None and set v = () 
                 member x.optimizeWaypoints with get() = None and set v = () 
                 member x.origin with get() = Some !^original and set v = () 
                 member x.provideRouteAlternatives with get() = None and set v = () 
                 member x.region with get() = None and set v = ()
                 member x.transitOptions with get() = None and set v = () 
                 member x.travelMode with get() = Some ("DRIVING" :> obj) and set v = () 
                 member x.unitSystem with get() = None and set v = () 
                 member x.waypoints with get() = None and set v = () }
        
        directionService.route(req, fun resp status -> printfn "route %A" resp.routes.Count; 
                                                        directionRenderer.setDirections(resp))
    else
        printfn "no bounds"
        ()   

let onIdle() =
    if mapRef.GetBounds().IsSome then
        route ()
    else
        printfn "no bounds

let map' center markers =
    let googleMapApiKey = Config.variable "GOOGLE_MAP_API_KEY" 
    googleMap [
        MapProperties.ApiKey googleMapApiKey
        MapProperties.MapLoadingContainer "maploadercontainer"
        MapProperties.MapContainer "mapcontainer"
        MapProperties.DefaultZoom 12 
        MapProperties.DefaultCenter !^ center 
        MapProperties.Center !^ center 
        MapProperties.Markers markers
        MapProperties.OnMapMounted onMapMounted
        MapProperties.OnIdle onIdle
    ]