@colisweb/rescript-toolkit 5.8.1 → 5.9.0

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@colisweb/rescript-toolkit",
-  "version": "5.8.1",
+  "version": "5.9.0",
   "type": "module",
   "scripts": {
     "clean": "rescript clean",

package/src/vendors/Here.res

@@ -0,0 +1,99 @@
+type coordinates = {
+  lat: float,
+  lng: float,
+}
+module Layers = {
+  type map
+
+  type rec t = {vector: vector}
+  and vector = {normal: normalVector}
+  and normalVector = {map: map}
+}
+module Platform = {
+  type t
+  type options = {apikey: string}
+
+  @new
+  external make: options => t = "H.service.Platform"
+
+  type layersOptions = {pois: bool}
+
+  @send
+  external createDefaultLayers: (t, layersOptions) => Layers.t = "createDefaultLayers"
+}
+
+module Map = {
+  type instance
+
+  type options = {
+    zoom: int,
+    center: coordinates,
+  }
+  @new
+  external make: (Dom.element, Layers.map, options) => instance = "H.Map"
+
+  module Marker = {
+    type t
+
+    @new
+    external make: coordinates => t = "H.map.Marker"
+
+    @send
+    external setData: (t, string) => unit = "setData"
+  }
+
+  module Viewport = {
+    type t
+
+    @send
+    external resize: (t, unit) => unit = "resize"
+  }
+
+  module Group = {
+    type t
+    @new
+    external make: unit => t = "H.map.Group"
+
+    @send
+    external addEventListener: (t, string, 'event => unit) => unit = "addEventListener"
+
+    @send
+    external addMarker: (t, Marker.t) => unit = "addObject"
+  }
+
+  @send
+  external addMarker: (instance, Marker.t) => unit = "addObject"
+  @send
+  external addGroup: (instance, Group.t) => unit = "addObject"
+
+  @send
+  external getViewPort: (instance, unit) => Viewport.t = "getViewPort"
+}
+
+module MapEvents = {
+  type t
+
+  @new
+  external make: Map.instance => t = "H.mapevents.MapEvents"
+}
+module Behavior = {
+  type t
+
+  @new
+  external make: MapEvents.t => t = "H.mapevents.Behavior"
+}
+module Ui = {
+  type t
+
+  @new
+  external createDefault: (Map.instance, Layers.t) => t = "H.ui.UI.createDefault"
+
+  module InfoBubble = {
+    type t
+    @new
+    external make: ('geometry, 'data) => t = "H.ui.InfoBubble"
+  }
+
+  @send
+  external addBubble: (t, InfoBubble.t) => unit = "addBubble"
+}