diff --git a/desktop/settings.edn b/desktop/settings.edn deleted file mode 100644 index ce85fd0d..00000000 --- a/desktop/settings.edn +++ /dev/null @@ -1 +0,0 @@ -{:sound-volume 94.0, :music-volume 37.0} \ No newline at end of file diff --git a/desktop/src-common/advent/utils.clj b/desktop/src-common/advent/utils.clj index a58d5b8b..bef48444 100644 --- a/desktop/src-common/advent/utils.clj +++ b/desktop/src-common/advent/utils.clj @@ -49,16 +49,16 @@ resized )) -(defn save [entities] - (doto (.getPreferences (Gdx/app) "ticks-tales-saves") - (.putString "save-1" (pr-str (entities :state))) - .flush)) - (defn get-texture [path] (let [atlas-name (str/replace path #".png" "") atlas (texture-atlas "packed/pack.atlas")] (texture (texture-atlas! atlas :find-region atlas-name)))) +(defn save [entities] + (doto (.getPreferences (Gdx/app) "ticks-tales-saves") + (.putString "save-1" (pr-str (entities :state))) + .flush)) + (defn has-save? [] (-> (.getPreferences (Gdx/app) "ticks-tales-saves") (.contains "save-1"))) @@ -69,6 +69,22 @@ edn/read-string (assoc :active? true))) +(defn save-settings [entities] + (doto (.getPreferences (Gdx/app) "ticks-tales-saves") + (.putString "settings" (pr-str @settings)) + .flush)) + +(defn has-saved-settings? [] + (-> (.getPreferences (Gdx/app) "ticks-tales-saves") + (.contains "settings"))) + +(defn load-settings [] + (reset! settings + (-> (.getPreferences (Gdx/app) "ticks-tales-saves") + (.getString "settings") + edn/read-string))) + + (defn load-settings! [] (when (.exists (io/file "settings.edn")) (reset! settings (edn/read-string (slurp "settings.edn")))))