@colisweb/rescript-toolkit 2.8.0 → 2.8.1

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@colisweb/rescript-toolkit",
-  "version": "2.8.0",
+  "version": "2.8.1",
   "scripts": {
     "clean": "rescript clean",
     "build": "rescript build",

package/src/decoders/Toolkit__Decoders.res

@@ -169,14 +169,18 @@ module UnitMeasure = {
       let decoder: Decco.decoder<Toolkit__Utils_UnitMeasure.Dimension.t> = json =>
         switch Decco.stringFromJson(json) {
         | Belt.Result.Ok(v) =>
-          let valueUnitArray = v |> Js.String.split(" ")
-          switch valueUnitArray->Array.get(1) {
-          | Some("mm") => #mm(valueUnitArray->Array.getExn(0)->Js.Float.fromString)->Ok
-          | Some("cm") => #cm(valueUnitArray->Array.getExn(0)->Js.Float.fromString)->Ok
-          | Some("dm") => #dm(valueUnitArray->Array.getExn(0)->Js.Float.fromString)->Ok
-          | Some("km") => #km(valueUnitArray->Array.getExn(0)->Js.Float.fromString)->Ok
-          | None => raise(Js.Exn.raiseError("unhandled no unit"))
-          | _ => raise(Js.Exn.raiseError("unhandled weight unit"))
+          let valueUnitArray = v->Js.String2.split(" ")
+          switch (
+            valueUnitArray[0]->Belt.Option.flatMap(Belt.Float.fromString),
+            valueUnitArray[1],
+          ) {
+          | (Some(v), Some("mm")) => #mm(v)->Ok
+          | (Some(v), Some("cm")) => #cm(v)->Ok
+          | (Some(v), Some("dm")) => #dm(v)->Ok
+          | (Some(v), Some("km")) => #km(v)->Ok
+          | (None, _) => Decco.error("unhandled no value", json)
+          | (_, None) => Decco.error("unhandled no unit", json)
+          | (_, Some(_)) => Decco.error("unhandled dimension unit", json)
           }
         | Belt.Result.Error(_) as err => err
         }
@@ -233,12 +237,16 @@ module UnitMeasure = {
       let decoder: Decco.decoder<Toolkit__Utils_UnitMeasure.Weight.t> = json =>
         switch Decco.stringFromJson(json) {
         | Ok(v) =>
-          let valueUnitArray = v |> Js.String.split(" ")
-          switch valueUnitArray->Array.get(1) {
-          | Some("g") => #g(valueUnitArray->Array.getExn(0)->Js.Float.fromString)->Ok
-          | Some("kg") => #kg(valueUnitArray->Array.getExn(0)->Js.Float.fromString)->Ok
-          | None => raise(Js.Exn.raiseError("unhandled no unit"))
-          | _ => raise(Js.Exn.raiseError("unhandled weight unit"))
+          let valueUnitArray = v->Js.String2.split(" ")
+          switch (
+            valueUnitArray[0]->Belt.Option.flatMap(Belt.Float.fromString),
+            valueUnitArray[1],
+          ) {
+          | (Some(v), Some("g")) => #g(v)->Ok
+          | (Some(v), Some("kg")) => #kg(v)->Ok
+          | (None, _) => Decco.error("unhandled no value", json)
+          | (_, None) => Decco.error("unhandled no unit", json)
+          | (_, Some(_)) => Decco.error("unhandled weight unit", json)
           }
 
         | Error(_) as err => err
@@ -282,6 +290,74 @@ module UnitMeasure = {
       let convert = Toolkit__Utils_UnitMeasure.Weight.makeKg
     })
   }
+
+  module Time = {
+    module WithUnit = {
+      let encoder: Decco.encoder<Toolkit__Utils_UnitMeasure.Time.t> = value =>
+        switch value {
+        | #min(v) => Js.Json.string(v->Js.Float.toString ++ " min")
+        | #h(v) => Js.Json.string(v->Js.Float.toString ++ " h")
+        }
+
+      let decoder: Decco.decoder<Toolkit__Utils_UnitMeasure.Time.t> = json =>
+        switch Decco.stringFromJson(json) {
+        | Ok(v) =>
+          let valueUnitArray = v->Js.String2.split(" ")
+          switch (
+            valueUnitArray[0]->Belt.Option.flatMap(Belt.Float.fromString),
+            valueUnitArray[1],
+          ) {
+          | (Some(v), Some("min")) => #min(v)->Ok
+          | (Some(v), Some("h")) => #h(v)->Ok
+          | (None, _) => Decco.error("unhandled no value", json)
+          | (_, None) => Decco.error("unhandled no unit", json)
+          | (_, Some(_)) => Decco.error("unhandled time unit", json)
+          }
+
+        | Error(_) as err => err
+        }
+
+      let codec: Decco.codec<Toolkit__Utils_UnitMeasure.Time.t> = (encoder, decoder)
+
+      @decco
+      type t = @decco.codec(codec) Toolkit__Utils_UnitMeasure.Time.t
+    }
+
+    module type TimeConfig = {
+      let convert: float => Toolkit__Utils_UnitMeasure.Time.t
+    }
+
+    module Make = (C: TimeConfig) => {
+      type time = Toolkit__Utils_UnitMeasure.Time.t
+
+      let encoder: Decco.encoder<Toolkit__Utils_UnitMeasure.Time.t> = value =>
+        switch value {
+        | #min(v) => Js.Json.string(v->Js.Float.toString ++ " min")
+        | #h(v) => Js.Json.string(v->Js.Float.toString ++ " h")
+        }
+
+      let decoder: Decco.decoder<Toolkit__Utils_UnitMeasure.Time.t> = json =>
+        switch Decco.floatFromJson(json) {
+        | Ok(v) => v->C.convert->Ok
+        | Error(_) as err => err
+        }
+
+      let codec: Decco.codec<time> = (encoder, decoder)
+
+      let toValue = Toolkit__Utils_UnitMeasure.Time.toValue
+      let display = Toolkit__Utils_UnitMeasure.Time.display
+
+      @decco
+      type t = @decco.codec(codec) Toolkit__Utils_UnitMeasure.Time.t
+    }
+
+    module Min = Make({
+      let convert = Toolkit__Utils_UnitMeasure.Time.makeMin
+    })
+    module H = Make({
+      let convert = Toolkit__Utils_UnitMeasure.Time.makeH
+    })
+  }
 }
 
 // StringArray

package/src/utils/Toolkit__Utils_UnitMeasure.res

@@ -17,6 +17,57 @@ module Weight = {
   let makeKg = (value: float) => #kg(value)
 }
 
+module Time = {
+  type t = [#min(float) | #h(float)]
+
+  let toValue = value =>
+    switch value {
+    | #min(v)
+    | #h(v) => v
+    }
+
+  type separator = [#units | #colon]
+  let display = (value, ~separator=#units, ()) => {
+    let _initialDate = Js.Date.make()
+    let duration = switch value {
+    | #min(v) =>
+      BsDateFns.intervalToDuration(
+        ~interval={
+          start: _initialDate,
+          end_: _initialDate->BsDateFns.addMinutes(v),
+        },
+      )
+    | #h(v) =>
+      BsDateFns.intervalToDuration(
+        ~interval={start: _initialDate, end_: _initialDate->BsDateFns.addHours(v)},
+      )
+    }
+
+    let mainSeparator = {
+      switch separator {
+      | #units => " h "
+      | #colon => ":"
+      }
+    }
+    let secondarySeparator = {
+      switch separator {
+      | #units => " min"
+      | #colon => ""
+      }
+    }
+
+    switch (duration.hours, duration.minutes) {
+    | (Some(h), Some(min)) =>
+      `${h->Int.toString}${mainSeparator}${min->Int.toString}${secondarySeparator}`
+    | (Some(h), _) => `${h->Int.toString} h`
+    | (_, Some(min)) => `${min->Int.toString} min`
+    | _ => ""
+    }
+  }
+  let makeMin = (value: float) => #min(value)
+  let makeH = (value: float) => #h(value)
+}
+
 module Dimension = {
   type t = [
     | #mm(float)

package/src/vendors/BsDateFns.res

@@ -60,6 +60,8 @@ external setSeconds: (Js.Date.t, float) => Js.Date.t = "setSeconds"
 @module("date-fns")
 external setMinutes: (Js.Date.t, float) => Js.Date.t = "setMinutes"
 @module("date-fns")
+external addMinutes: (Js.Date.t, float) => Js.Date.t = "addMinutes"
+@module("date-fns")
 external setHours: (Js.Date.t, float) => Js.Date.t = "setHours"
 @module("date-fns")
 external addHours: (Js.Date.t, float) => Js.Date.t = "addHours"