module Text.Colour
(
chunk,
Chunk (..),
fore,
back,
bold,
faint,
italic,
underline,
doubleUnderline,
Colour (..),
black,
red,
green,
yellow,
blue,
magenta,
cyan,
white,
brightBlack,
brightRed,
brightGreen,
brightYellow,
brightBlue,
brightMagenta,
brightCyan,
brightWhite,
color256,
colour256,
colorRGB,
colourRGB,
renderChunks,
renderChunk,
renderChunksBS,
renderChunkBS,
TerminalCapabilities (..),
putChunksWith,
hPutChunksWith,
)
where
import qualified Data.ByteString.Builder as SBB
import System.IO
import Text.Colour.Capabilities
import Text.Colour.Chunk
putChunksWith :: TerminalCapabilities -> [Chunk] -> IO ()
putChunksWith :: TerminalCapabilities -> [Chunk] -> IO ()
putChunksWith TerminalCapabilities
tc = TerminalCapabilities -> Handle -> [Chunk] -> IO ()
hPutChunksWith TerminalCapabilities
tc Handle
stdout
hPutChunksWith :: TerminalCapabilities -> Handle -> [Chunk] -> IO ()
hPutChunksWith :: TerminalCapabilities -> Handle -> [Chunk] -> IO ()
hPutChunksWith TerminalCapabilities
tc Handle
h [Chunk]
cs = Handle -> Builder -> IO ()
SBB.hPutBuilder Handle
h (Builder -> IO ()) -> Builder -> IO ()
forall a b. (a -> b) -> a -> b
$ TerminalCapabilities -> [Chunk] -> Builder
forall (f :: * -> *).
Foldable f =>
TerminalCapabilities -> f Chunk -> Builder
renderChunks TerminalCapabilities
tc [Chunk]
cs