creates saves order list.

2015-10-04 13:46:53 -07:00
parent 27021ac281
commit b52e8caa0d
3 changed files with 14 additions and 5 deletions
--- a/desktop/src-common/advent/screens/title.clj
+++ b/desktop/src-common/advent/screens/title.clj
@@ -170,15 +170,13 @@
 (defn saves-menu []
  (doto
      (into {}
-            (for [[save index] (map #(vector %1 %2)
-                                    (filter utils/has-save? (keys saves/saves))
-                                    (range))
-                  :let [name (saves/saves save)]]
+            (for [[name index] (map #(vector %1 %2)
+                                    (utils/snapshot-list) (range))]
              [name (-> (make-label name)
                        (stack-y 280 index)
                        (assoc :z 8
                               :interactable true
-                               :save save))]))
+                               :save (saves/name->save name)))]))
    println))

 (defscreen title-screen