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))))