justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Render controls using options menu

Browse Source
This commit is contained in:
justin
2022-12-24 13:35:29 +00:00
parent 80d319b38e
commit a3162e8f9c
3 changed files with 5 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Menu.hs
+5 -1
View File
@@ -99,6 +99,9 @@ trySeedFromClipboard u = do
slTitleOptions :: String -> [MenuOption] -> Universe -> ScreenLayer
slTitleOptions title ops = initializeOptionMenu title ops (Just "BACK") (popScreen . writeConfig)
optionsNoWrite :: String -> [MenuOption] -> Universe -> ScreenLayer
optionsNoWrite title ops = initializeOptionMenu title ops (Just "BACK") popScreen
optionMenu :: Universe -> ScreenLayer
optionMenu = initializeOptionMenu "OPTIONS" optionsOptions (Just "BACK") popScreen
@@ -211,7 +214,8 @@ unpause :: Universe -> Universe
unpause w = resumeSound $ w & uvScreenLayers .~ []
displayControls :: Universe -> ScreenLayer
displayControls = const $ ColumnsScreen "CONTROLS" listControls
--displayControls = const $ ColumnsScreen "CONTROLS" listControls
displayControls = optionsNoWrite "CONTROLS" $ map (Toggle id . const . uncurry MODStringOption) listControls
listControls :: [(String, String)]
listControls =