   (rf/register-handler
    :scroll
    (fn [db _]
-     (if (= (:page db)
-            :read)
+     (if (and (not (:waiting db))
+              (= (:page db)
+                 :read))
        (let [scroll-y (.-scrollY js/window)
              window-height (.-innerHeight js/window)
              screen-bottom (+ scroll-y window-height)

   :next-image
   (fn [db [_ img-tag]]
     (-> db
         (update-in [:url-list] rest)
         (update-in [:comic-imgs] conj img-tag)))))

                       {:keys [chapter]} :location
                       :as db}]
  (api/get-img-tag site (first url-list))
  (let [{:keys [url-list] :as db} (assoc db
                                         :url-list (next url-list)
                                         :waiting true)
        new-location (assoc location :chapter
                            (inc
                             (read-string chapter)))]
