almost everything is functional again.
This commit is contained in:
@@ -481,27 +481,32 @@
|
||||
(dissoc :save-menu)
|
||||
(dissoc :chapters-menu)
|
||||
(dissoc :settings-menu)
|
||||
(assoc :main-menu (main-menu screen)))
|
||||
(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))))
|
||||
(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)
|
||||
(assoc entities :save-menu (saves-menu entities (:renderer screen))))
|
||||
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
|
||||
(utils/add-actor-to-stage screen))))
|
||||
|
||||
(= :chapters actor-key)
|
||||
(-> entities
|
||||
(dissoc :main-menu)
|
||||
(assoc :chapters-menu (chapters-menu )))
|
||||
(assoc :chapters-menu (->> (chapters-menu )
|
||||
(utils/add-actor-to-stage screen))))
|
||||
|
||||
(= :settings actor-key)
|
||||
(-> entities
|
||||
(dissoc :main-menu)
|
||||
(assoc :settings-menu (settings-menu)))
|
||||
(assoc :settings-menu (->> (settings-menu)
|
||||
(utils/add-actor-to-stage screen))))
|
||||
|
||||
(= :toggle-fullscreen actor-key)
|
||||
(utils/toggle-fullscreen!)
|
||||
@@ -522,7 +527,8 @@
|
||||
(= :delete actor-key)
|
||||
(as-> entities entities
|
||||
(dissoc entities :save-menu)
|
||||
(assoc entities :confirm-delete (confirm-delete entities)))
|
||||
(assoc entities :confirm-delete (->> (confirm-delete entities)
|
||||
(utils/add-actor-to-stage screen))))
|
||||
|
||||
(= :confirm-delete-button actor-key)
|
||||
(do
|
||||
@@ -530,7 +536,8 @@
|
||||
(as-> entities entities
|
||||
(dissoc entities :confirm-delete)
|
||||
(assoc entities :saves-list (utils/snapshot-screenshots))
|
||||
(assoc entities :save-menu (saves-menu entities (:renderer screen)))))
|
||||
(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