    (fn [db [_ img-data]]
      (-> db
          (assoc :waiting false)
+         (update-in [:page-list] next)
          (update-in [:comic-imgs] conj img-data)))))

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

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