Queue without Core.async

closure_import_script.cljs

(defonce reloader (atom {:deferred nil
                         :queue []}))

(declare maybe-load-next)

(defn ready [state next]
  (next (assoc state :deferred nil)))

(defn load-next [state]
  (let [[file & queue] (:queue state)
        deferred (jsloader/load file)]
    (.addBoth deferred #(swap! reloader ready maybe-load-next))
    (assoc state
           :queue (vec queue)
           :deferred deferred)))

(defn maybe-load-next [state]
  (if (:deferred state)
    state
    (if (seq (:queue state))
      (load-next state))))

(defn queue-file-load! [file]
  (:deferred (swap! reloader (fn [state]
                               (maybe-load-next (update state :queue conj file))))))

(defn patch-goog-base! []
  (set! (.-provide js/goog) (.-exportPath_ js/goog))
  (set! (.-CLOSURE_IMPORT_SCRIPT (.-global js/goog)) (fn [file]
                                                       (when (.inHtmlDocument_ js/goog)
                                                         (queue-file-load! file)))))