      :<- [:buffer-size]
      :<- [:first-image-location]
      :<- [:before-locations-count]
-     (fn [[comic-coord buffer-size first-location before-buffer-size] _]
+     (fn loading-before-buffer [[comic-coord buffer-size first-location before-buffer-size] _]
        (when (> buffer-size before-buffer-size)
          (api/get-prev-locations (:site-id comic-coord)
                                  (:comic-id comic-coord)

    (re-frame/reg-sub
     :before-locations-count
     :<- [:partitioned-locations]
     (fn [[before _ _] _]
       (count before)))

    (re-frame/reg-sub
     :after-locations-count
     :<- [:partitioned-locations]
     (fn [[_ _ after] _]
       (count after)))

    (re-frame/reg-sub

     :current-locations
     :<- [:partitioned-locations]
     :<- [:buffer-size]
     (fn current-locations [[partitioned-locations buffer-size] _]
       (current-locations partitioned-locations buffer-size)))))

(defn- location-id [location]
