blurbs.

desktop/src-common/advent/utils.clj

@@ -93,7 +93,7 @@
       (edn/read-string (.getString prefs "chapters"))
       saves/chapters)))
 
-(defn save [entities id name]
+(defn save [entities id name & [blurb]]
   (let [prefs (.getPreferences (Gdx/app) "ticks-tales-saves")
         saves (if (.contains prefs "saves")
                    (edn/read-string (.getString prefs "saves"))
@@ -101,7 +101,8 @@
         saves (cons {:name name
                      :id id
                      :screenshot (save-screenshot-file-name id)
-                     :state (entities :state)}
+                     :state (entities :state)
+                     :blurb (or blurb name)}
                     (filter (comp (complement #{id}) :id) saves))]
     (.putString prefs "saves" (pr-str saves))
     (.flush prefs)