Continue work on terminals

2022-06-06 13:19:54 +01:00
parent eb38874102
commit 27a5b9b774
3 changed files with 14 additions and 10 deletions
@@ -110,11 +110,13 @@ tmUpdate tm w = case w ^? terminals . ix (_tmID tm) . tmFutureLines . ix 0 of
    Just (TerminalLineEffect _ eff) -> w
        & pointTermParams . tmFutureLines %~ tail
        & eff tm
-    Just (TerminalLineInput _) -> w & pointTermParams %~
-        ( ( tmFutureLines %~ tail )
--        . ( tmScrollCommands .~ scrollc )
--        . ( tmWriteCommands .~ writec )
-        . ( tmInput ?~ T.empty ) )
+    Just (TerminalLineInput _) -> w 
+        & hud . hudElement . subInventory . onInputLine %~ const True
+        & pointTermParams %~
+            ( ( tmFutureLines %~ tail )
+--            . ( tmScrollCommands .~ scrollc )
+--            . ( tmWriteCommands .~ writec )
+            . ( tmInput ?~ T.empty ) )
  where
    pointTermParams = terminals . ix (_tmID tm)