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

     :partitioned-locations
     :<- [:locations]
     :<- [:current-location]
     (fn [[locations current-location] _]
       (partitioned-locations (seq locations) current-location)))

    (re-frame/reg-sub
     :comic-coordinates
     :<- [:site-id]
     :<- [:comic-id]
     (fn [[site-id comic-id] _]
       {:site-id site-id
        :comic-id comic-id}))

    (re-frame/reg-sub
     :first-image-location
     :<- [:locations]
     (fn [locations _]
       (when locations
         (first (seq locations)))))

    (re-frame/reg-sub
     :last-image-location
     :<- [:locations]
     (fn [locations _]
       (when locations
         (first (rseq locations)))))


     :<- [:buffer-size]
     :<- [:first-image-location]
     :<- [:before-locations-count]
     (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)
