module Aura.Colour
(
dtot
, cyan, bCyan, green, yellow, red, magenta
) where
import BasePrelude
import Data.Text (Text)
import Data.Text.Prettyprint.Doc
import Data.Text.Prettyprint.Doc.Render.Terminal
dtot :: Doc AnsiStyle -> Text
dtot = renderStrict . layoutPretty defaultLayoutOptions
cyan :: Doc AnsiStyle -> Doc AnsiStyle
cyan = annotate (color Cyan)
bCyan :: Doc AnsiStyle -> Doc AnsiStyle
bCyan = annotate (color Cyan <> bold)
green :: Doc AnsiStyle -> Doc AnsiStyle
green = annotate (color Green)
yellow :: Doc AnsiStyle -> Doc AnsiStyle
yellow = annotate (color Yellow)
red :: Doc AnsiStyle -> Doc AnsiStyle
red = annotate (color Red)
magenta :: Doc AnsiStyle -> Doc AnsiStyle
magenta = annotate (color Magenta)