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

getting closer on checkouts.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-22 14:11:58 -08:00
parent 95b9327522
commit bbf8e5f61f
2 changed files with 42 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -66,16 +66,20 @@
(str "screenshot-" (clojure.core/name name) ".png" ))
(defn snapshot-list []
(sort-by (fn [s]
(if (= "Autosave" (:name s))
(Long/MIN_VALUE)
(- (Long/parseLong (:id s)))))
(steam/snapshot-list)))
(->> (for [filename (steam/list-edn-files)]
(try
(edn/read-string (String. (steam/get-bytes filename) "UTF-8"))
(catch Exception _ nil)))
(filter (every-pred identity :name :id))
(sort-by (fn [s]
(if (= "Autosave" (:name s))
(Long/MIN_VALUE)
(- (Long/parseLong (:id s))))))))
(defn snapshot-screenshots []
(doall (for [snapshot (snapshot-list)]
(assoc-in snapshot [:screenshot]
(try (let [bytes (steam/get-screenshot-bytes (:screenshot snapshot))]
(try (let [bytes (steam/get-bytes (:screenshot snapshot))]
(Pixmap. bytes 0 (count bytes)))
(catch Exception e
(Pixmap. 160 120 Pixmap$Format/RGB888)))))))
@@ -97,11 +101,6 @@
(edn/read-string (.getString prefs "chapters"))
saves/chapters)))
(defn write-file [filename edn]
(steam/write-file filename edn)
#_(let [f (files! :local filename)]
(.writeString f (pr-str edn) false)))
(defn save-file-name [id]
(str id ".edn"))
@@ -113,7 +112,8 @@
:x (get-in entities [:room :entities :ego :x])
:y (get-in entities [:room :entities :ego :y]))
:blurb (or blurb name)}]
(write-file (save-file-name id) save)
(steam/write-bytes (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)]
@@ -124,7 +124,7 @@
(defn remove-save [id]
(doseq [f [(save-screenshot-file-name id)
(save-file-name id)]]
(save-file-name id)]]
(steam/delete-file f) ))
(defn save-settings! []