@colisweb/rescript-toolkit 5.43.3 → 5.44.0

package/package.json

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

package/src/utils/Toolkit__Utils.res

@@ -47,3 +47,49 @@ let decodeEnumFromString = (type enum, str: string, enum: module(Enum with type
   | Error(_) => None
   }
 }
+
+%%private(
+  let hashString = %raw(`function hashString(str) {
+  let hash = 5381;
+  for (let i = 0; i < str.length; i++) {
+    hash = ((hash << 5) + hash) + str.charCodeAt(i); // hash * 33 + c
+  }
+  return hash >>> 0; // assurer un entier positif
+}`)
+
+  let hsvToRgb = %raw(`function hsvToRgb(h, s, v) {
+  const c = v * s;
+  const hPrime = h / 60;
+  const x = c * (1 - Math.abs((hPrime % 2) - 1));
+  let r1, g1, b1;
+
+  if (hPrime < 1) {
+    r1 = c; g1 = x; b1 = 0;
+  } else if (hPrime < 2) {
+    r1 = x; g1 = c; b1 = 0;
+  } else if (hPrime < 3) {
+    r1 = 0; g1 = c; b1 = x;
+  } else if (hPrime < 4) {
+    r1 = 0; g1 = x; b1 = c;
+  } else if (hPrime < 5) {
+    r1 = x; g1 = 0; b1 = c;
+  } else {
+    r1 = c; g1 = 0; b1 = x;
+  }
+
+  const m = v - c;
+  const r = Math.round((r1 + m) * 255).toString(16).padStart(2, '0');
+  const g = Math.round((g1 + m) * 255).toString(16).padStart(2, '0');
+  const b = Math.round((b1 + m) * 255).toString(16).padStart(2, '0');
+
+  return [r, g, b];
+}`)
+)
+
+let makeRgbColor = id => {
+  let hash = hashString(id)
+  let hue = mod(hash * 997, 360)
+  let (r, g, b) = hsvToRgb(hue, 0.6, 0.85)
+
+  "#" ++ r ++ g ++ b
+}

package/src/vendors/Here.res

@@ -33,7 +33,7 @@ module Event = {
     type data = {maxZoom: int}
 
     @send
-    external getData: (t<'data>, unit) => 'data = "getData"
+    external getData: (t<'data>, unit) => option<'data> = "getData"
     @send
     external getObjectData: (t<'data>, unit) => data = "getData"
     @send
@@ -182,6 +182,8 @@ module Map = {
     external setData: (t, string) => unit = "setData"
     @send
     external addEventListener: (t, string, Event.t<'a> => unit) => unit = "addEventListener"
+    @send
+    external removeEventListener: (t, string, Event.t<'a> => unit) => unit = "removeEventListener"
 
     external toObject: t => mapObject = "%identity"
   }
@@ -199,6 +201,8 @@ module Map = {
     external setData: (t, string) => unit = "setData"
     @send
     external addEventListener: (t, string, Event.t<'a> => unit) => unit = "addEventListener"
+    @send
+    external removeEventListener: (t, string, Event.t<'a> => unit) => unit = "removeEventListener"
 
     external toObject: t => mapObject = "%identity"
   }
@@ -241,6 +245,8 @@ module Map = {
 
     @send
     external addEventListener: (t, string, Event.t<'data> => unit) => unit = "addEventListener"
+    @send
+    external removeEventListener: (t, string, Event.t<'a> => unit) => unit = "removeEventListener"
 
     @send
     external addMarker: (t, Marker.t) => unit = "addObject"