notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bug fixes.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-22 13:42:44 -08:00
parent 84ba2ab68a
commit 95b9327522
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
desktop/src-common/advent/steam.clj
View File

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

6
desktop/src-common/advent/utils.clj
View File

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