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

app store work.

Browse Source
This commit is contained in:
Bryce Covert
2016-05-27 16:03:46 -07:00
parent f56779259b
commit a3d0623318
600 changed files with 198 additions and 26926 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -15,6 +15,8 @@
(catch Exception e
false)))
(def is-app-store? (System/getProperty "app-store"))
(defmacro steamify [steam-version & [regular-version]]
(if has-steam?
`(if (and has-steam? (not (System/getProperty "no-steam")))
@@ -75,7 +77,9 @@
(.fileRead rs filename bb len)
(.get bb bytes)
bytes)
(.readBytes (files! :local filename))))
(.readBytes (if is-app-store?
(files! :external filename)
(files! :local filename)))))
(defn write-bytes [filename bytes]
(steamify
@@ -83,7 +87,9 @@
bb (ByteBuffer/allocateDirect (* 2 (count bytes)))]
(-> bb (.put bytes) )
(.fileWrite rs filename bb (* 2 (count bytes))))
(let [f (files! :local filename)]
(let [f (if is-app-store?
(files! :external filename)
(files! :local filename))]
(.writeBytes f bytes false))))
(defn list-edn-files []
@@ -93,8 +99,11 @@
:let [n (.getFileNameAndSize rs i (make-array Integer/TYPE 1))]
:when (.endsWith n ".edn")]
n))
(for [save-file (.list (files! :local "saves/") ".edn")]
(str "saves/" (.name save-file)))))
(if is-app-store?
(for [save-file (.list (files! :external "saves/") ".edn")]
(str "saves/" (.name save-file)))
(for [save-file (.list (files! :local "saves/") ".edn")]
(str "saves/" (.name save-file))))))
(defn save-screenshot [pm filename]
(steamify
@@ -106,7 +115,10 @@
bb (ByteBuffer/allocateDirect (count bytes))]
(.put bb bytes)
(.fileWrite rs filename bb (count bytes)))
(let [f (files! :local filename)
(let [f (if is-app-store?
(files! :external filename)
(files! :local filename))
png (PixmapIO$PNG. (* (.getWidth pm) (.getHeight pm) 1.5))]
(.write png f pm)
@@ -115,7 +127,9 @@
(defn delete-file [filename]
(steamify
(.fileDelete (SteamRemoteStorage. nil) filename)
(.delete (files! :local filename))))
(.delete (if is-app-store?
(files! :external filename)
(files! :local filename)))))
(defn save-screenshot-file-name [name]
(steamify