From 88d2d11a31709b8e28d1e5162ea37f64473261d2 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Sun, 22 Nov 2015 14:20:58 -0800 Subject: [PATCH] steam shares should work. --- desktop/src-common/advent/steam.clj | 20 ++++---------------- 1 file changed, 4 insertions(+), 16 deletions(-) diff --git a/desktop/src-common/advent/steam.clj b/desktop/src-common/advent/steam.clj index 7cbdbc9e..199b99da 100644 --- a/desktop/src-common/advent/steam.clj +++ b/desktop/src-common/advent/steam.clj @@ -15,7 +15,9 @@ (defmacro steamify [steam-version & [regular-version]] (if has-steam? - steam-version + `(if has-steam? + ~steam-version + ~regular-version) regular-version)) (defn init [] @@ -71,7 +73,7 @@ (-> bb (.put bytes) ) (.fileWrite rs filename bb (* 2 (count bytes)))) (let [f (files! :local filename)] - (.write f bytes false)))) + (.writeBytes f bytes false)))) (defn list-edn-files [] (steamify @@ -83,20 +85,6 @@ (for [save-file (.list (files! :local ".") ".edn")] (.name save-file)))) -(defn snapshot-list [] - (steamify - (let [rs (SteamRemoteStorage. nil)] - (for [i (range (.getFileCount rs)) - :let [len (* 1024 1024) - n (.getFileNameAndSize rs i (make-array Integer/TYPE 1)) - bb (ByteBuffer/allocateDirect len)] - :when (.endsWith n ".edn")] - (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))))) - (defn save-screenshot [pm filename] (steamify (let [rs (SteamRemoteStorage. nil)