event :discard_deleted_locations, :after=>:store, :on=>:delete do
  Env.discard_locations_for self
  if success.target == self
    success.target = :previous
  end
end

event :save_current_location, :before=>:show, :on=>:read do
  Env.save_location self
end