@colisweb/rescript-toolkit 5.40.4 → 5.41.1

package/package.json

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

package/rescript.json

@@ -32,7 +32,9 @@
     "@dck/rescript-ky"
   ],
   "ppx-flags": [
-    ["@greenlabs/ppx-spice/ppx"],
+    [
+      "@greenlabs/ppx-spice/ppx"
+    ],
     "lenses-ppx/ppx",
     "res-react-intl/ppx"
   ],
@@ -44,7 +46,6 @@
     "-bs-super-errors",
     "-bs-no-version-header",
     "-open Belt",
-    "-open Toolkit__Primitives_Result"
+    "-open Toolkit__Primitives"
   ]
-}
-
+}

package/src/form/Reform.res

@@ -81,6 +81,7 @@ module Make = (Config: Config) => {
     isDirty: bool,
     isValid: bool,
     setFormState: formState => unit,
+    hasValidationErrors: unit => bool,
   }
 
   type onSubmitAPI = {
@@ -527,6 +528,14 @@ module Make = (Config: Config) => {
       isDirty: state.formState == Dirty,
       isValid: state.formState == Valid,
       setFormState: formState => send(SetFormState(formState)),
+      hasValidationErrors: () => {
+        let recordState = ReSchema.validate(~i18n, state.values, schema)
+
+        switch recordState {
+        | Valid => false
+        | _ => true
+        }
+      },
     }
 
     interface

package/src/primitives/Toolkit__Primitives.res

@@ -1,4 +1,5 @@
 module String = {
+  include String
   let joinNonEmty = (~separator=", ", parts: array<string>): string =>
     parts->Array.keep(str => str !== "")->Js.Array2.joinWith(separator)
 
@@ -21,7 +22,27 @@ module String = {
   }
 }
 
+module Result = {
+  include Belt.Result
+
+  let get = result =>
+    switch result {
+    | Ok(v) => Some(v)
+    | Error(_) => None
+    }
+
+  let mapError = (result: t<'a, 'b>, fn: 'b => 'c) => {
+    switch result {
+    | Ok(_) as ok => ok
+    | Error(err) => Error(fn(err))
+    }
+  }
+
+  let mapOk = map
+}
+
 module Option = {
+  include Belt.Option
   let fromString = v => v === "" ? None : Some(v)
 
   let fromBool = v => v === true ? Some(true) : None
@@ -54,6 +75,8 @@ module Option = {
 }
 
 module Array = {
+  include Belt.Array
+
   let joinNonEmpty = (~separator=", ", parts: array<string>): string =>
     parts->Array.keep(str => str !== "")->Js.Array2.joinWith(separator)
 
@@ -62,4 +85,63 @@ module Array = {
   let isLastIndex = (array, index) => array->Array.length - 1 == index
 
   let flatten = array => array->Array.reduce([], (acc, value) => acc->Array.concat(value))
+
+  let findMap: (array<'a>, 'a => option<'b>) => option<'b> = (array, findMapper) => {
+    let result = ref(None)
+    let index = ref(0)
+
+    while result.contents->Belt.Option.isNone && index.contents < array->Array.length {
+      result := findMapper(array[index.contents]->Belt.Option.getExn)
+      index := index.contents + 1
+    }
+
+    result.contents
+  }
+
+  let findMapWithIndex: (array<'a>, (int, 'a) => option<'b>) => option<'b> = (
+    array,
+    findMapper,
+  ) => {
+    let result = ref(None)
+    let index = ref(0)
+
+    while result.contents->Belt.Option.isNone && index.contents < array->Array.length {
+      result := findMapper(index.contents, array[index.contents]->Belt.Option.getExn)
+      index := index.contents + 1
+    }
+
+    result.contents
+  }
+}
+
+let cx = arr => {
+  let result = ref("")
+  for i in 0 to arr->Array.length - 1 {
+    switch arr->Array.getUnsafe(i) {
+    | "" => ()
+    | name => result := (result.contents == "" ? name : result.contents ++ " " ++ name)
+    }
+  }
+  result.contents
+}
+
+module NonEmptyArray: {
+  type t<'a>
+  let t_encode: ('a => Js.Json.t, t<'a>) => Js.Json.t
+  let t_decode: (
+    Js.Json.t => result<'a, Spice.decodeError>,
+    Js.Json.t,
+  ) => result<t<'a>, Spice.decodeError>
+  let make: array<'a> => option<t<'a>>
+  let makeExn: array<'a> => t<'a>
+  let toArray: t<'a> => array<'a>
+} = {
+  @spice
+  type t<'a> = array<'a>
+
+  let make = arr => arr->Array.length === 0 ? None : Some(arr->Obj.magic)
+
+  let makeExn = arr => arr->make->Belt.Option.getExn
+
+  external toArray: t<'a> => array<'a> = "%identity"
 }

package/src/ui/Toolkit__Ui_Autocomplete.res

@@ -57,7 +57,7 @@ let make = (
     if !isDefaultValue {
       switch search {
       | "" => ()
-      | search if search->String.length < minSearchLength =>
+      | search if search->Js.String.length < minSearchLength =>
         setSuggestions(_ => Some(Error("QUERY_TOO_SMALL")))
       | search =>
         setSearching(_ => true)

package/src/vendors/ReactIcons.res

@@ -6264,3 +6264,9 @@ module FaLinkedin = {
   external make: (~size: int=?, ~color: string=?, ~className: string=?) => React.element =
     "FaLinkedin"
 }
+
+module FaClipboardUser = {
+  @module("react-icons/fa6") @react.component
+  external make: (~size: int=?, ~color: string=?, ~className: string=?) => React.element =
+    "FaClipboardUser"
+}

package/src/vendors/ReactTableV8.res

@@ -0,0 +1,174 @@
+type coreRowModel
+type filteredRowModel
+type paginationRowModel
+
+@module("@tanstack/react-table")
+external getCoreRowModel: unit => coreRowModel = "getCoreRowModel"
+@module("@tanstack/react-table")
+external getFilteredRowModel: unit => filteredRowModel = "getFilteredRowModel"
+@module("@tanstack/react-table")
+external getPaginationRowModel: unit => paginationRowModel = "getPaginationRowModel"
+
+type paginationState = {
+  pageIndex: int,
+  pageSize: int,
+}
+
+type rowSelectionState = Js.Dict.t<bool>
+type filterState = {id: string, value: unknown}
+type sortingState = {id: string, desc: bool}
+
+type tableState = {
+  pagination: paginationState,
+  rowSelection: rowSelectionState,
+  columnFilters?: array<filterState>,
+  sorting?: array<sortingState>,
+}
+type tableInitialState = {
+  pagination?: paginationState,
+  rowSelection?: rowSelectionState,
+  columnFilters?: array<filterState>,
+  sorting?: array<sortingState>,
+}
+
+module TableAPI = {
+  type t = {initialState: tableInitialState}
+}
+
+module ColumnDef = {
+  type tableContext = {
+    getIsAllRowsSelected: unit => bool,
+    getIsSomeRowsSelected: unit => bool,
+    getToggleAllRowsSelectedHandler: (unit, ReactEvent.Form.t) => unit,
+  }
+
+  type rowOptions = {
+    getIsSelected: unit => bool,
+    getCanSelect: unit => bool,
+    getIsSomeSelected: unit => bool,
+    getToggleSelectedHandler: (unit, ReactEvent.Form.t) => unit,
+  }
+
+  type cellOptions<'columnData> = {
+    getValue: unit => 'columnData,
+    row: rowOptions,
+  }
+
+  type columnMeta<'filterVariant> = {filterVariant?: 'filterVariant}
+  type filterFnVariant = | @as("equals") Equals
+  type t<'tableData, 'filterVariant>
+  @obj
+  external make: (
+    ~id: string=?,
+    ~accessorFn: 'tableData => 'columnData,
+    ~header: 'columnData => React.element=?,
+    ~footer: unit => React.element=?,
+    ~cell: cellOptions<'columnData> => React.element,
+    ~meta: columnMeta<'filterVariant>=?,
+    ~enableResizing: int=?,
+    ~maxSize: int=?,
+    ~minSize: int=?,
+    ~size: int=?,
+    ~enableSorting: bool=?,
+    ~filterFn: filterFnVariant=?,
+    unit,
+  ) => t<'tableData, 'filterVariant> = ""
+}
+
+module Header = {
+  type t
+  type tableContext = {setColumnFilters: (array<filterState> => array<filterState>) => unit}
+  type context = {table: tableContext}
+
+  @module("@tanstack/react-table")
+  external flexRender: (t, context) => React.element = "flexRender"
+}
+
+module Cell = {
+  type t
+  type context
+
+  @module("@tanstack/react-table")
+  external flexRender: (t, context) => React.element = "flexRender"
+}
+
+type rec rowModel<'filterVariant> = {rows: array<row<'filterVariant>>}
+and row<'filterVariant> = {
+  getVisibleCells: unit => array<rowModelCell<'filterVariant>>,
+  id: string,
+}
+and rowModelCell<'filterVariant> = {
+  id: string,
+  isPlaceholder: bool,
+  column: 'filterValue. parentColumn<'filterValue, 'filterVariant>,
+  getContext: unit => Cell.context,
+}
+
+and parentColumn<'filterValue, 'filterVariant> = {
+  columnDef: parentColumnDef<'filterVariant>,
+  getFilterValue: unit => 'filterValue,
+  setFilterValue: 'filterValue => unit,
+}
+and parentColumnDef<'filterVariant> = {
+  header: Header.t,
+  cell: Cell.t,
+  meta?: ColumnDef.columnMeta<'filterVariant>,
+}
+
+type rec headerGroup<'filterVariant> = {headers: array<header<'filterVariant>>, id: string}
+and header<'filterVariant> = {
+  isPlaceholder: bool,
+  column: 'a. parentColumn<'a, 'filterVariant>,
+  colSpan: int,
+  getSize: unit => int,
+  getContext: unit => Header.context,
+  getIsSorted: unit => bool,
+  getCanFilter: unit => bool,
+  getCanSort: unit => bool,
+  getToggleSortingHandler: unit => unit,
+  id: string,
+}
+
+type rec tableInstance<'tableData, 'filterVariant> = {
+  getHeaderGroups: unit => array<headerGroup<'filterVariant>>,
+  getRowModel: unit => rowModel<'filterVariant>,
+  getFooterGroups: unit => array<headerGroup<'filterVariant>>,
+  getPageCount: unit => int,
+  getCanPreviousPage: unit => bool,
+  getCanNextPage: unit => bool,
+  getIsAllRowsSelected: unit => bool,
+  getIsSomeRowsSelected: unit => bool,
+  getToggleAllRowsSelectedHandler: (unit, ReactEvent.Form.t) => unit,
+  setPageIndex: (int => int) => unit,
+  setPageSize: int => unit,
+  previousPage: unit => unit,
+  nextPage: unit => unit,
+  getState: unit => tableState,
+  setOptions: (
+    tableOptions<'tableData, 'filterVariant> => tableOptions<'tableData, 'filterVariant>
+  ) => unit,
+  setColumnFilters: (array<filterState> => array<filterState>) => unit,
+}
+and tableOptions<'tableData, 'filterVariant> = {
+  data: array<'tableData>,
+  columns: array<ColumnDef.t<'tableData, 'filterVariant>>,
+  getCoreRowModel: coreRowModel,
+  getFilteredRowModel?: filteredRowModel,
+  getPaginationRowModel?: paginationRowModel,
+  onPaginationChange?: (paginationState => paginationState) => paginationState,
+  onRowSelectionChange?: (rowSelectionState => rowSelectionState) => unit,
+  pageCount?: int,
+  initialState?: tableInitialState,
+  manualPagination?: bool,
+  manualSorting?: bool,
+  manualFiltering?: bool,
+  enableRowSelection?: bool,
+  enableMultiRowSelection?: bool,
+  debugTable?: bool,
+}
+
+@module("@tanstack/react-table")
+external useReactTable: tableOptions<'tableData, 'filterVariant> => tableInstance<
+  'tableData,
+  'filterVariant,
+> = "useReactTable"

