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

saving retries if it fails.

Browse Source
This commit is contained in:
Bryce Covert
2016-02-16 09:19:28 -08:00
parent f446dfd2bf
commit 2eef8e63a9
1 changed files with 27 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -100,24 +100,34 @@
(edn/read-string (.getString prefs "chapters")) (edn/read-string (.getString prefs "chapters"))
saves/chapters))) saves/chapters)))
(defn try-times [fn times]
(first (drop-while #{:fail}
(repeatedly times
#(try (fn)
(catch Exception e
(log/error "Could not save!" e)
:fail))))))
(defn save [entities id name & [blurb]] (defn save [entities id name & [blurb]]
(log/info "Saving " id name) (let [save-fn (fn []
(let [save {:name name (log/info "Saving " id name)
:id id (let [save {:name name
:screenshot (steam/save-screenshot-file-name id) :id id
:state (assoc (entities :state) :screenshot (steam/save-screenshot-file-name id)
:x (get-in entities [:room :entities :ego :x]) :state (assoc (entities :state)
:y (get-in entities [:room :entities :ego :y])) :x (get-in entities [:room :entities :ego :x])
:blurb (or blurb name)}] :y (get-in entities [:room :entities :ego :y]))
:blurb (or blurb name)}]
(steam/write-bytes (steam/save-file-name id) (.getBytes (pr-str save) "UTF-8"))
(on-gl (let [_ (Pixmap/setFilter Pixmap$Filter/BiLinear) (steam/write-bytes (steam/save-file-name id) (.getBytes (pr-str save) "UTF-8"))
viewport (-> @ (resolve 'advent.screens.scene/scene) :screen deref :viewport) (on-gl (let [_ (Pixmap/setFilter Pixmap$Filter/BiLinear)
[x y w h g-l g-r] [(.getScreenX viewport) (.getScreenY viewport) (.getScreenWidth viewport) (.getScreenHeight viewport)] viewport (-> @ (resolve 'advent.screens.scene/scene) :screen deref :viewport)
pm (ScreenUtils/getFrameBufferPixmap x y w h) [x y w h g-l g-r] [(.getScreenX viewport) (.getScreenY viewport) (.getScreenWidth viewport) (.getScreenHeight viewport)]
resized (Pixmap. 160 120 Pixmap$Format/RGB888) pm (ScreenUtils/getFrameBufferPixmap x y w h)
_ (.drawPixmap resized pm 0 0 w h 0 0 160 120)] resized (Pixmap. 160 120 Pixmap$Format/RGB888)
(steam/save-screenshot resized (steam/save-screenshot-file-name id)))))) _ (.drawPixmap resized pm 0 0 w h 0 0 160 120)]
(steam/save-screenshot resized (steam/save-screenshot-file-name id))))))]
(try-times save-fn 3)))
(defn remove-save [id] (defn remove-save [id]
(doseq [f [(steam/save-screenshot-file-name id) (doseq [f [(steam/save-screenshot-file-name id)