create-expo-cljs-app/template/node_modules/metro/src/lib/debounceAsyncQueue.js.flow

Create a react native application with Expo and Shadow-CLJS!

/**
 * Copyright (c) Facebook, Inc. and its affiliates.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 *
 * @flow strict-local
 * @format
 */

'use strict';

// Debounces calls with the given delay, and queues the next call while the
// previous one hasn't completed so that no two calls can execute concurrently.
function debounceAsyncQueue<T>(
  fn: () => Promise<T>,
  delay: number,
): () => Promise<T> {
  let timeout;
  let waiting = false;
  let executing = false;
  let callbacks: Array<(T) => void> = [];

  async function execute(): Promise<void> {
    const currentCallbacks = callbacks;
    callbacks = [];
    executing = true;
    const res = await fn();
    currentCallbacks.forEach((c: T => void) => c(res));
    executing = false;
    if (callbacks.length > 0) {
      await execute();
    }
  }

  return () =>
    new Promise((resolve: T => void, reject: mixed => void) => {
      callbacks.push(resolve);

      if (!executing) {
        if (waiting) {
          clearTimeout(timeout);
        } else {
          waiting = true;
        }
        timeout = setTimeout(async () => {
          waiting = false;
          await execute();
        }, delay);
      }
    });
}

module.exports = debounceAsyncQueue;