Separate selection list items from display parameters

src/Dodge/Menu.hs

@@ -27,7 +27,7 @@ import Data.Maybe
 
 splashMenu :: Universe -> ScreenLayer
 splashMenu u =
-    slTitleOptionsEff "AMNESIS" splashMenuOptions Nothing id u
+    initializeOptionMenu "AMNESIS" splashMenuOptions Nothing id u
         & scOptionFlag .~ SplashOptions
 
 splashMenuOptions :: [MenuOption]
@@ -51,7 +51,7 @@ splashMenuOptions =
         | otherwise = MODString str
 
 pauseMenu :: Universe -> ScreenLayer
-pauseMenu = slTitleOptionsEff "PAUSED" pauseMenuOptions (Just "CONTINUE") unpause
+pauseMenu = initializeOptionMenu "PAUSED" pauseMenuOptions (Just "CONTINUE") unpause
 
 pauseMenuOptions :: [MenuOption]
 pauseMenuOptions =
@@ -77,7 +77,7 @@ saveQuitConc u = do
     return $ const Nothing
 
 seedStartMenu :: String -> Universe -> ScreenLayer
-seedStartMenu str = slTitleOptionsEff str seedStartOptions (Just "BACK") popScreen
+seedStartMenu str = initializeOptionMenu str seedStartOptions (Just "BACK") popScreen
 
 seedStartOptions :: [MenuOption]
 seedStartOptions =
@@ -96,10 +96,10 @@ trySeedFromClipboard u = do
         Just i -> return $ startSeedGame 0 i u
 
 slTitleOptions :: String -> [MenuOption] -> Universe -> ScreenLayer
-slTitleOptions title ops = slTitleOptionsEff title ops (Just "BACK") (popScreen . writeConfig)
+slTitleOptions title ops = initializeOptionMenu title ops (Just "BACK") (popScreen . writeConfig)
 
 optionMenu :: Universe -> ScreenLayer
-optionMenu = slTitleOptionsEff "OPTIONS" optionsOptions (Just "BACK") popScreen
+optionMenu = initializeOptionMenu "OPTIONS" optionsOptions (Just "BACK") popScreen
 
 optionsOptions :: [MenuOption]
 optionsOptions =
@@ -192,7 +192,7 @@ graphicsMenuOptions =
 
 gameOverMenu :: Universe -> ScreenLayer
 gameOverMenu u =
-    slTitleOptionsEff "GAME OVER" pauseMenuOptions Nothing id u
+    initializeOptionMenu "GAME OVER" pauseMenuOptions Nothing id u
         & scOptionFlag .~ GameOverOptions
 
 --    OptionScreen