diff --git a/desktop/src-common/advent/actions.clj b/desktop/src-common/advent/actions.clj index 02fc311d..919e9fea 100644 --- a/desktop/src-common/advent/actions.clj +++ b/desktop/src-common/advent/actions.clj @@ -182,12 +182,12 @@ entities)) (run-action entities (begin [this screen entities] - (let [ego (get-in entities [:background :entities :ego])] - (-> entities - (assoc-in [:background] (get-in entities [:backgrounds new-background])) - (assoc-in [:background :entities :ego] ego) - (assoc-in [:background :entities :ego :x] x) - (assoc-in [:background :entities :ego :y] y)))) + (let [ego (get-in entities [:background :entities :ego]) + entities (-> entities + (assoc-in [:background] (get-in entities [:backgrounds new-background])) + (assoc-in [:background :entities :ego] ego))] + (-> entities + (update-in [:background :entities :ego] #(jump-to screen entities % [x y]))))) (continue [this screen entities] (update-in entities [:transition :opacity] - 0.075))