Cleanup

2022-06-06 16:22:47 +01:00
parent 27a5b9b774
commit b92305798f
11 changed files with 116 additions and 77 deletions
@@ -110,13 +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 (TerminalLineTerminalEffect _ eff) -> w
+        & pointTermParams . tmFutureLines %~ tail
+        & pointTermParams %~ eff
    Just (TerminalLineInput _) -> w 
-        & hud . hudElement . subInventory . onInputLine %~ const True
        & pointTermParams %~
            ( ( tmFutureLines %~ tail )
--            . ( tmScrollCommands .~ scrollc )
--            . ( tmWriteCommands .~ writec )
-            . ( tmInput ?~ T.empty ) )
+            . ( tmInput ?~ TerminalInput T.empty True) )
  where
    pointTermParams = terminals . ix (_tmID tm)