let render () =
  let
    _ =
      Js.Global.setTimeout
        (fun () ->
          let map = Leaflet.map("g-Map__Content") in
          let tileLayer = Leaflet.tileLayer "http://{s}.tile.osm.org/{z}/{x}/{y}.png" in
          let () = Leaflet.addTo tileLayer map in
          let () = Leaflet.setView map [| 51.505; -0.09 |] 13 in
          Leaflet.on map "contextmenu" (fun (event) ->
            Leaflet.addTo (Leaflet.marker (Leaflet.latLng event) { title = "Hey"; }) map))
        0
  in
  H.div
    ~attributes:[| H.className "g-Layout__Page" |]
    ~children: [|
      H.div
        ~attributes:[| H.className "g-Layout__Header" |]
        ~children:[| H.text "Map" |]
        ();
      H.div
        ~attributes:[| H.className "g-Map" |]
        ~children:[|
          H.div ~attributes:[| H.id "g-Map__Content" |] ()
        |]
        ();
    |]
    ()