Allow for more changable terminal screen colors

src/Dodge/Terminal/Color.hs

@@ -0,0 +1,13 @@
+module Dodge.Terminal.Color (
+    termScreenColor,
+) where
+
+import Dodge.Data.Terminal
+import Color
+import Control.Lens
+
+termScreenColor :: Terminal -> Maybe Color
+termScreenColor tm = case tm ^. tmStatus of
+    TerminalOff -> Nothing
+    TerminalReady -> Just green
+    TerminalBusy -> Just white