seems like almost everything is working.
This commit is contained in:
@@ -481,33 +481,33 @@
|
||||
|
||||
(#{:back } actor-key)
|
||||
(-> entities
|
||||
(dissoc :save-menu)
|
||||
(dissoc :chapters-menu)
|
||||
(dissoc :settings-menu)
|
||||
(utils/remove-actor-from-stage :save-menu)
|
||||
(utils/remove-actor-from-stage :chapters-menu)
|
||||
(utils/remove-actor-from-stage :settings-menu)
|
||||
(assoc :main-menu (->> (main-menu screen)
|
||||
(utils/add-actor-to-stage screen))))
|
||||
|
||||
(#{:dont-delete-button } actor-key)
|
||||
(as-> entities entities
|
||||
(dissoc entities :confirm-delete)
|
||||
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
|
||||
(utils/add-actor-to-stage screen))))
|
||||
(utils/remove-actor-from-stage entities :confirm-delete)
|
||||
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
|
||||
(utils/add-actor-to-stage screen))))
|
||||
|
||||
(= :load actor-key)
|
||||
(as-> entities entities
|
||||
(dissoc entities :main-menu)
|
||||
(utils/remove-actor-from-stage entities :main-menu)
|
||||
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
|
||||
(utils/add-actor-to-stage screen))))
|
||||
|
||||
(= :chapters actor-key)
|
||||
(-> entities
|
||||
(dissoc :main-menu)
|
||||
(utils/remove-actor-from-stage :main-menu)
|
||||
(assoc :chapters-menu (->> (chapters-menu )
|
||||
(utils/add-actor-to-stage screen))))
|
||||
|
||||
(= :settings actor-key)
|
||||
(-> entities
|
||||
(dissoc :main-menu)
|
||||
(utils/remove-actor-from-stage :main-menu)
|
||||
(assoc :settings-menu (->> (settings-menu)
|
||||
(utils/add-actor-to-stage screen))))
|
||||
|
||||
@@ -529,7 +529,7 @@
|
||||
|
||||
(= :delete actor-key)
|
||||
(as-> entities entities
|
||||
(dissoc entities :save-menu)
|
||||
(utils/remove-actor-from-stage entities :save-menu)
|
||||
(assoc entities :confirm-delete (->> (confirm-delete entities)
|
||||
(utils/add-actor-to-stage screen))))
|
||||
|
||||
@@ -537,10 +537,10 @@
|
||||
(do
|
||||
(utils/remove-save (:id (:selected-save entities)))
|
||||
(as-> entities entities
|
||||
(dissoc entities :confirm-delete)
|
||||
(assoc entities :saves-list (utils/snapshot-screenshots))
|
||||
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
|
||||
(utils/add-actor-to-stage screen)))))
|
||||
(utils/remove-actor-from-stage entities :confirm-delete)
|
||||
(assoc entities :saves-list (utils/snapshot-screenshots))
|
||||
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
|
||||
(utils/add-actor-to-stage screen)))))
|
||||
|
||||
(:save e)
|
||||
(do
|
||||
|
||||
Reference in New Issue
Block a user