Continue work on menu screens

2022-11-04 09:14:32 +00:00
parent c263012b61
commit 054405244f
6 changed files with 28 additions and 66 deletions
@@ -1,33 +0,0 @@
-module Dodge.Event.Menu (
-    --optionListToEffects,
-) where
-
-import Control.Lens
-import Data.Maybe
-import Dodge.Data.Universe
-import Dodge.WindowLayout
-import SDL
-
--optionListToEffects ::
--    (Universe -> Universe) ->
--    Scancode ->
--    [MenuOption] ->
--    Universe ->
--    Universe
--optionListToEffects defaulteff sc mops u = case sc of
--    ScancodeSpace ->
--        (uvScreenLayers . ix 0 . scOptionsOffset %~ (f . (+ mlines)))
--            u
--    _ ->
--        ( fromMaybe defaulteff
--            . lookup sc
--            . concatMap menuOptionToEffects
--            $ mops
--        )
--            u
--  where
--    f x
--        | x > length mops = 0
--        | otherwise = x
--    mlines = availableMenuLines $ _uvConfig u
-