Cleanup

2022-07-14 21:46:21 +01:00
parent 7d7ed6689d
commit f8f4766012
2 changed files with 28 additions and 3 deletions
@@ -52,8 +52,11 @@ addWarningTerminal str outplid = (rmName .++~ "warningTerm-")
  where
    outplace = extTrigLitPos
        (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
-        (Just . set plSpot (rprShift moveToSideFirstOutLink) . putMessageTerminal terminalColor . termMessages)
-    termMessages trpl = basicTerminal & tmScrollCommands .:~ toggleCommand
+        (Just . set plSpot (rprShift moveToSideFirstOutLink) 
+            . putMessageTerminal terminalColor . termMessages)
+    termMessages trpl = basicTerminal 
+        & tmFutureLines .~ makeTermPara str
+        & tmScrollCommands .:~ toggleCommand
        & tmToggles .~ M.fromList 
            [("DOOR",TerminalToggle (fromJust $ _plMID trpl) (const (const True)))]