module RPGEngine.Input.Menu
( handleInputMenu
) where

import RPGEngine.Input.Core (InputHandler, composeInputHandlers, handleAnyKey)
import RPGEngine.Data (Game (state), State (..))
import RPGEngine.Data.Default (defaultSelector)
import RPGEngine.Data.Level (getLevelList)

------------------------------ Exported ------------------------------

handleInputMenu :: InputHandler Game
handleInputMenu = composeInputHandlers [
    handleAnyKey (\game -> game{ state = startLevelSelection })
    ]

----------------------------------------------------------------------

startLevelSelection :: State
startLevelSelection = LevelSelection {
    levelList = getLevelList,
    selector  = defaultSelector
}