@colisweb/rescript-toolkit 5.32.0 → 5.33.0

package/package.json

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

package/src/request/Request.res

@@ -231,6 +231,42 @@ let useManualRequest = (
   (state, trigger)
 }
 
+let useDebouncedManuelRequest = (
+  type argument response err,
+  ~onSuccess: option<response => unit>=?,
+  ~onError: option<error<err> => unit>=?,
+  ~debounceDelay: int=300,
+  config: module(Config with
+    type argument = argument
+    and type response = response
+    and type error = err
+  ),
+  argument: 'value => argument,
+  initialValue: 'value,
+) => {
+  let (value, setValue) = React.useState(() => initialValue)
+
+  let debouncedFunction = {
+    let update = (newValue: 'value) => {
+      if newValue !== initialValue {
+        setValue(_ => newValue)
+        fetchAPI(config, argument(newValue))
+        ->Promise.tapOk(res => {
+          setValue(_ => newValue)
+          onSuccess->Option.forEach(fn => fn(res))
+        })
+        ->Promise.tapError(e => {
+          setValue(_ => initialValue)
+          onError->Option.forEach(fn => fn(e))
+        })
+        ->ignore
+      }
+    }
+    Lodash.debounce(update, debounceDelay)
+  }
+
+  (value, debouncedFunction)
+}
 external exnToError: Js.Exn.t => error<'a> = "%identity"
 
 let decodeResponseError = (responseError, decoder) => {