justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Allow movement when viewing terminals

Browse Source
This commit is contained in:
justin
2025-09-01 23:51:16 +01:00
parent a478ee0a2a
commit 7fcaac2a01
3 changed files with 106 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/InputFocus.hs
+5 -2
View File
@@ -17,8 +17,11 @@ textInputFocus w = case w ^. hud . subInventory of
CombineInventory{} -> case he ^? subInventory . ciSelection . _Just . slSec of
Just (-1) -> Just $ hud . subInventory . ciFilter . _Just
_ -> Nothing
DisplayTerminal{_termID = tmid} -> return
$ cWorld . lWorld . terminals . ix tmid . tmStatus . tiText
DisplayTerminal{_termID = tmid} -> case w ^? cWorld . lWorld . terminals . ix tmid . tmStatus . tiText of
Just _ -> return $ cWorld . lWorld . terminals . ix tmid . tmStatus . tiText
Nothing -> Nothing
-- DisplayTerminal{_termID = tmid} -> return
-- $ cWorld . lWorld . terminals . ix tmid . tmStatus . tiText
_ -> Nothing
where
he = w ^. hud