intrudoced sub directory for non-steam saves.

This commit is contained in:
Bryce Covert
2016-01-29 16:43:32 -08:00
parent 31420115a9
commit c328fe847d
5 changed files with 27 additions and 15 deletions

View File

@@ -83,8 +83,8 @@
: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))))
(for [save-file (.list (files! :local "saves/") ".edn")]
(str "saves/" (.name save-file)))))
(defn save-screenshot [pm filename]
(steamify
@@ -106,3 +106,13 @@
(steamify
(.fileDelete (SteamRemoteStorage. nil) filename)
(.delete (files! :local filename))))
(defn save-screenshot-file-name [name]
(steamify
(str "screenshot-" (clojure.core/name name) ".png" )
(str "saves/screenshot-" (clojure.core/name name) ".png" )))
(defn save-file-name [id]
(steamify
(str id ".edn")
(str "saves/" id ".edn")))