getting closer on checkouts.

desktop/src-common/advent/steam.clj

@@ -53,17 +53,35 @@
 (defn clear-all-achievements []
   (doall (map clear-achievement all-achievements)))
 
-(defn write-file [filename edn]
-  (let [edn (pr-str edn)]
-    (steamify
-     (let [rs (SteamRemoteStorage. nil)
-           v edn
-           bb (ByteBuffer/allocateDirect (* 2 (count v)))]
-       (-> bb .asCharBuffer (.put v) )
-       
-       (.fileWrite rs filename bb (* 2 (count v))))
-     (let [f (files! :local filename)]
-       (.writeString f edn false)))))
+(defn get-bytes [filename]
+  (steamify  
+   (let [rs (SteamRemoteStorage. nil)
+         len (.getFileSize rs filename)
+         bb (ByteBuffer/allocateDirect len)
+         bytes (make-array Byte/TYPE len)]
+     (.fileRead rs filename bb len)
+     (.get bb bytes)
+     bytes)
+   (.readBytes (files! :local filename))))
+
+(defn write-bytes [filename bytes]
+  (steamify
+   (let [rs (SteamRemoteStorage. nil)
+         bb (ByteBuffer/allocateDirect (* 2 (count bytes)))]
+     (-> bb  (.put bytes) )
+     (.fileWrite rs filename bb (* 2 (count bytes))))
+   (let [f (files! :local filename)]
+     (.write f bytes false))))
+
+(defn list-edn-files []
+  (steamify
+   (let [rs (SteamRemoteStorage. nil)]
+     (for [i (range (.getFileCount rs))
+           :let [n (.getFileNameAndSize rs i (make-array Integer/TYPE 1))]
+           :when (.endsWith n ".edn")]
+       n))
+   (for [save-file  (.list (files! :local ".") ".edn")] 
+     (.name save-file))))
 
 (defn snapshot-list []
   (steamify
@@ -79,28 +97,6 @@
     (for [save-file  (.list (files! :local ".") ".edn")] 
       (edn/read-string (.readString save-file)))))
 
-
-(defn add-screenshot [filename]
-  (steamify
-   (let [rs (SteamRemoteStorage. nil)
-         bytes (.readBytes (files! :local filename))
-         bb (ByteBuffer/allocateDirect (count bytes))] 
-
-     (.put bb bytes)
-     (.fileWrite rs filename bb (count bytes)))))
-
-(defn get-screenshot-bytes [filename]
-  (steamify  
-   (let [rs (SteamRemoteStorage. nil)
-         len (.getFileSize rs filename)
-         bb (ByteBuffer/allocateDirect len)
-         bytes (make-array Byte/TYPE len)]
-     (.fileRead rs filename bb len)
-     (.get bb bytes)
-     bytes)
-   (.readBytes (files! :local filename))))
-
-
 (defn save-screenshot [pm filename]
   (steamify
     (let [rs (SteamRemoteStorage. nil)