Remove explicit external terminal color record

src/Dodge/Room/LongDoor.hs

@@ -103,7 +103,7 @@ addButtonSlowDoor x h =
   where
     f g y = g $ y ^. _1 . _y
     theterminal =
-        putMessageTerminal terminalColor (simpleTermMessage themessage)
+        putMessageTerminal (simpleTermMessage themessage)
             & plSpot
                 .~ rprBoolShift
                     (isUnusedLnkType InLink)

src/Dodge/Room/RezBox.hs

@@ -33,7 +33,7 @@ rezBox ls =
     roomRect 40 60 1 1
         & rmPmnts
             .~ [ sPS (V2 20 1) 0 $ PutLS ls
-               , putMessageTerminal terminalColor (defaultTerminal & tmBootLines .~ makeTermPara s <> tlSetStatus (TerminalPressTo "QUIT") <> tlDoEffect TmWdWdDeactivateTerminal)
+               , putMessageTerminal (defaultTerminal & tmBootLines .~ makeTermPara s <> tlSetStatus (TerminalPressTo "QUIT") <> tlDoEffect TmWdWdDeactivateTerminal)
                     & plSpot .~ PS (V2 20 0) 0
                ]
         & restrictInLinks (\(V2 _ h, _) -> h < 1)

src/Dodge/Room/SensorDoor.hs

@@ -63,7 +63,7 @@ sensInsideDoor senseType i rm = rm
         .++~ [ psPt atFstLnkOut . PutForeground $ floorWire (V2 20 0) (V2 20 (-100))
              , psPt atFstLnkOut . PutForeground $ floorWire (V2 0 (-100)) (V2 20 (-100))
              , psPt atFstLnkOut . PutForeground $ verticalWire (V2 20 0) 0 80
-             , putMessageTerminal terminalColor 
+             , putMessageTerminal 
                 (textTerminal & tmCommands .:~ TCDamageCommand)
                 & plSpot .~ rprBoolShift isUnusedLnk (shiftInBy 10 <&> (, S.singleton UsedPosHigh))
             , sensAboveDoor senseType 10 (atFstLnkOutShiftInward 100) & plExternalID ?~ i

src/Dodge/Room/Tutorial.hs

@@ -96,7 +96,6 @@ tutDrop = do
     t j = \gw ->
         let x = gw ^? genInts . ix j
          in putMessageTerminal
-                terminalColor
                 (defaultTerminal & tmBootLines .~ ss <> tlSetStatus (TerminalPressTo $ show x <> "QUIT") <> tlDoEffect TmWdWdPowerDownTerminal)
                 & plSpot
                     .~ rprBoolShift
@@ -293,7 +292,6 @@ tutHub = do
     ammoroom x = roomRectAutoLinks 100 100 <&> rmPmnts .:~ sps (PS 50 0) (PutFlIt x)
     itemshiftterminal =
         putMessageTerminal
-            terminalColor
             (defaultTerminal & tmBootLines .~ ss' <> tlSetStatus (TerminalPressTo "QUIT") <> tlDoEffect TmWdWdPowerDownTerminal)
             & plSpot
                 .~ rprBoolShift
@@ -366,7 +364,6 @@ tutRezBox = do
                    , Placement (PS 0 0) PutNothing Nothing Nothing $ \w _ ->
                         Just $
                             putImmediateMessageTerminal
-                                terminalColor
                                 ( defaultTerminal & tmBootLines .~ s w
                                     <> tlSetStatus (TerminalPressTo "QUIT")
                                     <> tlDoEffect TmWdWdPowerDownTerminal

src/Dodge/Room/Warning.hs

@@ -47,7 +47,7 @@ addDoorAtNthLinkToggleTerminal j xs i =
         extTrigLitPos
             (atNthLnkOutShiftBy j (\(p, a) -> ((p +.+ rotateV a (V2 18.5 (-2.5)), a), S.singleton UsedPosLow)))
             ( Just . set plSpot (rprShift (moveToSideNthOutLink (S.singleton UsedPosLow) j))
-                . putMessageTerminal terminalColor
+                . putMessageTerminal
                 . termMessages
             )
             & plExternalID