              (let [resort (case time-type
                             :released reverse
                             :taken-marstime identity
-                            :taken-utc reverse)
-                   sorted (-> (sort-by time-type imgs) resort)]
-               [time-type (->> (sort-by time-type imgs)
+                            :taken-utc reverse)]
+               [time-type (->> imgs
+                            (sort-by time-type)
                             resort
-                            (map format-dates)
+                            (map format-image)
                             doall)]))))
+
+;;
+;; Transformations
+;;
 
 ;;
 ;; State & Main

(defn fetch-tick
  [old-imgs]
  (let [last-id (-> old-imgs first :id)
        new-imgs (parse-dates (fetch-images-since last-id))
        all-imgs (concat new-imgs old-imgs)]
    {:all all-imgs, :new new-imgs, :old old-imgs}))


    (->> img-rows
      (map (% row->map labels))
      (map classify-size))))

;;
;; Actually Fetching the Pages
