creates saves order list.

desktop/src-common/advent/saves.clj

@@ -9,3 +9,6 @@
    :after-wisdom "The Wise Guy"
    :after-jail "Prisoner On The Loose"
    :in-jail "In The Slammer"})
+
+(def name->save
+  (into {} (map vector (vals saves) (keys saves))))

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

desktop/src-common/advent/utils.clj

@@ -58,9 +58,17 @@
         atlas (texture-atlas "packed/pack.atlas")]
     (texture (texture-atlas! atlas :find-region atlas-name))))
 
+
+(defn snapshot-list []
+  (let [prefs (.getPreferences (Gdx/app) "ticks-tales-saves")]
+    (if (.contains prefs "snapshot-list")
+      (edn/read-string (.getString prefs "snapshot-list"))
+      [])))
+
 (defn snapshot-state [entities name]
   (doto (.getPreferences (Gdx/app) "ticks-tales-saves")
     (.putString (saves/saves name) (pr-str (entities :state)))
+    (.putString "snapshot-list" (pr-str (cons (saves/saves name) (filter (complement #{(saves/saves name)}) (snapshot-list)))))
     .flush))
 
 (defn save [entities]