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

  (rf/register-handler
   :scroll
   (fn [db _]
     (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)

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