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