module Dodge.Menu.PushPop where

import Dodge.Data.Universe
import LensHelp

popScreen :: Universe -> Universe
popScreen = (uvScreenLayers . ix 0 . scDisplayTime .~ 0) . (uvScreenLayers %~ tail)

pushScreen :: (Universe -> ScreenLayer) -> Universe -> Universe
pushScreen ml u = u & uvScreenLayers .:~ ml u