@colisweb/rescript-toolkit 3.6.0 → 3.7.1

package/locale/fr.json

@@ -1,4 +1,9 @@
 [
+  {
+    "id": "_04eadf92",
+    "defaultMessage": "L'email est invalide.",
+    "message": "L'email est invalide."
+  },
   {
     "id": "_05a04636",
     "defaultMessage": "Bin packing",
@@ -14,6 +19,11 @@
     "defaultMessage": "Format requis : 14 chiffres",
     "message": "Format requis : 14 chiffres"
   },
+  {
+    "id": "_242e1892",
+    "defaultMessage": "Cette valeur ne peut être supérieure à {value}.",
+    "message": "Cette valeur ne peut être supérieure à {value}."
+  },
   {
     "id": "_24a9ec30",
     "defaultMessage": "Format requis : 4 caractères ou nombres (exemples : 'A1b2' 'abcd')",
@@ -69,6 +79,16 @@
     "defaultMessage": "Mercredi",
     "message": "Mercredi"
   },
+  {
+    "id": "_95659302",
+    "defaultMessage": "Cette valeur ne peut être supérieure à {value}",
+    "message": "Cette valeur ne peut être supérieure à {value}"
+  },
+  {
+    "id": "_992d813c",
+    "defaultMessage": "Le champ doit avoir au maximum {value} caractères.",
+    "message": "Le champ doit avoir au maximum {value} caractères."
+  },
   {
     "id": "_9fc912ee",
     "defaultMessage": "Lundi",
@@ -79,6 +99,11 @@
     "defaultMessage": "Déconnexion",
     "message": "Déconnexion"
   },
+  {
+    "id": "_a86b5641",
+    "defaultMessage": "Champ requis",
+    "message": "Champ requis"
+  },
   {
     "id": "_aaa4996e",
     "defaultMessage": "Dimanche",
@@ -89,11 +114,21 @@
     "defaultMessage": "Doit etre un entier strictement positif",
     "message": "Doit etre un entier strictement positif"
   },
+  {
+    "id": "_b766f5f3",
+    "defaultMessage": "Cette valeur doit être supérieure à {value}",
+    "message": "Cette valeur doit être supérieure à {value}"
+  },
   {
     "id": "_c05fffa7",
     "defaultMessage": "Afficher le mot de passe",
     "message": "Afficher le mot de passe"
   },
+  {
+    "id": "_c30ace07",
+    "defaultMessage": "Le champ doit avoir au minimum {value} caractères.",
+    "message": "Le champ doit avoir au minimum {value} caractères."
+  },
   {
     "id": "_c98895d1",
     "defaultMessage": "Doit etre un entier positif",

package/package.json

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

package/src/decoders/Toolkit__Decoders.res

@@ -290,6 +290,20 @@ module UnitMeasure = {
     })
   }
 
+  module Speed = {
+    module Config = Toolkit__Utils_UnitMeasure.Speed
+
+    module WithUnit = MakeWithUnit({
+      include Config
+      let errorPrefix = "Speed with unit"
+    })
+
+    module Km_h = Make({
+      include Config
+      let wrapValue = Config.wrapValue(#km_h)
+    })
+  }
+
   module Volume = {
     module Config = Toolkit__Utils_UnitMeasure.Volume
 

package/src/form/Toolkit__FormValidationFunctions.res

@@ -22,6 +22,28 @@ module Msg = {
   let requiredStrictPosInt = {
     defaultMessage: "Doit etre un entier strictement positif",
   }
+
+  let stringNonEmpty = {defaultMessage: "Champ requis"}
+  let minValue = {
+    defaultMessage: "Cette valeur doit être supérieure à {value}",
+  }
+  let maxValue = {
+    defaultMessage: "Cette valeur ne peut être supérieure à {value}",
+  }
+  let stringMin = {
+    defaultMessage: "Le champ doit avoir au minimum {value} caractères.",
+  }
+  let stringMax = {
+    defaultMessage: "Le champ doit avoir au maximum {value} caractères.",
+  }
+  let email = {defaultMessage: "L'email est invalide."}
+  let valueGreaterThan = {
+    defaultMessage: "Cette valeur ne peut être supérieure à {value}.",
+  }
+  let valueLowerThan = {
+    defaultMessage: "Cette valeur ne peut être supérieure à {value}.",
+  }
+  let optionNonEmpty = {defaultMessage: "Champ requis"}
 }
 
 let toReSchemaResult = (opt: option<string>): ReSchema.fieldState =>
@@ -334,3 +356,21 @@ let required14Digits = (intl, value) => {
     }
   }
 }
+
+let i18n = intl => {
+  ...ReSchemaI18n.default,
+  stringNonEmpty: (~value as _) => intl->Intl.formatMessage(Msg.stringNonEmpty),
+  intMin: (~value as _: int, ~min: int) =>
+    intl->Intl.formatMessageWithValues(Msg.minValue, {"value": min}),
+  intMax: (~value as _: int, ~max: int) =>
+    intl->Intl.formatMessageWithValues(Msg.maxValue, {"value": max}),
+  floatMin: (~value as _: float, ~min: float) =>
+    intl->Intl.formatMessageWithValues(Msg.minValue, {"value": min}),
+  floatMax: (~value as _: float, ~max: float) =>
+    intl->Intl.formatMessageWithValues(Msg.maxValue, {"value": max}),
+  email: (~value as _: string) => intl->Intl.formatMessage(Msg.email),
+  stringMin: (~value as _: string, ~min: int) =>
+    intl->Intl.formatMessageWithValues(Msg.stringMin, {"value": min}),
+  stringMax: (~value as _: string, ~max: int) =>
+    intl->Intl.formatMessageWithValues(Msg.stringMax, {"value": max}),
+}

package/src/utils/Toolkit__Utils_UnitMeasure.res

@@ -180,6 +180,42 @@ module Dimension = {
   }
 }
 
+module Speed = {
+  include Unit({
+    @deriving(jsConverter)
+    type unitEnum = [
+      | @as(`km/h`) #km_h
+    ]
+  })
+
+  type t = [
+    | #km_h(float)
+  ]
+
+  let wrapValue = (unit: unitEnum, value: float): t =>
+    switch unit {
+    | #km_h => #km_h(value)
+    }
+
+  let toValue = value =>
+    switch value {
+    | #km_h(value) => v
+    }
+
+  let display = (value, ~digits=2, ()) => {
+    open Js.Float
+    switch value {
+    | #km_h(value) => v->toFixedWithPrecision(~digits) ++ " km/h"
+    }
+  }
+
+  let toString = value => {
+    switch value {
+    | #km_h(value) => v->Float.toString ++ " km/h"
+    }
+  }
+}
+
 module Volume = {
   include Unit({
     @deriving(jsConverter)