16 lines
440 B
Haskell
16 lines
440 B
Haskell
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
|
|
TerminalWaiting -> Just green
|