module BishBosh.Text.ShowColouredPrefix(
showsPrefixInfo,
showsPrefixWarning,
showsPrefixError
) where
import qualified BishBosh.Attribute.ANSIColourCode as Attribute.ANSIColourCode
import qualified BishBosh.Attribute.PhysicalColour as Attribute.PhysicalColour
import qualified BishBosh.Text.ShowPrefix as Text.ShowPrefix
showsPrefixInfo :: ShowS
showsPrefixInfo :: ShowS
showsPrefixInfo = GraphicsRendition -> GraphicsRendition -> ShowS
Attribute.ANSIColourCode.bracket (
IsBold -> ANSIColourCode -> GraphicsRendition
Attribute.ANSIColourCode.selectGraphicsRendition IsBold
False (ANSIColourCode -> GraphicsRendition)
-> ANSIColourCode -> GraphicsRendition
forall a b. (a -> b) -> a -> b
$ PhysicalColour -> ANSIColourCode
Attribute.ANSIColourCode.mkFgColourCode PhysicalColour
Attribute.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
Attribute.ANSIColourCode.bracket (
IsBold -> ANSIColourCode -> GraphicsRendition
Attribute.ANSIColourCode.selectGraphicsRendition IsBold
True (ANSIColourCode -> GraphicsRendition)
-> ANSIColourCode -> GraphicsRendition
forall a b. (a -> b) -> a -> b
$ PhysicalColour -> ANSIColourCode
Attribute.ANSIColourCode.mkFgColourCode PhysicalColour
Attribute.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
Attribute.ANSIColourCode.bracket (
IsBold -> ANSIColourCode -> GraphicsRendition
Attribute.ANSIColourCode.selectGraphicsRendition IsBold
True (ANSIColourCode -> GraphicsRendition)
-> ANSIColourCode -> GraphicsRendition
forall a b. (a -> b) -> a -> b
$ PhysicalColour -> ANSIColourCode
Attribute.ANSIColourCode.mkFgColourCode PhysicalColour
Attribute.PhysicalColour.red
) (GraphicsRendition -> ShowS) -> GraphicsRendition -> ShowS
forall a b. (a -> b) -> a -> b
$ ShowS
Text.ShowPrefix.showsPrefixError GraphicsRendition
""