Work on terminals: allow scrolling to get default inputs

2022-06-01 22:22:46 +01:00
parent 0585236a01
commit 0da298bde9
10 changed files with 140 additions and 95 deletions
@@ -131,8 +131,11 @@ rotateCamera cfig w
    | keyr = rotateCameraBy (-0.025) w
    | otherwise = ifConfigWallRotate cfig w
  where
-    keyl = SDL.ScancodeQ `S.member` _keys w
-    keyr = SDL.ScancodeE `S.member` _keys w
+    keyl = SDL.ScancodeQ `S.member` _keys w && notAtTerminal w
+    keyr = SDL.ScancodeE `S.member` _keys w && notAtTerminal w
+
+notAtTerminal :: World -> Bool
+notAtTerminal w = isNothing $ w ^? hud . hudElement . subInventory . termParams . termInput . _Just

 --zoomCamBy :: Float -> World -> World
 --zoomCamBy x w = w {_cameraZoom = max (_cameraZoom w + x) 0.01}