Allow for more changable terminal screen colors

src/Dodge/Machine/Update.hs

@@ -2,6 +2,7 @@ module Dodge.Machine.Update (
     updateMachine,
 ) where
 
+import Dodge.Terminal.Color
 import Control.Monad
 import Data.List (partition)
 import Data.Maybe
@@ -34,8 +35,7 @@ terminalScreenGlow :: Machine -> World -> World
 terminalScreenGlow mc w = fromMaybe w $ do
     tid <- mc ^? mcMounts . ix ObTerminal
     term <- w ^? cWorld . lWorld . terminals . ix tid
-    guard (_tmStatus term /= TerminalOff)
-    let V4 x y z _ = _tmScreenColor term
+    V4 x y z _ <- termScreenColor term
     return $
         w & cWorld . lWorld . tempLightSources
             .:~ TLS