Improve configuration handling

src/Dodge/Event/Keyboard.hs

@@ -57,9 +57,9 @@ handlePressedKeyInGame _ w = Just w
 handlePressedKey :: Bool -> Scancode -> World -> Maybe World
 handlePressedKey True _       w = Just w
 handlePressedKey _    scode w
-    | _menuState w == InGame 
+    | _menuLayers w == [] 
                 = handlePressedKeyInGame scode w
-    | otherwise = handlePressedKeyInMenu (_menuState w) scode w
+    | otherwise = handlePressedKeyInMenu (head $ _menuLayers w) scode w
 handlePressedKey _ _ w = Just w
 
 debugKey :: Scancode -> World -> Maybe World 
@@ -70,7 +70,6 @@ debugKey scancode w
     | scancode == ScancodeF6 = Just $ dropLight' w 
 debugKey _ w = Just w
 
-
 spaceAction :: World -> World
 spaceAction w = case listToMaybe $ _closeActiveObjects w of
     Just (Left flit) -> pickUpItem' flit w
@@ -78,7 +77,7 @@ spaceAction w = case listToMaybe $ _closeActiveObjects w of
     Nothing -> w
 
 pauseGame :: World -> World
-pauseGame w = w {_menuState = PauseMenu}
+pauseGame w = w {_menuLayers = [PauseMenu]}
 
 toggleMap w = w & carteDisplay %~ not
 escapeMap w = w & carteDisplay .~ False