module Colors (-- * Normal colors

               -- | Note that the coloring is actually just ANSI escaping text in  

               --   a right way, so apllying these functions changes the 

               --   length of the string. 

               --  

               --   Also, the actual colors are dependant on

               --   your terminal's colorscheme, so they may look differently 

               --   on your terminal

              black, red, green, yellow, blue, magenta, cyan, white,
               -- * Vivid colors

               -- | Same as normal colors, but are more /vivid/

               --   (or what your colorscheme considers to be more /vivid/)

              bblack, bred, bgreen, byellow, bblue, bmagenta, bcyan, bwhite) where

color :: String -> String -> String
color :: String -> String -> String
color String
c String
s = String
c forall a. [a] -> [a] -> [a]
++ String
s forall a. [a] -> [a] -> [a]
++ String
"\ESC[0m"
-- | Colors the given text in black

black :: String -> String
black :: String -> String
black    = String -> String -> String
color String
"\ESC[30m"
-- | Colors the given text in red

red :: String -> String
red :: String -> String
red      = String -> String -> String
color String
"\ESC[31m"
-- | Colors the given text in green

green :: String -> String
green :: String -> String
green    = String -> String -> String
color String
"\ESC[32m"
-- | Colors the given text in yellow

yellow :: String -> String
yellow :: String -> String
yellow   = String -> String -> String
color String
"\ESC[33m"
-- | Colors the given text in blue

blue :: String -> String
blue :: String -> String
blue     = String -> String -> String
color String
"\ESC[34m"
-- | Colors the given text in magenta

magenta :: String -> String
magenta :: String -> String
magenta  = String -> String -> String
color String
"\ESC[35m"
-- | Colors the given text in cyan

cyan :: String -> String
cyan :: String -> String
cyan     = String -> String -> String
color String
"\ESC[36m"
-- | Colors the given text in white (important because of the length change)

white :: String -> String
white :: String -> String
white    = String -> String -> String
color String
"\ESC[37m"
-- | Colors the given text in vivid black

bblack :: String -> String
bblack :: String -> String
bblack   = String -> String -> String
color String
"\ESC[90m"
-- | Colors the given text in vivid red

bred :: String -> String
bred :: String -> String
bred     = String -> String -> String
color String
"\ESC[91m"
-- | Colors the given text in vivid green

bgreen :: String -> String
bgreen :: String -> String
bgreen   = String -> String -> String
color String
"\ESC[92m"
-- | Colors the given text in vivid yellow

byellow :: String -> String
byellow :: String -> String
byellow  = String -> String -> String
color String
"\ESC[93m"
-- | Colors the given text in vivid blue

bblue :: String -> String
bblue :: String -> String
bblue    = String -> String -> String
color String
"\ESC[94m"
-- | Colors the given text in vivid magenta

bmagenta :: String -> String
bmagenta :: String -> String
bmagenta = String -> String -> String
color String
"\ESC[95m"
-- | Colors the given text in vivid cyan

bcyan :: String -> String
bcyan :: String -> String
bcyan    = String -> String -> String
color String
"\ESC[96m"
-- | Colors the given text in vivid white (important because of the length change)

bwhite :: String -> String
bwhite :: String -> String
bwhite   = String -> String -> String
color String
"\ESC[97m"