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

intrudoced sub directory for non-steam saves.

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -63,8 +63,6 @@
atlas (texture-atlas "packed/pack.atlas")]
(texture (texture-atlas! atlas :find-region atlas-name))))
(defn save-screenshot-file-name [name]
(str "screenshot-" (clojure.core/name name) ".png" ))
(defn snapshot-list []
(->> (for [filename (steam/list-edn-files)]
@@ -102,30 +100,28 @@
(edn/read-string (.getString prefs "chapters"))
saves/chapters)))
(defn save-file-name [id]
(str id ".edn"))
(defn save [entities id name & [blurb]]
(log/info "Saving " id name)
(let [save {:name name
:id id
:screenshot (save-screenshot-file-name id)
:screenshot (steam/save-screenshot-file-name id)
:state (assoc (entities :state)
:x (get-in entities [:room :entities :ego :x])
:y (get-in entities [:room :entities :ego :y]))
:blurb (or blurb name)}]
(steam/write-bytes (save-file-name id) (.getBytes (pr-str save) "UTF-8"))
(steam/write-bytes (steam/save-file-name id) (.getBytes (pr-str save) "UTF-8"))
(on-gl (let [_ (Pixmap/setFilter Pixmap$Filter/BiLinear)
viewport (-> @ (resolve 'advent.screens.scene/scene) :screen deref :viewport)
[x y w h g-l g-r] [(.getScreenX viewport) (.getScreenY viewport) (.getScreenWidth viewport) (.getScreenHeight viewport)]
pm (ScreenUtils/getFrameBufferPixmap x y w h)
resized (Pixmap. 160 120 Pixmap$Format/RGB888)
_ (.drawPixmap resized pm 0 0 w h 0 0 160 120)]
(steam/save-screenshot resized (save-screenshot-file-name id))))))
(steam/save-screenshot resized (steam/save-screenshot-file-name id))))))
(defn remove-save [id]
(doseq [f [(save-screenshot-file-name id)
(save-file-name id)]]
(doseq [f [(steam/save-screenshot-file-name id)
(steam/save-file-name id)]]
(steam/delete-file f) ))
(defn save-settings! []