primitive save removal.

desktop/src-common/advent/utils.clj

@@ -121,6 +121,17 @@
              (.write png f resized)
              (.dispose png)))))
 
+(defn remove-save [id]
+  (let [prefs (.getPreferences (Gdx/app) "ticks-tales-saves")
+        saves (if (.contains prefs "saves")
+                (edn/read-string (.getString prefs "saves"))
+                [])
+        saves (filter (comp (complement #{id}) :id) saves)]
+    (.putString prefs "saves" (pr-str saves))
+    (.flush prefs)
+    (on-gl (let [f (FileHandle. (save-screenshot-file-name id))]
+             (.delete f)))))
+
 (defn save-settings! []
   (doto (.getPreferences (Gdx/app) "ticks-tales-saves")
     (.putString "settings" (pr-str @settings))