bug fixes.

desktop/src-common/advent/steam.clj

@@ -73,8 +73,9 @@
                    n (.getFileNameAndSize rs i (make-array Integer/TYPE 1))
                    bb (ByteBuffer/allocateDirect len)]
              :when (.endsWith n ".edn")]
-         (.fileRead rs n bb len)
-         (-> bb .asCharBuffer .toString edn/read-string)))
+         (do
+           (.fileRead rs n bb len)
+           (-> bb .asCharBuffer .toString edn/read-string))))
     (for [save-file  (.list (files! :local ".") ".edn")] 
       (edn/read-string (.readString save-file)))))
 
@@ -115,3 +116,8 @@
       
       (.write png f pm)
       (.dispose png))))
+
+(defn delete-file [filename]
+  (steamify
+   (.fileDelete (SteamRemoteStorage. nil) filename)
+   (.delete (files! :local filename))))

desktop/src-common/advent/utils.clj

@@ -123,9 +123,9 @@
              (steam/save-screenshot resized (save-screenshot-file-name id))))))
 
 (defn remove-save [id]
-  (on-gl (doseq [f [(files! :local (save-screenshot-file-name id))
-                    (files! :local (save-file-name id))]]
-           (.delete f))))
+  (doseq [f [(save-screenshot-file-name id)
+             (save-file-name id)]]
+    (steam/delete-file f) ))
 
 (defn save-settings! []
   (doto (.getPreferences (Gdx/app) "ticks-tales-saves")