Add quicksave

src/Dodge/Event/Keyboard.hs

@@ -40,11 +40,19 @@ handleKeyboardEvent kev w = case keyboardEventKeyMotion kev of
 
 handlePressedKey :: Bool -> Scancode -> World -> Maybe World
 handlePressedKey True _     w   = Just w
+handlePressedKey _    ScancodeF5 w = Just $ doQuicksave w
+handlePressedKey _    ScancodeF9 w = Just $ maybe w doQuicksave (_quicksaveLevel w)
 handlePressedKey _    ScancodeSemicolon w = Just $ gotoTerminal w
 handlePressedKey _    scode w
     | null (_menuLayers w)      = handlePressedKeyInGame scode w
     | otherwise                 = handlePressedKeyInMenu (head $ _menuLayers w) scode w
 
+doQuicksave :: World -> World
+doQuicksave w = w & quicksaveLevel ?~ clearKeys w
+
+clearKeys :: World -> World
+clearKeys = (keys .~ S.empty) . (mouseButtons .~ S.empty)
+
 handlePressedKeyInGame :: Scancode -> World -> Maybe World
 handlePressedKeyInGame scode w
     | scode == escapeKey (_keyConfig w) = Nothing