more perf enhancements, getting ready for multi save slots.

desktop/src-common/advent/utils.clj

@@ -55,21 +55,29 @@
         atlas (texture-atlas "packed/pack.atlas")]
     (texture (texture-atlas! atlas :find-region atlas-name))))
 
-(defn save [entities]
+(defn snapshot-state [entities name]
   (doto (.getPreferences (Gdx/app) "ticks-tales-saves")
-    (.putString "save-1" (pr-str (entities :state)))
+    (.putString name (pr-str (entities :state)))
     .flush))
 
+(defn save [entities]
+  (snapshot-state entities "Autosave"))
+
+
+
 (defn has-save? []
   (-> (.getPreferences (Gdx/app) "ticks-tales-saves")
-      (.contains "save-1")))
+      (.contains "Autosave")))
 
-(defn load []
+(defn load-snapshot [name]
   (-> (.getPreferences (Gdx/app) "ticks-tales-saves")
-      (.getString "save-1")
+      (.getString name)
       edn/read-string
       (assoc :active? true)))
 
+(defn load []
+  (load-snapshot "Autosave"))
+
 (defn save-settings [entities]
   (doto (.getPreferences (Gdx/app) "ticks-tales-saves")
     (.putString "settings" (pr-str @settings))