Commit before making terminals there own entities

2022-06-06 11:17:11 +01:00
parent 384a16851b
commit 8e9f33d038
6 changed files with 56 additions and 37 deletions
@@ -164,8 +164,10 @@ doTerminalEffect' s w = fromMaybe (w & badinput) $ do
        )

 addInputLine :: [TerminalCommand] -> [TerminalCommand] -> TerminalParams -> TerminalParams
-addInputLine searchablecommands hiddencommands = termFutureLines ++.~
-    [TerminalLineInput 0 searchablecommands hiddencommands]
+addInputLine searchablecommands hiddencommands = 
+    (termFutureLines ++.~ [TerminalLineInput 0])
+    . (termScrollCommands ++.~  searchablecommands)
+    . (termWriteCommands ++.~ hiddencommands)

 defaultTermParams :: TerminalParams
 defaultTermParams = TerminalParams
@@ -178,6 +180,7 @@ defaultTermParams = TerminalParams
    ,_termInput   = Nothing
    ,_termScrollCommands = []
    ,_termWriteCommands = []
+    ,_termDeathCommand = Nothing
    }

 connectionBlurb :: [String]