Space zooms to position on carte

src/Dodge/Event/Keyboard.hs

@@ -71,10 +71,16 @@ debugKey scancode w
 debugKey _ w = Just w
 
 spaceAction :: World -> World
-spaceAction w = case listToMaybe $ _closeActiveObjects w of
-    Just (Left flit) -> pickUpItem' flit w
-    Just (Right but) -> _btEvent but but w
-    Nothing -> w
+spaceAction w = if _carteDisplay w
+    then 
+        w & carteCenter .~ theLoc
+    else 
+        case listToMaybe $ _closeActiveObjects w of
+            Just (Left flit) -> pickUpItem' flit w
+            Just (Right but) -> _btEvent but but w
+            Nothing -> w
+  where
+    theLoc = fst (_seenLocations w IM.! _selLocation w) w
 
 pauseGame :: World -> World
 pauseGame w = w {_menuLayers = [PauseMenu]}