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

chapter loading.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-04 21:27:11 -08:00
parent 6586faf583
commit 4c1e91a6fb
5 changed files with 83 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -83,10 +83,16 @@
chapters (if (.contains prefs "chapters")
(edn/read-string (.getString prefs "chapters"))
saves/chapters)
chapters (assoc chapters chapter (entities :state))]
chapters (assoc chapters chapter {:state (entities :state)})]
(.putString prefs "chapters" (pr-str chapters))
(.flush prefs)))
(defn get-chapters []
(let [prefs (.getPreferences (Gdx/app) "ticks-tales-saves")]
(if (.contains prefs "chapters")
(edn/read-string (.getString prefs "chapters"))
saves/chapters)))
(defn save [entities id name]
(let [prefs (.getPreferences (Gdx/app) "ticks-tales-saves")
saves (if (.contains prefs "saves")