module BishBosh.Text.ShowColouredPrefix(
showsPrefixInfo,
showsPrefixWarning,
showsPrefixError
) where
import qualified BishBosh.Colour.ANSIColourCode as Colour.ANSIColourCode
import qualified BishBosh.Colour.PhysicalColour as Colour.PhysicalColour
import qualified BishBosh.Text.ShowPrefix as Text.ShowPrefix
showsPrefixInfo :: ShowS
showsPrefixInfo :: ShowS
showsPrefixInfo = GraphicsRendition -> GraphicsRendition -> ShowS
Colour.ANSIColourCode.bracket (
IsBold -> ANSIColourCode -> GraphicsRendition
Colour.ANSIColourCode.selectGraphicsRendition IsBold
False (ANSIColourCode -> GraphicsRendition)
-> ANSIColourCode -> GraphicsRendition
forall a b. (a -> b) -> a -> b
$ PhysicalColour -> ANSIColourCode
Colour.ANSIColourCode.mkFgColourCode PhysicalColour
Colour.PhysicalColour.green
) (GraphicsRendition -> ShowS) -> GraphicsRendition -> ShowS
forall a b. (a -> b) -> a -> b
$ ShowS
Text.ShowPrefix.showsPrefixInfo GraphicsRendition
""
showsPrefixWarning :: ShowS
showsPrefixWarning :: ShowS
showsPrefixWarning = GraphicsRendition -> GraphicsRendition -> ShowS
Colour.ANSIColourCode.bracket (
IsBold -> ANSIColourCode -> GraphicsRendition
Colour.ANSIColourCode.selectGraphicsRendition IsBold
True (ANSIColourCode -> GraphicsRendition)
-> ANSIColourCode -> GraphicsRendition
forall a b. (a -> b) -> a -> b
$ PhysicalColour -> ANSIColourCode
Colour.ANSIColourCode.mkFgColourCode PhysicalColour
Colour.PhysicalColour.yellow
) (GraphicsRendition -> ShowS) -> GraphicsRendition -> ShowS
forall a b. (a -> b) -> a -> b
$ ShowS
Text.ShowPrefix.showsPrefixWarning GraphicsRendition
""
showsPrefixError :: ShowS
showsPrefixError :: ShowS
showsPrefixError = GraphicsRendition -> GraphicsRendition -> ShowS
Colour.ANSIColourCode.bracket (
IsBold -> ANSIColourCode -> GraphicsRendition
Colour.ANSIColourCode.selectGraphicsRendition IsBold
True (ANSIColourCode -> GraphicsRendition)
-> ANSIColourCode -> GraphicsRendition
forall a b. (a -> b) -> a -> b
$ PhysicalColour -> ANSIColourCode
Colour.ANSIColourCode.mkFgColourCode PhysicalColour
Colour.PhysicalColour.red
) (GraphicsRendition -> ShowS) -> GraphicsRendition -> ShowS
forall a b. (a -> b) -> a -> b
$ ShowS
Text.ShowPrefix.showsPrefixError GraphicsRendition
""