Partially successful change of terminals to external entities

2022-06-06 12:49:14 +01:00
parent 597336499c
commit eb38874102
12 changed files with 141 additions and 167 deletions
@@ -167,8 +167,9 @@ rotateCamera cfig w
    keyl = SDL.ScancodeQ `S.member` _keys w && notAtTerminal w
    keyr = SDL.ScancodeE `S.member` _keys w && notAtTerminal w

+-- TODO check where/how this is used
 notAtTerminal :: World -> Bool
-notAtTerminal w = isNothing $ w ^? hud . hudElement . subInventory . termParams . termInput . _Just
+notAtTerminal w = isNothing $ w ^? hud . hudElement . subInventory . termID

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