Partial rethink of terminal text input

2025-08-14 21:48:02 +01:00
parent 5b720cb82c
commit 91d19e7c42
12 changed files with 142 additions and 167 deletions
@@ -27,8 +27,8 @@ textInputFocus w = case w ^? hud . hudElement . subInventory of
        _ -> Nothing
    Just DisplayTerminal{_termID = tmid} -> do
        connectionstatus <- w ^? cWorld . lWorld . terminals . ix tmid . tmStatus
-        guard $ connectionstatus == TerminalReady
-        return $ cWorld . lWorld . terminals . ix tmid . tmInput . tiText
+--        guard $ connectionstatus == TerminalTextInput
+        return $ cWorld . lWorld . terminals . ix tmid . tmStatus . tiText
    _ -> Nothing
  where
    he = w ^. hud . hudElement