package/src/primitives/Toolkit__Primitives_Array.res

@@ -1,30 +0,0 @@
-module Array = {
-  include Belt.Array
-
-  let findMap: (array<'a>, 'a => option<'b>) => option<'b> = (array, findMapper) => {
-    let result = ref(None)
-    let index = ref(0)
-
-    while result.contents->Option.isNone && index.contents < array->Array.length {
-      result := findMapper(array[index.contents]->Option.getExn)
-      index := index.contents + 1
-    }
-
-    result.contents
-  }
-
-  let findMapWithIndex: (array<'a>, (int, 'a) => option<'b>) => option<'b> = (
-    array,
-    findMapper,
-  ) => {
-    let result = ref(None)
-    let index = ref(0)
-
-    while result.contents->Option.isNone && index.contents < array->Array.length {
-      result := findMapper(index.contents, array[index.contents]->Option.getExn)
-      index := index.contents + 1
-    }
-
-    result.contents
-  }
-}

package/src/primitives/Toolkit__Primitives_Result.res

@@ -1,29 +0,0 @@
-module Result = {
-  include Belt.Result
-
-  let get = result =>
-    switch result {
-    | Ok(v) => Some(v)
-    | Error(_) => None
-    }
-
-  let mapError = (result: t<'a, 'b>, fn: 'b => 'c) => {
-    switch result {
-    | Ok(_) as ok => ok
-    | Error(err) => Error(fn(err))
-    }
-  }
-
-  let mapOk = map
-}
-
-let cx = arr => {
-  let result = ref("")
-  for i in 0 to arr->Array.length - 1 {
-    switch arr->Array.getUnsafe(i) {
-    | "" => ()
-    | name => result := (result.contents == "" ? name : result.contents ++ " " ++ name)
-    }
-  }
-  result.contents
-}