Remove explicit external terminal color record

2025-12-07 14:24:11 +00:00
parent 1d53ff4277
commit 6e5d2f147a
16 changed files with 117 additions and 132 deletions
@@ -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