module Dodge.Terminal.Color (termScreenColor) where

import Dodge.Data.Terminal.Status
import Dodge.Data.Terminal
import Color
import Control.Lens

termScreenColor :: Terminal -> Maybe Color
termScreenColor tm = case tm ^. tmStatus of
    TerminalOff -> Nothing
    TerminalDeactivated -> Nothing
    TerminalTextInput _ -> Just green
    TerminalPressTo{} -> Just green
    TerminalLineRead -> Just white