rainbow 0.6.0.4 → 0.8.0.0

raw patch · 7 files changed

+4106/−2987 lines, 7 files

Files

• System/Console/Rainbow.hs +82/−2979
• System/Console/Rainbow/ColorChunks.hs +1820/−0
• System/Console/Rainbow/Colors.hs +1713/−0
• System/Console/Rainbow/Types.hs +480/−0
• current-versions.txt +3/−3
• minimum-versions.txt +4/−4
• rainbow.cabal +4/−1

@@ -60,2982 +60,85 @@ -- terminal. That is, if you want to print some text in one color and -- some text in another color, make two chunks. -module System.Console.Rainbow (--  -- * Terminal definitions-    Term(..)-  , termFromEnv-  , smartTermFromEnv--  -- * Chunks-  , Chunk(..)--  -- * Printing chunks-  , putChunks-  , hPutChunks--  -- ** Printing one chunk at a time--  -- | These functions make it easy to print one chunk at a time. Each-  -- function initializes the terminal once for each chunk, unlike the-  -- list-oriented functions, which only initialize the terminal-  -- once. (Initialization does not clear the screen; rather, it is a-  -- process that the terminfo library requires.) Thus there might be-  -- a performance penalty for using these functions to print large-  -- numbers of chunks. Or, there might not be--I have not benchmarked-  -- them.-  ---  -- These functions use the default terminal, obtained using-  -- 'termFromEnv'.-  , putChunk-  , putChunkLn-  , hPutChunk-  , hPutChunkLn--  -- * Effects for both 8 and 256 color terminals--  -- | These 'Chunk's affect both 8 and 256 color terminals:-  ---  -- > putChunkLn $ "bold on 8 and 256 color terminals" <> bold-  ---  -- There are also 'Chunk's to turn an effect off, such as-  -- 'boldOff'. Ordinarily you will not need these because each chunk-  -- starts with no effects, so you only need to turn on the effects-  -- you want. However the @off@ 'Chunk's are here if you need them.--  , bold, boldOff-  , underline, underlineOff-  , flash, flashOff-  , inverse, inverseOff--  -- * Effects for 8-color terminals only--  -- | These 'Chunk's affect 8-color terminals only.-  ---  -- > putChunkLn $ "Bold on 8 color terminal only" <> bold8--  , bold8, bold8off-  , underline8, underline8off-  , flash8, flash8off-  , inverse8, inverse8off--  -- * Effects for 256-color terminals only--  -- | These 'Chunk's affect 256-color terminals only.-  ---  -- > putChunkLn $ "Underlined on 256-color terminal, "-  -- >              <> "bold on 8-color terminal"-  -- >              <> underlined256 <> bold8--  , bold256, bold256off-  , underline256, underline256off-  , flash256, flash256off-  , inverse256, inverse256off--  -- * Colors for both 8 and 256 color terminals--  -- | These 'Chunk's affect both 8 and 256 color-  -- terminals.-  ---  -- > putChunkLn $ "Red on blue" <> f_red <> b_blue--  -- ** Foreground colors--  , f_default-  , f_black-  , f_red-  , f_green-  , f_yellow-  , f_blue-  , f_magenta-  , f_cyan-  , f_white--  -- ** Background colors--  , b_default-  , b_black-  , b_red-  , b_green-  , b_yellow-  , b_blue-  , b_magenta-  , b_cyan-  , b_white--   -- * Specific colors-   -- ** 8 color foreground colors-  , c8_f_default-  , c8_f_black-  , c8_f_red-  , c8_f_green-  , c8_f_yellow-  , c8_f_blue-  , c8_f_magenta-  , c8_f_cyan-  , c8_f_white--   -- ** 8 color background colors-  , c8_b_default-  , c8_b_black-  , c8_b_red-  , c8_b_green-  , c8_b_yellow-  , c8_b_blue-  , c8_b_magenta-  , c8_b_cyan-  , c8_b_white--   -- ** 256 color foreground colors--   -- | The color names assume a palette similar to the default one-   -- that xterm uses.-  , c256_f_default-  , c256_f_0-  , c256_f_black-  , c256_f_1-  , c256_f_red-  , c256_f_2-  , c256_f_green-  , c256_f_3-  , c256_f_yellow-  , c256_f_4-  , c256_f_blue-  , c256_f_5-  , c256_f_magenta-  , c256_f_6-  , c256_f_cyan-  , c256_f_7-  , c256_f_white-  , c256_f_8-  , c256_f_grey-  , c256_f_9-  , c256_f_red_bright-  , c256_f_10-  , c256_f_green_bright-  , c256_f_11-  , c256_f_yellow_bright-  , c256_f_12-  , c256_f_blue_bright-  , c256_f_13-  , c256_f_magenta_bright-  , c256_f_14-  , c256_f_cyan_bright-  , c256_f_15-  , c256_f_white_bright-  , c256_f_16-  , c256_f_17-  , c256_f_18-  , c256_f_19-  , c256_f_20-  , c256_f_21-  , c256_f_22-  , c256_f_23-  , c256_f_24-  , c256_f_25-  , c256_f_26-  , c256_f_27-  , c256_f_28-  , c256_f_29-  , c256_f_30-  , c256_f_31-  , c256_f_32-  , c256_f_33-  , c256_f_34-  , c256_f_35-  , c256_f_36-  , c256_f_37-  , c256_f_38-  , c256_f_39-  , c256_f_40-  , c256_f_41-  , c256_f_42-  , c256_f_43-  , c256_f_44-  , c256_f_45-  , c256_f_46-  , c256_f_47-  , c256_f_48-  , c256_f_49-  , c256_f_50-  , c256_f_51-  , c256_f_52-  , c256_f_53-  , c256_f_54-  , c256_f_55-  , c256_f_56-  , c256_f_57-  , c256_f_58-  , c256_f_59-  , c256_f_60-  , c256_f_61-  , c256_f_62-  , c256_f_63-  , c256_f_64-  , c256_f_65-  , c256_f_66-  , c256_f_67-  , c256_f_68-  , c256_f_69-  , c256_f_70-  , c256_f_71-  , c256_f_72-  , c256_f_73-  , c256_f_74-  , c256_f_75-  , c256_f_76-  , c256_f_77-  , c256_f_78-  , c256_f_79-  , c256_f_80-  , c256_f_81-  , c256_f_82-  , c256_f_83-  , c256_f_84-  , c256_f_85-  , c256_f_86-  , c256_f_87-  , c256_f_88-  , c256_f_89-  , c256_f_90-  , c256_f_91-  , c256_f_92-  , c256_f_93-  , c256_f_94-  , c256_f_95-  , c256_f_96-  , c256_f_97-  , c256_f_98-  , c256_f_99-  , c256_f_100-  , c256_f_101-  , c256_f_102-  , c256_f_103-  , c256_f_104-  , c256_f_105-  , c256_f_106-  , c256_f_107-  , c256_f_108-  , c256_f_109-  , c256_f_110-  , c256_f_111-  , c256_f_112-  , c256_f_113-  , c256_f_114-  , c256_f_115-  , c256_f_116-  , c256_f_117-  , c256_f_118-  , c256_f_119-  , c256_f_120-  , c256_f_121-  , c256_f_122-  , c256_f_123-  , c256_f_124-  , c256_f_125-  , c256_f_126-  , c256_f_127-  , c256_f_128-  , c256_f_129-  , c256_f_130-  , c256_f_131-  , c256_f_132-  , c256_f_133-  , c256_f_134-  , c256_f_135-  , c256_f_136-  , c256_f_137-  , c256_f_138-  , c256_f_139-  , c256_f_140-  , c256_f_141-  , c256_f_142-  , c256_f_143-  , c256_f_144-  , c256_f_145-  , c256_f_146-  , c256_f_147-  , c256_f_148-  , c256_f_149-  , c256_f_150-  , c256_f_151-  , c256_f_152-  , c256_f_153-  , c256_f_154-  , c256_f_155-  , c256_f_156-  , c256_f_157-  , c256_f_158-  , c256_f_159-  , c256_f_160-  , c256_f_161-  , c256_f_162-  , c256_f_163-  , c256_f_164-  , c256_f_165-  , c256_f_166-  , c256_f_167-  , c256_f_168-  , c256_f_169-  , c256_f_170-  , c256_f_171-  , c256_f_172-  , c256_f_173-  , c256_f_174-  , c256_f_175-  , c256_f_176-  , c256_f_177-  , c256_f_178-  , c256_f_179-  , c256_f_180-  , c256_f_181-  , c256_f_182-  , c256_f_183-  , c256_f_184-  , c256_f_185-  , c256_f_186-  , c256_f_187-  , c256_f_188-  , c256_f_189-  , c256_f_190-  , c256_f_191-  , c256_f_192-  , c256_f_193-  , c256_f_194-  , c256_f_195-  , c256_f_196-  , c256_f_197-  , c256_f_198-  , c256_f_199-  , c256_f_200-  , c256_f_201-  , c256_f_202-  , c256_f_203-  , c256_f_204-  , c256_f_205-  , c256_f_206-  , c256_f_207-  , c256_f_208-  , c256_f_209-  , c256_f_210-  , c256_f_211-  , c256_f_212-  , c256_f_213-  , c256_f_214-  , c256_f_215-  , c256_f_216-  , c256_f_217-  , c256_f_218-  , c256_f_219-  , c256_f_220-  , c256_f_221-  , c256_f_222-  , c256_f_223-  , c256_f_224-  , c256_f_225-  , c256_f_226-  , c256_f_227-  , c256_f_228-  , c256_f_229-  , c256_f_230-  , c256_f_231-  , c256_f_232-  , c256_f_233-  , c256_f_234-  , c256_f_235-  , c256_f_236-  , c256_f_237-  , c256_f_238-  , c256_f_239-  , c256_f_240-  , c256_f_241-  , c256_f_242-  , c256_f_243-  , c256_f_244-  , c256_f_245-  , c256_f_246-  , c256_f_247-  , c256_f_248-  , c256_f_249-  , c256_f_250-  , c256_f_251-  , c256_f_252-  , c256_f_253-  , c256_f_254-  , c256_f_255--  -- ** 256 color background colors--   -- | The color names assume a palette similar to the default one-   -- that xterm uses.-  , c256_b_default-  , c256_b_0-  , c256_b_black-  , c256_b_1-  , c256_b_red-  , c256_b_2-  , c256_b_green-  , c256_b_3-  , c256_b_yellow-  , c256_b_4-  , c256_b_blue-  , c256_b_5-  , c256_b_magenta-  , c256_b_6-  , c256_b_cyan-  , c256_b_7-  , c256_b_white-  , c256_b_8-  , c256_b_grey-  , c256_b_9-  , c256_b_red_bright-  , c256_b_10-  , c256_b_green_bright-  , c256_b_11-  , c256_b_yellow_bright-  , c256_b_12-  , c256_b_blue_bright-  , c256_b_13-  , c256_b_magenta_bright-  , c256_b_14-  , c256_b_cyan_bright-  , c256_b_15-  , c256_b_white_bright-  , c256_b_16-  , c256_b_17-  , c256_b_18-  , c256_b_19-  , c256_b_20-  , c256_b_21-  , c256_b_22-  , c256_b_23-  , c256_b_24-  , c256_b_25-  , c256_b_26-  , c256_b_27-  , c256_b_28-  , c256_b_29-  , c256_b_30-  , c256_b_31-  , c256_b_32-  , c256_b_33-  , c256_b_34-  , c256_b_35-  , c256_b_36-  , c256_b_37-  , c256_b_38-  , c256_b_39-  , c256_b_40-  , c256_b_41-  , c256_b_42-  , c256_b_43-  , c256_b_44-  , c256_b_45-  , c256_b_46-  , c256_b_47-  , c256_b_48-  , c256_b_49-  , c256_b_50-  , c256_b_51-  , c256_b_52-  , c256_b_53-  , c256_b_54-  , c256_b_55-  , c256_b_56-  , c256_b_57-  , c256_b_58-  , c256_b_59-  , c256_b_60-  , c256_b_61-  , c256_b_62-  , c256_b_63-  , c256_b_64-  , c256_b_65-  , c256_b_66-  , c256_b_67-  , c256_b_68-  , c256_b_69-  , c256_b_70-  , c256_b_71-  , c256_b_72-  , c256_b_73-  , c256_b_74-  , c256_b_75-  , c256_b_76-  , c256_b_77-  , c256_b_78-  , c256_b_79-  , c256_b_80-  , c256_b_81-  , c256_b_82-  , c256_b_83-  , c256_b_84-  , c256_b_85-  , c256_b_86-  , c256_b_87-  , c256_b_88-  , c256_b_89-  , c256_b_90-  , c256_b_91-  , c256_b_92-  , c256_b_93-  , c256_b_94-  , c256_b_95-  , c256_b_96-  , c256_b_97-  , c256_b_98-  , c256_b_99-  , c256_b_100-  , c256_b_101-  , c256_b_102-  , c256_b_103-  , c256_b_104-  , c256_b_105-  , c256_b_106-  , c256_b_107-  , c256_b_108-  , c256_b_109-  , c256_b_110-  , c256_b_111-  , c256_b_112-  , c256_b_113-  , c256_b_114-  , c256_b_115-  , c256_b_116-  , c256_b_117-  , c256_b_118-  , c256_b_119-  , c256_b_120-  , c256_b_121-  , c256_b_122-  , c256_b_123-  , c256_b_124-  , c256_b_125-  , c256_b_126-  , c256_b_127-  , c256_b_128-  , c256_b_129-  , c256_b_130-  , c256_b_131-  , c256_b_132-  , c256_b_133-  , c256_b_134-  , c256_b_135-  , c256_b_136-  , c256_b_137-  , c256_b_138-  , c256_b_139-  , c256_b_140-  , c256_b_141-  , c256_b_142-  , c256_b_143-  , c256_b_144-  , c256_b_145-  , c256_b_146-  , c256_b_147-  , c256_b_148-  , c256_b_149-  , c256_b_150-  , c256_b_151-  , c256_b_152-  , c256_b_153-  , c256_b_154-  , c256_b_155-  , c256_b_156-  , c256_b_157-  , c256_b_158-  , c256_b_159-  , c256_b_160-  , c256_b_161-  , c256_b_162-  , c256_b_163-  , c256_b_164-  , c256_b_165-  , c256_b_166-  , c256_b_167-  , c256_b_168-  , c256_b_169-  , c256_b_170-  , c256_b_171-  , c256_b_172-  , c256_b_173-  , c256_b_174-  , c256_b_175-  , c256_b_176-  , c256_b_177-  , c256_b_178-  , c256_b_179-  , c256_b_180-  , c256_b_181-  , c256_b_182-  , c256_b_183-  , c256_b_184-  , c256_b_185-  , c256_b_186-  , c256_b_187-  , c256_b_188-  , c256_b_189-  , c256_b_190-  , c256_b_191-  , c256_b_192-  , c256_b_193-  , c256_b_194-  , c256_b_195-  , c256_b_196-  , c256_b_197-  , c256_b_198-  , c256_b_199-  , c256_b_200-  , c256_b_201-  , c256_b_202-  , c256_b_203-  , c256_b_204-  , c256_b_205-  , c256_b_206-  , c256_b_207-  , c256_b_208-  , c256_b_209-  , c256_b_210-  , c256_b_211-  , c256_b_212-  , c256_b_213-  , c256_b_214-  , c256_b_215-  , c256_b_216-  , c256_b_217-  , c256_b_218-  , c256_b_219-  , c256_b_220-  , c256_b_221-  , c256_b_222-  , c256_b_223-  , c256_b_224-  , c256_b_225-  , c256_b_226-  , c256_b_227-  , c256_b_228-  , c256_b_229-  , c256_b_230-  , c256_b_231-  , c256_b_232-  , c256_b_233-  , c256_b_234-  , c256_b_235-  , c256_b_236-  , c256_b_237-  , c256_b_238-  , c256_b_239-  , c256_b_240-  , c256_b_241-  , c256_b_242-  , c256_b_243-  , c256_b_244-  , c256_b_245-  , c256_b_246-  , c256_b_247-  , c256_b_248-  , c256_b_249-  , c256_b_250-  , c256_b_251-  , c256_b_252-  , c256_b_253-  , c256_b_254-  , c256_b_255--  -- * Re-exports-  , Monoid(..)-  , (<>)-  , Str.IsString(..)---  -- * Create your own colors--  -- * Style, TextSpec, and Chunk innards--  -- | A style is a bundle of attributes that describes text-  -- attributes, such as its color and whether it is bold.-  ---  -- Ordinarily you shouldn't need to use these types but they are-  -- here in case they are useful; in particular, you can use them to-  -- examine a Chunk's TextSpec to see what its characteristics are.-  , StyleCommon(..)-  , Style8(..)-  , Style256(..)--  , TextSpec (..)--  -- * Basement--  -- | Ordinarily you will not need the things down here. Instead, the-  -- definitions above will give you a 'Chunk' that will-  -- create the effect or color you need.--  -- ** Wrappers for colors--  -- | Definitions are provided above that give you every possible-  -- color; however, these constructors are exported in case you want-  -- to make your own colors instead. Use at your own risk, as you can-  -- create non-sensical colors with this (such as 256-color colors in-  -- a 'Background8'.)-  , Background8-  , Background256-  , Foreground8-  , Foreground256--  ) where----- # Imports--import qualified Data.String as Str-import Data.Monoid-import Data.Text (Text)-import Data.Maybe (fromMaybe)-import qualified Data.Text as X-import qualified System.Console.Terminfo as T-import System.IO as IO-import System.Environment as Env------- Terminal definitions------- | Which terminal definition to use.-data Term-  = Dumb-  -- ^ Using this terminal should always succeed. This suppresses all-  -- colors. Uesful if output is not going to a TTY, or if you just do-  -- not like colors.--  | TermName String-  -- ^ Use the terminal with this given name. You might get this from-  -- the TERM environment variable, or set it explicitly. A runtime-  -- error will result if the terminfo database does not have a-  -- definition for this terminal. If this terminal supports 256-  -- colors, then 256 colors are used. If this terminal supports less-  -- than 256 colors, but at least 8 colors, then 8 colors are-  -- used. Otherwise, no colors are used.-  deriving (Eq, Show)---- | Gets the terminal definition from the environment. If the--- environment does not have a TERM veriable, use 'Dumb'.-termFromEnv :: IO Term-termFromEnv = do-  t <- fmap (lookup "TERM") Env.getEnvironment-  return $ maybe Dumb TermName t---- | Gets the terminal definition from the environment. If the first--- argument is True, the terminal is always obtained from the--- environment. If it is False, the terminal is only obtained from the--- environment if the given handle is not a terminal; otherwise, Dumb--- is returned.-smartTermFromEnv-  :: Bool-  -- ^ Use True if the user always wants to see colors, even if-  -- standard output is not a terminal. Otherwise, use False.--  -> IO.Handle-  -- ^ Check this handle to see if it is a terminal (typically you-  -- will use stdout).--  -> IO Term-smartTermFromEnv alwaysColor h =-  if alwaysColor-  then termFromEnv-  else do-        isTerm <- IO.hIsTerminalDevice h-        if isTerm-          then termFromEnv-          else return Dumb---- For Background8, Background256, Foreground8, Foreground256: the--- Last wraps a Maybe (Terminfo Color). If the inner Maybe is Nothing,--- use the default color.--type Background8 = Last (Maybe T.Color)-type Background256 = Last (Maybe T.Color)-type Foreground8 = Last (Maybe T.Color)-type Foreground256 = Last (Maybe T.Color)------- Styles------- | Style elements that apply in both 8 and 256 color--- terminals. However, the elements are described separately for 8 and--- 256 color terminals, so that the text appearance can change--- depending on how many colors a terminal has.-data StyleCommon = StyleCommon-  { scBold :: Last Bool-  , scUnderline :: Last Bool-  , scFlash :: Last Bool-  , scInverse :: Last Bool-  } deriving (Show, Eq, Ord)---instance Monoid StyleCommon where-  mempty = StyleCommon (Last Nothing) (Last Nothing)-                       (Last Nothing) (Last Nothing)-  mappend (StyleCommon b1 u1 f1 i1) (StyleCommon b2 u2 f2 i2)-    = StyleCommon (b1 <> b2) (u1 <> u2) (f1 <> f2) (i1 <> i2)---- | Describes text appearance (foreground and background colors, as--- well as other attributes such as bold) for an 8 color terminal.-data Style8 = Style8-  { foreground8 :: Foreground8-  , background8 :: Background8-  , common8 :: StyleCommon-  } deriving (Show, Eq, Ord)---instance Monoid Style8 where-  mappend (Style8 fx bx cx) (Style8 fy by cy)-    = Style8 (fx <> fy) (bx <> by) (cx <> cy)-  mempty = Style8 mempty mempty mempty---- | Describes text appearance (foreground and background colors, as--- well as other attributes such as bold) for a 256 color terminal.-data Style256 = Style256-  { foreground256 :: Foreground256-  , background256 :: Background256-  , common256 :: StyleCommon-  } deriving (Show, Eq, Ord)---instance Monoid Style256 where-  mappend (Style256 fx bx cx) (Style256 fy by cy)-    = Style256 (fx <> fy) (bx <> by) (cx <> cy)-  mempty = Style256 mempty mempty mempty------- TextSpec------- | The TextSpec bundles together the styles for the 8 and 256 color--- terminals, so that the text can be portrayed on any terminal.-data TextSpec = TextSpec-  { style8 :: Style8-  , style256 :: Style256-  } deriving (Show, Eq, Ord)---instance Monoid TextSpec where-  mappend (TextSpec x1 x2) (TextSpec y1 y2)-    = TextSpec (x1 <> y1) (x2 <> y2)-  mempty = TextSpec mempty mempty------- Chunks------- | A chunk is some textual data coupled with a description of what--- color the text is, attributes like whether it is bold or--- underlined, etc. The chunk knows what foreground and background--- colors and what attributes to use for both an 8 color terminal and--- a 256 color terminal.--data Chunk = Chunk-  { textSpec :: TextSpec-  , text :: Text-  } deriving (Eq, Show, Ord)---instance Str.IsString Chunk where-  fromString s = Chunk mempty (X.pack s)--instance Monoid Chunk where-  mempty = Chunk mempty mempty-  mappend (Chunk s1 t1) (Chunk s2 t2) = Chunk (s1 <> s2) (t1 <> t2)---defaultColors :: T.Terminal -> T.TermOutput-defaultColors term =-  fromMaybe mempty (T.getCapability term T.restoreDefaultColors)---commonAttrs :: T.Terminal -> StyleCommon -> T.TermOutput-commonAttrs t s =-  let a = T.Attributes-        { T.standoutAttr = False-        , T.underlineAttr = fromMaybe False-          . getLast . scUnderline $ s-        , T.reverseAttr = fromMaybe False-          . getLast . scInverse $ s-        , T.blinkAttr = fromMaybe False-          . getLast . scFlash $ s-        , T.dimAttr = False-        , T.boldAttr = fromMaybe False-          . getLast . scBold $ s-        , T.invisibleAttr = False-        , T.protectedAttr = False-        }-  in case T.getCapability t (T.setAttributes) of-      Nothing -> error $ "System.Console.Rainbow: commonAttrs: "-                 ++ "capability failed; should never happen"-      Just f -> f a----- | Gets the right set of terminal codes to apply the desired--- highlighting, bold, underlining, etc. Be sure to apply the--- attributes first (bold, underlining, etc) and then the--- colors. Setting the colors first and then the attributes seems to--- reset the colors, giving blank output.-getTermCodes-  :: T.Terminal-  -> TextSpec-  -> T.TermOutput-getTermCodes t ts = fromMaybe mempty $ do-  cols <- T.getCapability t T.termColors-  let TextSpec s8 s256 = ts-      Style8 f8 b8 c8 = s8-      Style256 f256 b256 c256 = s256-  setFg <- T.getCapability t T.setForegroundColor-  setBg <- T.getCapability t T.setBackgroundColor-  (fg, bg, cm) <- case () of-    _ | cols >= 256 -> Just $ ( getLast f256-                              , getLast b256-                              , c256)-      | cols >= 8 -> Just ( getLast f8-                         , getLast b8-                         , c8)-      | otherwise -> Nothing-  let oFg = maybe mempty (maybe mempty setFg) fg-      oBg = maybe mempty (maybe mempty setBg) bg-      oCm = commonAttrs t cm-  return $ mconcat [oCm, oFg, oBg]---hPrintChunk :: IO.Handle -> T.Terminal -> Chunk -> IO ()-hPrintChunk h t (Chunk ts x) =-  T.hRunTermOutput h t-  . mconcat-  $ [defaultColors t, codes, txt]-  where-    codes = getTermCodes t ts-    txt = T.termText . X.unpack $ x---- | Sends a list of chunks to the given handle for printing. Sets up--- the terminal (this only needs to be done once.) Lazily processes--- the list of Chunk. See 'putChunks' for notes on how many colors--- are used.-hPutChunks :: IO.Handle -> Term -> [Chunk] -> IO ()-hPutChunks h t cs = do-  let setup = case t of-        Dumb -> T.setupTerm "dumb"-        TermName s -> T.setupTerm s-  term <- setup-  mapM_ (hPrintChunk h term) cs-  T.hRunTermOutput h term (defaultColors term)-  T.hRunTermOutput h term-    $ case T.getCapability term T.allAttributesOff of-        Nothing -> error $ "System.Console.Rainbow.putChunks: error: "-                   ++ "allAttributesOff failed"-        Just s -> s---- | Sends a list of chunks to standard output for printing. Sets up--- the terminal (this only needs to be done once.) Lazily processes--- the list of Chunk.------ Which colors are used depends upon the 'Term'. If it is 'Dumb',--- then no colors are used on output. If the 'Term' is specified with--- 'TermName', the UNIX terminfo library is used to determine how many--- colors the terminal supports. If it supports at least 256 colors,--- then 256 colors are used. If it supports at least 8 colors but less--- than 256 colors, then 256 colors are used. Otherwise, no colors are--- used. A runtime error will occur if the 'TermName' is not found in--- the system terminal database.-putChunks :: Term -> [Chunk] -> IO ()-putChunks = hPutChunks IO.stdout---- | Print one chunk at a time, to a handle-hPutChunk :: IO.Handle -> Chunk -> IO ()-hPutChunk h c = do-  t <- termFromEnv-  hPutChunks h t [c]---- | Print one chunk at a time, to standard output-putChunk :: Chunk -> IO ()-putChunk = hPutChunk IO.stdout---- | Print one chunk at a time, to a handle, append a newline-hPutChunkLn :: IO.Handle -> Chunk -> IO ()-hPutChunkLn h c = hPutChunk h c >> IO.hPutStr h "\n"---- | Print one chunk at a time, to standard output, append a newline-putChunkLn :: Chunk -> IO ()-putChunkLn c = putChunk c >> putStr "\n"--bold8 :: Chunk-bold8 = x {-  textSpec = (textSpec x) {-    style8 = (style8 (textSpec x)) {-      common8 = (common8 (style8 (textSpec x))) {-        scBold = Last (Just True) }}}}-  where-    x = mempty--bold8off :: Chunk-bold8off = x {-  textSpec = (textSpec x) {-    style8 = (style8 (textSpec x)) {-      common8 = (common8 (style8 (textSpec x))) {-        scBold = Last (Just False) }}}}-  where-    x = mempty---underline8 :: Chunk-underline8 = x {-  textSpec = (textSpec x) {-    style8 = (style8 (textSpec x)) {-      common8 = (common8 (style8 (textSpec x))) {-        scUnderline = Last (Just True) }}}}-  where-    x = mempty---underline8off :: Chunk-underline8off = x {-  textSpec = (textSpec x) {-    style8 = (style8 (textSpec x)) {-      common8 = (common8 (style8 (textSpec x))) {-        scUnderline = Last (Just False) }}}}-  where-    x = mempty--flash8 :: Chunk-flash8 = x {-  textSpec = (textSpec x) {-    style8 = (style8 (textSpec x)) {-      common8 = (common8 (style8 (textSpec x))) {-        scFlash = Last (Just True) }}}}-  where-    x = mempty--flash8off :: Chunk-flash8off = x {-  textSpec = (textSpec x) {-    style8 = (style8 (textSpec x)) {-      common8 = (common8 (style8 (textSpec x))) {-        scFlash = Last (Just False) }}}}-  where-    x = mempty---inverse8 :: Chunk-inverse8 = x {-  textSpec = (textSpec x) {-    style8 = (style8 (textSpec x)) {-      common8 = (common8 (style8 (textSpec x))) {-        scInverse = Last (Just True) }}}}-  where-    x = mempty--inverse8off :: Chunk-inverse8off = x {-  textSpec = (textSpec x) {-    style8 = (style8 (textSpec x)) {-      common8 = (common8 (style8 (textSpec x))) {-        scInverse = Last (Just False) }}}}-  where-    x = mempty---underline256 :: Chunk-underline256 = x {-  textSpec = (textSpec x) {-    style256 = (style256 (textSpec x)) {-      common256 = (common256 (style256 (textSpec x))) {-        scUnderline = Last (Just True) }}}}-  where-    x = mempty---underline256off :: Chunk-underline256off = x {-  textSpec = (textSpec x) {-    style256 = (style256 (textSpec x)) {-      common256 = (common256 (style256 (textSpec x))) {-        scUnderline = Last (Just False) }}}}-  where-    x = mempty--bold256 :: Chunk-bold256 = x {-  textSpec = (textSpec x) {-    style256 = (style256 (textSpec x)) {-      common256 = (common256 (style256 (textSpec x))) {-        scBold = Last (Just True) }}}}-  where-    x = mempty--bold256off :: Chunk-bold256off = x {-  textSpec = (textSpec x) {-    style256 = (style256 (textSpec x)) {-      common256 = (common256 (style256 (textSpec x))) {-        scBold = Last (Just False) }}}}-  where-    x = mempty---inverse256 :: Chunk-inverse256 = x {-  textSpec = (textSpec x) {-    style256 = (style256 (textSpec x)) {-      common256 = (common256 (style256 (textSpec x))) {-        scInverse = Last (Just True) }}}}-  where-    x = mempty--inverse256off :: Chunk-inverse256off = x {-  textSpec = (textSpec x) {-    style256 = (style256 (textSpec x)) {-      common256 = (common256 (style256 (textSpec x))) {-        scInverse = Last (Just False) }}}}-  where-    x = mempty---flash256 :: Chunk-flash256 = x {-  textSpec = (textSpec x) {-    style256 = (style256 (textSpec x)) {-      common256 = (common256 (style256 (textSpec x))) {-        scFlash = Last (Just True) }}}}-  where-    x = mempty---flash256off :: Chunk-flash256off = x {-  textSpec = (textSpec x) {-    style256 = (style256 (textSpec x)) {-      common256 = (common256 (style256 (textSpec x))) {-        scFlash = Last (Just False) }}}}-  where-    x = mempty-------- All-------- | Bold. What actually happens when you use Bold is going to depend--- on your terminal. For example, xterm allows you actually use a bold--- font for bold, if you have one. Otherwise, it might simulate bold--- by using overstriking. Another possibility is that your terminal--- might use a different color to indicate bold. For more details (at--- least for xterm), look at xterm (1) and search for @boldColors@.------ If your terminal uses a different color for bold, this allows an--- 8-color terminal to really have 16 colors.-bold :: Chunk-bold = bold8 <> bold256--boldOff :: Chunk-boldOff = bold8off <> bold256off--inverse :: Chunk-inverse = inverse8 <> inverse256--inverseOff :: Chunk-inverseOff = inverse8off <> inverse256off--flash :: Chunk-flash = flash8 <> flash256--flashOff :: Chunk-flashOff = flash8off <> flash256off--underline :: Chunk-underline = underline8 <> underline256--underlineOff :: Chunk-underlineOff = underline8off <> underline256off--f_default :: Chunk-f_default = c8_f_default <> c256_f_default--f_black :: Chunk-f_black = c8_f_black <> c256_f_black--f_red :: Chunk-f_red = c8_f_red <> c256_f_red--f_green :: Chunk-f_green = c8_f_green <> c256_f_green--f_yellow :: Chunk-f_yellow = c8_f_yellow <> c256_f_yellow--f_blue :: Chunk-f_blue = c8_f_blue <> c256_f_blue--f_magenta :: Chunk-f_magenta = c8_f_magenta <> c256_f_magenta--f_cyan :: Chunk-f_cyan = c8_f_cyan <> c256_f_cyan--f_white :: Chunk-f_white = c8_f_white <> c256_f_white--b_default :: Chunk-b_default = c8_b_default <> c256_b_default--b_black :: Chunk-b_black = c8_b_black <> c256_b_black--b_red :: Chunk-b_red = c8_b_red <> c256_b_red--b_green :: Chunk-b_green = c8_b_green <> c256_b_green--b_yellow :: Chunk-b_yellow = c8_b_yellow <> c256_b_yellow--b_blue :: Chunk-b_blue = c8_b_blue <> c256_b_blue--b_magenta :: Chunk-b_magenta = c8_b_magenta <> c256_b_magenta--b_cyan :: Chunk-b_cyan = c8_b_cyan <> c256_b_cyan--b_white :: Chunk-b_white = c8_b_white <> c256_b_white-------- Color basement-----fc8 :: Maybe T.Color -> Chunk-fc8 c = x { textSpec = (textSpec x) {-  style8 = (style8 (textSpec x)) {-    foreground8 = Last (Just c) }}}-  where-    x = mempty--c8_f_default :: Chunk-c8_f_default = fc8 Nothing---c8_f_black :: Chunk-c8_f_black = fc8 (Just T.Black)--c8_f_red :: Chunk-c8_f_red = fc8 (Just T.Red)--c8_f_green :: Chunk-c8_f_green = fc8 (Just T.Green)--c8_f_yellow :: Chunk-c8_f_yellow = fc8 (Just T.Yellow)--c8_f_blue :: Chunk-c8_f_blue = fc8 (Just T.Blue)--c8_f_magenta :: Chunk-c8_f_magenta = fc8 (Just T.Magenta)--c8_f_cyan :: Chunk-c8_f_cyan = fc8 (Just T.Cyan)--c8_f_white :: Chunk-c8_f_white = fc8 (Just T.White)---bc8 :: Maybe T.Color -> Chunk-bc8 c = x { textSpec = (textSpec x) {-  style8 = (style8 (textSpec x)) {-    background8 = Last (Just c) }}}-  where-    x = mempty--c8_b_default :: Chunk-c8_b_default = bc8 Nothing--c8_b_black :: Chunk-c8_b_black = bc8 (Just T.Black)--c8_b_red :: Chunk-c8_b_red = bc8 (Just T.Red)--c8_b_green :: Chunk-c8_b_green = bc8 (Just T.Green)--c8_b_yellow :: Chunk-c8_b_yellow = bc8 (Just T.Yellow)--c8_b_blue :: Chunk-c8_b_blue = bc8 (Just T.Blue)--c8_b_magenta :: Chunk-c8_b_magenta = bc8 (Just T.Magenta)--c8_b_cyan :: Chunk-c8_b_cyan = bc8 (Just T.Cyan)--c8_b_white :: Chunk-c8_b_white = bc8 (Just T.White)--fc256 :: Maybe T.Color -> Chunk-fc256 c = x { textSpec = (textSpec x) {-  style256 = (style256 (textSpec x)) {-    foreground256 = Last (Just c) }}}-  where-    x = mempty--c256_f_default :: Chunk-c256_f_default = fc256 Nothing---c256_f_0 :: Chunk-c256_f_0 = fc256 (Just (T.ColorNumber 0))--c256_f_black :: Chunk-c256_f_black = fc256 (Just (T.ColorNumber 0))--c256_f_1 :: Chunk-c256_f_1 = fc256 (Just (T.ColorNumber 1))--c256_f_red :: Chunk-c256_f_red = fc256 (Just (T.ColorNumber 1))--c256_f_2 :: Chunk-c256_f_2 = fc256 (Just (T.ColorNumber 2))--c256_f_green :: Chunk-c256_f_green = fc256 (Just (T.ColorNumber 2))--c256_f_3 :: Chunk-c256_f_3 = fc256 (Just (T.ColorNumber 3))--c256_f_yellow :: Chunk-c256_f_yellow = fc256 (Just (T.ColorNumber 3))--c256_f_4 :: Chunk-c256_f_4 = fc256 (Just (T.ColorNumber 4))--c256_f_blue :: Chunk-c256_f_blue = fc256 (Just (T.ColorNumber 4))--c256_f_5 :: Chunk-c256_f_5 = fc256 (Just (T.ColorNumber 5))--c256_f_magenta :: Chunk-c256_f_magenta = fc256 (Just (T.ColorNumber 5))--c256_f_6 :: Chunk-c256_f_6 = fc256 (Just (T.ColorNumber 6))--c256_f_cyan :: Chunk-c256_f_cyan = fc256 (Just (T.ColorNumber 6))--c256_f_7 :: Chunk-c256_f_7 = fc256 (Just (T.ColorNumber 7))--c256_f_white :: Chunk-c256_f_white = fc256 (Just (T.ColorNumber 7))--c256_f_8 :: Chunk-c256_f_8 = fc256 (Just (T.ColorNumber 8))--c256_f_grey :: Chunk-c256_f_grey = fc256 (Just (T.ColorNumber 8))--c256_f_9 :: Chunk-c256_f_9 = fc256 (Just (T.ColorNumber 9))--c256_f_red_bright :: Chunk-c256_f_red_bright = fc256 (Just (T.ColorNumber 9))--c256_f_10 :: Chunk-c256_f_10 = fc256 (Just (T.ColorNumber 10))--c256_f_green_bright :: Chunk-c256_f_green_bright = fc256 (Just (T.ColorNumber 10))--c256_f_11 :: Chunk-c256_f_11 = fc256 (Just (T.ColorNumber 11))--c256_f_yellow_bright :: Chunk-c256_f_yellow_bright = fc256 (Just (T.ColorNumber 11))--c256_f_12 :: Chunk-c256_f_12 = fc256 (Just (T.ColorNumber 12))--c256_f_blue_bright :: Chunk-c256_f_blue_bright = fc256 (Just (T.ColorNumber 12))--c256_f_13 :: Chunk-c256_f_13 = fc256 (Just (T.ColorNumber 13))--c256_f_magenta_bright :: Chunk-c256_f_magenta_bright = fc256 (Just (T.ColorNumber 13))--c256_f_14 :: Chunk-c256_f_14 = fc256 (Just (T.ColorNumber 14))--c256_f_cyan_bright :: Chunk-c256_f_cyan_bright = fc256 (Just (T.ColorNumber 14))--c256_f_15 :: Chunk-c256_f_15 = fc256 (Just (T.ColorNumber 15))--c256_f_white_bright :: Chunk-c256_f_white_bright = fc256 (Just (T.ColorNumber 15))--c256_f_16 :: Chunk-c256_f_16 = fc256 (Just (T.ColorNumber 16))--c256_f_17 :: Chunk-c256_f_17 = fc256 (Just (T.ColorNumber 17))--c256_f_18 :: Chunk-c256_f_18 = fc256 (Just (T.ColorNumber 18))--c256_f_19 :: Chunk-c256_f_19 = fc256 (Just (T.ColorNumber 19))--c256_f_20 :: Chunk-c256_f_20 = fc256 (Just (T.ColorNumber 20))--c256_f_21 :: Chunk-c256_f_21 = fc256 (Just (T.ColorNumber 21))--c256_f_22 :: Chunk-c256_f_22 = fc256 (Just (T.ColorNumber 22))--c256_f_23 :: Chunk-c256_f_23 = fc256 (Just (T.ColorNumber 23))--c256_f_24 :: Chunk-c256_f_24 = fc256 (Just (T.ColorNumber 24))--c256_f_25 :: Chunk-c256_f_25 = fc256 (Just (T.ColorNumber 25))--c256_f_26 :: Chunk-c256_f_26 = fc256 (Just (T.ColorNumber 26))--c256_f_27 :: Chunk-c256_f_27 = fc256 (Just (T.ColorNumber 27))--c256_f_28 :: Chunk-c256_f_28 = fc256 (Just (T.ColorNumber 28))--c256_f_29 :: Chunk-c256_f_29 = fc256 (Just (T.ColorNumber 29))--c256_f_30 :: Chunk-c256_f_30 = fc256 (Just (T.ColorNumber 30))--c256_f_31 :: Chunk-c256_f_31 = fc256 (Just (T.ColorNumber 31))--c256_f_32 :: Chunk-c256_f_32 = fc256 (Just (T.ColorNumber 32))--c256_f_33 :: Chunk-c256_f_33 = fc256 (Just (T.ColorNumber 33))--c256_f_34 :: Chunk-c256_f_34 = fc256 (Just (T.ColorNumber 34))--c256_f_35 :: Chunk-c256_f_35 = fc256 (Just (T.ColorNumber 35))--c256_f_36 :: Chunk-c256_f_36 = fc256 (Just (T.ColorNumber 36))--c256_f_37 :: Chunk-c256_f_37 = fc256 (Just (T.ColorNumber 37))--c256_f_38 :: Chunk-c256_f_38 = fc256 (Just (T.ColorNumber 38))--c256_f_39 :: Chunk-c256_f_39 = fc256 (Just (T.ColorNumber 39))--c256_f_40 :: Chunk-c256_f_40 = fc256 (Just (T.ColorNumber 40))--c256_f_41 :: Chunk-c256_f_41 = fc256 (Just (T.ColorNumber 41))--c256_f_42 :: Chunk-c256_f_42 = fc256 (Just (T.ColorNumber 42))--c256_f_43 :: Chunk-c256_f_43 = fc256 (Just (T.ColorNumber 43))--c256_f_44 :: Chunk-c256_f_44 = fc256 (Just (T.ColorNumber 44))--c256_f_45 :: Chunk-c256_f_45 = fc256 (Just (T.ColorNumber 45))--c256_f_46 :: Chunk-c256_f_46 = fc256 (Just (T.ColorNumber 46))--c256_f_47 :: Chunk-c256_f_47 = fc256 (Just (T.ColorNumber 47))--c256_f_48 :: Chunk-c256_f_48 = fc256 (Just (T.ColorNumber 48))--c256_f_49 :: Chunk-c256_f_49 = fc256 (Just (T.ColorNumber 49))--c256_f_50 :: Chunk-c256_f_50 = fc256 (Just (T.ColorNumber 50))--c256_f_51 :: Chunk-c256_f_51 = fc256 (Just (T.ColorNumber 51))--c256_f_52 :: Chunk-c256_f_52 = fc256 (Just (T.ColorNumber 52))--c256_f_53 :: Chunk-c256_f_53 = fc256 (Just (T.ColorNumber 53))--c256_f_54 :: Chunk-c256_f_54 = fc256 (Just (T.ColorNumber 54))--c256_f_55 :: Chunk-c256_f_55 = fc256 (Just (T.ColorNumber 55))--c256_f_56 :: Chunk-c256_f_56 = fc256 (Just (T.ColorNumber 56))--c256_f_57 :: Chunk-c256_f_57 = fc256 (Just (T.ColorNumber 57))--c256_f_58 :: Chunk-c256_f_58 = fc256 (Just (T.ColorNumber 58))--c256_f_59 :: Chunk-c256_f_59 = fc256 (Just (T.ColorNumber 59))--c256_f_60 :: Chunk-c256_f_60 = fc256 (Just (T.ColorNumber 60))--c256_f_61 :: Chunk-c256_f_61 = fc256 (Just (T.ColorNumber 61))--c256_f_62 :: Chunk-c256_f_62 = fc256 (Just (T.ColorNumber 62))--c256_f_63 :: Chunk-c256_f_63 = fc256 (Just (T.ColorNumber 63))--c256_f_64 :: Chunk-c256_f_64 = fc256 (Just (T.ColorNumber 64))--c256_f_65 :: Chunk-c256_f_65 = fc256 (Just (T.ColorNumber 65))--c256_f_66 :: Chunk-c256_f_66 = fc256 (Just (T.ColorNumber 66))--c256_f_67 :: Chunk-c256_f_67 = fc256 (Just (T.ColorNumber 67))--c256_f_68 :: Chunk-c256_f_68 = fc256 (Just (T.ColorNumber 68))--c256_f_69 :: Chunk-c256_f_69 = fc256 (Just (T.ColorNumber 69))--c256_f_70 :: Chunk-c256_f_70 = fc256 (Just (T.ColorNumber 70))--c256_f_71 :: Chunk-c256_f_71 = fc256 (Just (T.ColorNumber 71))--c256_f_72 :: Chunk-c256_f_72 = fc256 (Just (T.ColorNumber 72))--c256_f_73 :: Chunk-c256_f_73 = fc256 (Just (T.ColorNumber 73))--c256_f_74 :: Chunk-c256_f_74 = fc256 (Just (T.ColorNumber 74))--c256_f_75 :: Chunk-c256_f_75 = fc256 (Just (T.ColorNumber 75))--c256_f_76 :: Chunk-c256_f_76 = fc256 (Just (T.ColorNumber 76))--c256_f_77 :: Chunk-c256_f_77 = fc256 (Just (T.ColorNumber 77))--c256_f_78 :: Chunk-c256_f_78 = fc256 (Just (T.ColorNumber 78))--c256_f_79 :: Chunk-c256_f_79 = fc256 (Just (T.ColorNumber 79))--c256_f_80 :: Chunk-c256_f_80 = fc256 (Just (T.ColorNumber 80))--c256_f_81 :: Chunk-c256_f_81 = fc256 (Just (T.ColorNumber 81))--c256_f_82 :: Chunk-c256_f_82 = fc256 (Just (T.ColorNumber 82))--c256_f_83 :: Chunk-c256_f_83 = fc256 (Just (T.ColorNumber 83))--c256_f_84 :: Chunk-c256_f_84 = fc256 (Just (T.ColorNumber 84))--c256_f_85 :: Chunk-c256_f_85 = fc256 (Just (T.ColorNumber 85))--c256_f_86 :: Chunk-c256_f_86 = fc256 (Just (T.ColorNumber 86))--c256_f_87 :: Chunk-c256_f_87 = fc256 (Just (T.ColorNumber 87))--c256_f_88 :: Chunk-c256_f_88 = fc256 (Just (T.ColorNumber 88))--c256_f_89 :: Chunk-c256_f_89 = fc256 (Just (T.ColorNumber 89))--c256_f_90 :: Chunk-c256_f_90 = fc256 (Just (T.ColorNumber 90))--c256_f_91 :: Chunk-c256_f_91 = fc256 (Just (T.ColorNumber 91))--c256_f_92 :: Chunk-c256_f_92 = fc256 (Just (T.ColorNumber 92))--c256_f_93 :: Chunk-c256_f_93 = fc256 (Just (T.ColorNumber 93))--c256_f_94 :: Chunk-c256_f_94 = fc256 (Just (T.ColorNumber 94))--c256_f_95 :: Chunk-c256_f_95 = fc256 (Just (T.ColorNumber 95))--c256_f_96 :: Chunk-c256_f_96 = fc256 (Just (T.ColorNumber 96))--c256_f_97 :: Chunk-c256_f_97 = fc256 (Just (T.ColorNumber 97))--c256_f_98 :: Chunk-c256_f_98 = fc256 (Just (T.ColorNumber 98))--c256_f_99 :: Chunk-c256_f_99 = fc256 (Just (T.ColorNumber 99))--c256_f_100 :: Chunk-c256_f_100 = fc256 (Just (T.ColorNumber 100))--c256_f_101 :: Chunk-c256_f_101 = fc256 (Just (T.ColorNumber 101))--c256_f_102 :: Chunk-c256_f_102 = fc256 (Just (T.ColorNumber 102))--c256_f_103 :: Chunk-c256_f_103 = fc256 (Just (T.ColorNumber 103))--c256_f_104 :: Chunk-c256_f_104 = fc256 (Just (T.ColorNumber 104))--c256_f_105 :: Chunk-c256_f_105 = fc256 (Just (T.ColorNumber 105))--c256_f_106 :: Chunk-c256_f_106 = fc256 (Just (T.ColorNumber 106))--c256_f_107 :: Chunk-c256_f_107 = fc256 (Just (T.ColorNumber 107))--c256_f_108 :: Chunk-c256_f_108 = fc256 (Just (T.ColorNumber 108))--c256_f_109 :: Chunk-c256_f_109 = fc256 (Just (T.ColorNumber 109))--c256_f_110 :: Chunk-c256_f_110 = fc256 (Just (T.ColorNumber 110))--c256_f_111 :: Chunk-c256_f_111 = fc256 (Just (T.ColorNumber 111))--c256_f_112 :: Chunk-c256_f_112 = fc256 (Just (T.ColorNumber 112))--c256_f_113 :: Chunk-c256_f_113 = fc256 (Just (T.ColorNumber 113))--c256_f_114 :: Chunk-c256_f_114 = fc256 (Just (T.ColorNumber 114))--c256_f_115 :: Chunk-c256_f_115 = fc256 (Just (T.ColorNumber 115))--c256_f_116 :: Chunk-c256_f_116 = fc256 (Just (T.ColorNumber 116))--c256_f_117 :: Chunk-c256_f_117 = fc256 (Just (T.ColorNumber 117))--c256_f_118 :: Chunk-c256_f_118 = fc256 (Just (T.ColorNumber 118))--c256_f_119 :: Chunk-c256_f_119 = fc256 (Just (T.ColorNumber 119))--c256_f_120 :: Chunk-c256_f_120 = fc256 (Just (T.ColorNumber 120))--c256_f_121 :: Chunk-c256_f_121 = fc256 (Just (T.ColorNumber 121))--c256_f_122 :: Chunk-c256_f_122 = fc256 (Just (T.ColorNumber 122))--c256_f_123 :: Chunk-c256_f_123 = fc256 (Just (T.ColorNumber 123))--c256_f_124 :: Chunk-c256_f_124 = fc256 (Just (T.ColorNumber 124))--c256_f_125 :: Chunk-c256_f_125 = fc256 (Just (T.ColorNumber 125))--c256_f_126 :: Chunk-c256_f_126 = fc256 (Just (T.ColorNumber 126))--c256_f_127 :: Chunk-c256_f_127 = fc256 (Just (T.ColorNumber 127))--c256_f_128 :: Chunk-c256_f_128 = fc256 (Just (T.ColorNumber 128))--c256_f_129 :: Chunk-c256_f_129 = fc256 (Just (T.ColorNumber 129))--c256_f_130 :: Chunk-c256_f_130 = fc256 (Just (T.ColorNumber 130))--c256_f_131 :: Chunk-c256_f_131 = fc256 (Just (T.ColorNumber 131))--c256_f_132 :: Chunk-c256_f_132 = fc256 (Just (T.ColorNumber 132))--c256_f_133 :: Chunk-c256_f_133 = fc256 (Just (T.ColorNumber 133))--c256_f_134 :: Chunk-c256_f_134 = fc256 (Just (T.ColorNumber 134))--c256_f_135 :: Chunk-c256_f_135 = fc256 (Just (T.ColorNumber 135))--c256_f_136 :: Chunk-c256_f_136 = fc256 (Just (T.ColorNumber 136))--c256_f_137 :: Chunk-c256_f_137 = fc256 (Just (T.ColorNumber 137))--c256_f_138 :: Chunk-c256_f_138 = fc256 (Just (T.ColorNumber 138))--c256_f_139 :: Chunk-c256_f_139 = fc256 (Just (T.ColorNumber 139))--c256_f_140 :: Chunk-c256_f_140 = fc256 (Just (T.ColorNumber 140))--c256_f_141 :: Chunk-c256_f_141 = fc256 (Just (T.ColorNumber 141))--c256_f_142 :: Chunk-c256_f_142 = fc256 (Just (T.ColorNumber 142))--c256_f_143 :: Chunk-c256_f_143 = fc256 (Just (T.ColorNumber 143))--c256_f_144 :: Chunk-c256_f_144 = fc256 (Just (T.ColorNumber 144))--c256_f_145 :: Chunk-c256_f_145 = fc256 (Just (T.ColorNumber 145))--c256_f_146 :: Chunk-c256_f_146 = fc256 (Just (T.ColorNumber 146))--c256_f_147 :: Chunk-c256_f_147 = fc256 (Just (T.ColorNumber 147))--c256_f_148 :: Chunk-c256_f_148 = fc256 (Just (T.ColorNumber 148))--c256_f_149 :: Chunk-c256_f_149 = fc256 (Just (T.ColorNumber 149))--c256_f_150 :: Chunk-c256_f_150 = fc256 (Just (T.ColorNumber 150))--c256_f_151 :: Chunk-c256_f_151 = fc256 (Just (T.ColorNumber 151))--c256_f_152 :: Chunk-c256_f_152 = fc256 (Just (T.ColorNumber 152))--c256_f_153 :: Chunk-c256_f_153 = fc256 (Just (T.ColorNumber 153))--c256_f_154 :: Chunk-c256_f_154 = fc256 (Just (T.ColorNumber 154))--c256_f_155 :: Chunk-c256_f_155 = fc256 (Just (T.ColorNumber 155))--c256_f_156 :: Chunk-c256_f_156 = fc256 (Just (T.ColorNumber 156))--c256_f_157 :: Chunk-c256_f_157 = fc256 (Just (T.ColorNumber 157))--c256_f_158 :: Chunk-c256_f_158 = fc256 (Just (T.ColorNumber 158))--c256_f_159 :: Chunk-c256_f_159 = fc256 (Just (T.ColorNumber 159))--c256_f_160 :: Chunk-c256_f_160 = fc256 (Just (T.ColorNumber 160))--c256_f_161 :: Chunk-c256_f_161 = fc256 (Just (T.ColorNumber 161))--c256_f_162 :: Chunk-c256_f_162 = fc256 (Just (T.ColorNumber 162))--c256_f_163 :: Chunk-c256_f_163 = fc256 (Just (T.ColorNumber 163))--c256_f_164 :: Chunk-c256_f_164 = fc256 (Just (T.ColorNumber 164))--c256_f_165 :: Chunk-c256_f_165 = fc256 (Just (T.ColorNumber 165))--c256_f_166 :: Chunk-c256_f_166 = fc256 (Just (T.ColorNumber 166))--c256_f_167 :: Chunk-c256_f_167 = fc256 (Just (T.ColorNumber 167))--c256_f_168 :: Chunk-c256_f_168 = fc256 (Just (T.ColorNumber 168))--c256_f_169 :: Chunk-c256_f_169 = fc256 (Just (T.ColorNumber 169))--c256_f_170 :: Chunk-c256_f_170 = fc256 (Just (T.ColorNumber 170))--c256_f_171 :: Chunk-c256_f_171 = fc256 (Just (T.ColorNumber 171))--c256_f_172 :: Chunk-c256_f_172 = fc256 (Just (T.ColorNumber 172))--c256_f_173 :: Chunk-c256_f_173 = fc256 (Just (T.ColorNumber 173))--c256_f_174 :: Chunk-c256_f_174 = fc256 (Just (T.ColorNumber 174))--c256_f_175 :: Chunk-c256_f_175 = fc256 (Just (T.ColorNumber 175))--c256_f_176 :: Chunk-c256_f_176 = fc256 (Just (T.ColorNumber 176))--c256_f_177 :: Chunk-c256_f_177 = fc256 (Just (T.ColorNumber 177))--c256_f_178 :: Chunk-c256_f_178 = fc256 (Just (T.ColorNumber 178))--c256_f_179 :: Chunk-c256_f_179 = fc256 (Just (T.ColorNumber 179))--c256_f_180 :: Chunk-c256_f_180 = fc256 (Just (T.ColorNumber 180))--c256_f_181 :: Chunk-c256_f_181 = fc256 (Just (T.ColorNumber 181))--c256_f_182 :: Chunk-c256_f_182 = fc256 (Just (T.ColorNumber 182))--c256_f_183 :: Chunk-c256_f_183 = fc256 (Just (T.ColorNumber 183))--c256_f_184 :: Chunk-c256_f_184 = fc256 (Just (T.ColorNumber 184))--c256_f_185 :: Chunk-c256_f_185 = fc256 (Just (T.ColorNumber 185))--c256_f_186 :: Chunk-c256_f_186 = fc256 (Just (T.ColorNumber 186))--c256_f_187 :: Chunk-c256_f_187 = fc256 (Just (T.ColorNumber 187))--c256_f_188 :: Chunk-c256_f_188 = fc256 (Just (T.ColorNumber 188))--c256_f_189 :: Chunk-c256_f_189 = fc256 (Just (T.ColorNumber 189))--c256_f_190 :: Chunk-c256_f_190 = fc256 (Just (T.ColorNumber 190))--c256_f_191 :: Chunk-c256_f_191 = fc256 (Just (T.ColorNumber 191))--c256_f_192 :: Chunk-c256_f_192 = fc256 (Just (T.ColorNumber 192))--c256_f_193 :: Chunk-c256_f_193 = fc256 (Just (T.ColorNumber 193))--c256_f_194 :: Chunk-c256_f_194 = fc256 (Just (T.ColorNumber 194))--c256_f_195 :: Chunk-c256_f_195 = fc256 (Just (T.ColorNumber 195))--c256_f_196 :: Chunk-c256_f_196 = fc256 (Just (T.ColorNumber 196))--c256_f_197 :: Chunk-c256_f_197 = fc256 (Just (T.ColorNumber 197))--c256_f_198 :: Chunk-c256_f_198 = fc256 (Just (T.ColorNumber 198))--c256_f_199 :: Chunk-c256_f_199 = fc256 (Just (T.ColorNumber 199))--c256_f_200 :: Chunk-c256_f_200 = fc256 (Just (T.ColorNumber 200))--c256_f_201 :: Chunk-c256_f_201 = fc256 (Just (T.ColorNumber 201))--c256_f_202 :: Chunk-c256_f_202 = fc256 (Just (T.ColorNumber 202))--c256_f_203 :: Chunk-c256_f_203 = fc256 (Just (T.ColorNumber 203))--c256_f_204 :: Chunk-c256_f_204 = fc256 (Just (T.ColorNumber 204))--c256_f_205 :: Chunk-c256_f_205 = fc256 (Just (T.ColorNumber 205))--c256_f_206 :: Chunk-c256_f_206 = fc256 (Just (T.ColorNumber 206))--c256_f_207 :: Chunk-c256_f_207 = fc256 (Just (T.ColorNumber 207))--c256_f_208 :: Chunk-c256_f_208 = fc256 (Just (T.ColorNumber 208))--c256_f_209 :: Chunk-c256_f_209 = fc256 (Just (T.ColorNumber 209))--c256_f_210 :: Chunk-c256_f_210 = fc256 (Just (T.ColorNumber 210))--c256_f_211 :: Chunk-c256_f_211 = fc256 (Just (T.ColorNumber 211))--c256_f_212 :: Chunk-c256_f_212 = fc256 (Just (T.ColorNumber 212))--c256_f_213 :: Chunk-c256_f_213 = fc256 (Just (T.ColorNumber 213))--c256_f_214 :: Chunk-c256_f_214 = fc256 (Just (T.ColorNumber 214))--c256_f_215 :: Chunk-c256_f_215 = fc256 (Just (T.ColorNumber 215))--c256_f_216 :: Chunk-c256_f_216 = fc256 (Just (T.ColorNumber 216))--c256_f_217 :: Chunk-c256_f_217 = fc256 (Just (T.ColorNumber 217))--c256_f_218 :: Chunk-c256_f_218 = fc256 (Just (T.ColorNumber 218))--c256_f_219 :: Chunk-c256_f_219 = fc256 (Just (T.ColorNumber 219))--c256_f_220 :: Chunk-c256_f_220 = fc256 (Just (T.ColorNumber 220))--c256_f_221 :: Chunk-c256_f_221 = fc256 (Just (T.ColorNumber 221))--c256_f_222 :: Chunk-c256_f_222 = fc256 (Just (T.ColorNumber 222))--c256_f_223 :: Chunk-c256_f_223 = fc256 (Just (T.ColorNumber 223))--c256_f_224 :: Chunk-c256_f_224 = fc256 (Just (T.ColorNumber 224))--c256_f_225 :: Chunk-c256_f_225 = fc256 (Just (T.ColorNumber 225))--c256_f_226 :: Chunk-c256_f_226 = fc256 (Just (T.ColorNumber 226))--c256_f_227 :: Chunk-c256_f_227 = fc256 (Just (T.ColorNumber 227))--c256_f_228 :: Chunk-c256_f_228 = fc256 (Just (T.ColorNumber 228))--c256_f_229 :: Chunk-c256_f_229 = fc256 (Just (T.ColorNumber 229))--c256_f_230 :: Chunk-c256_f_230 = fc256 (Just (T.ColorNumber 230))--c256_f_231 :: Chunk-c256_f_231 = fc256 (Just (T.ColorNumber 231))--c256_f_232 :: Chunk-c256_f_232 = fc256 (Just (T.ColorNumber 232))--c256_f_233 :: Chunk-c256_f_233 = fc256 (Just (T.ColorNumber 233))--c256_f_234 :: Chunk-c256_f_234 = fc256 (Just (T.ColorNumber 234))--c256_f_235 :: Chunk-c256_f_235 = fc256 (Just (T.ColorNumber 235))--c256_f_236 :: Chunk-c256_f_236 = fc256 (Just (T.ColorNumber 236))--c256_f_237 :: Chunk-c256_f_237 = fc256 (Just (T.ColorNumber 237))--c256_f_238 :: Chunk-c256_f_238 = fc256 (Just (T.ColorNumber 238))--c256_f_239 :: Chunk-c256_f_239 = fc256 (Just (T.ColorNumber 239))--c256_f_240 :: Chunk-c256_f_240 = fc256 (Just (T.ColorNumber 240))--c256_f_241 :: Chunk-c256_f_241 = fc256 (Just (T.ColorNumber 241))--c256_f_242 :: Chunk-c256_f_242 = fc256 (Just (T.ColorNumber 242))--c256_f_243 :: Chunk-c256_f_243 = fc256 (Just (T.ColorNumber 243))--c256_f_244 :: Chunk-c256_f_244 = fc256 (Just (T.ColorNumber 244))--c256_f_245 :: Chunk-c256_f_245 = fc256 (Just (T.ColorNumber 245))--c256_f_246 :: Chunk-c256_f_246 = fc256 (Just (T.ColorNumber 246))--c256_f_247 :: Chunk-c256_f_247 = fc256 (Just (T.ColorNumber 247))--c256_f_248 :: Chunk-c256_f_248 = fc256 (Just (T.ColorNumber 248))--c256_f_249 :: Chunk-c256_f_249 = fc256 (Just (T.ColorNumber 249))--c256_f_250 :: Chunk-c256_f_250 = fc256 (Just (T.ColorNumber 250))--c256_f_251 :: Chunk-c256_f_251 = fc256 (Just (T.ColorNumber 251))--c256_f_252 :: Chunk-c256_f_252 = fc256 (Just (T.ColorNumber 252))--c256_f_253 :: Chunk-c256_f_253 = fc256 (Just (T.ColorNumber 253))--c256_f_254 :: Chunk-c256_f_254 = fc256 (Just (T.ColorNumber 254))--c256_f_255 :: Chunk-c256_f_255 = fc256 (Just (T.ColorNumber 255))---bc256 :: Maybe T.Color -> Chunk-bc256 c = x { textSpec = (textSpec x) {-  style256 = (style256 (textSpec x)) {-    background256 = Last (Just c) }}}-  where-    x = mempty--c256_b_default :: Chunk-c256_b_default = bc256 Nothing--c256_b_0 :: Chunk-c256_b_0 = bc256 (Just (T.ColorNumber 0))--c256_b_black :: Chunk-c256_b_black = bc256 (Just (T.ColorNumber 0))--c256_b_1 :: Chunk-c256_b_1 = bc256 (Just (T.ColorNumber 1))--c256_b_red :: Chunk-c256_b_red = bc256 (Just (T.ColorNumber 1))--c256_b_2 :: Chunk-c256_b_2 = bc256 (Just (T.ColorNumber 2))--c256_b_green :: Chunk-c256_b_green = bc256 (Just (T.ColorNumber 2))--c256_b_3 :: Chunk-c256_b_3 = bc256 (Just (T.ColorNumber 3))--c256_b_yellow :: Chunk-c256_b_yellow = bc256 (Just (T.ColorNumber 3))--c256_b_4 :: Chunk-c256_b_4 = bc256 (Just (T.ColorNumber 4))--c256_b_blue :: Chunk-c256_b_blue = bc256 (Just (T.ColorNumber 4))--c256_b_5 :: Chunk-c256_b_5 = bc256 (Just (T.ColorNumber 5))--c256_b_magenta :: Chunk-c256_b_magenta = bc256 (Just (T.ColorNumber 5))--c256_b_6 :: Chunk-c256_b_6 = bc256 (Just (T.ColorNumber 6))--c256_b_cyan :: Chunk-c256_b_cyan = bc256 (Just (T.ColorNumber 6))--c256_b_7 :: Chunk-c256_b_7 = bc256 (Just (T.ColorNumber 7))--c256_b_white :: Chunk-c256_b_white = bc256 (Just (T.ColorNumber 7))--c256_b_8 :: Chunk-c256_b_8 = bc256 (Just (T.ColorNumber 8))--c256_b_grey :: Chunk-c256_b_grey = bc256 (Just (T.ColorNumber 8))--c256_b_9 :: Chunk-c256_b_9 = bc256 (Just (T.ColorNumber 9))--c256_b_red_bright :: Chunk-c256_b_red_bright = bc256 (Just (T.ColorNumber 9))--c256_b_10 :: Chunk-c256_b_10 = bc256 (Just (T.ColorNumber 10))--c256_b_green_bright :: Chunk-c256_b_green_bright = bc256 (Just (T.ColorNumber 10))--c256_b_11 :: Chunk-c256_b_11 = bc256 (Just (T.ColorNumber 11))--c256_b_yellow_bright :: Chunk-c256_b_yellow_bright = bc256 (Just (T.ColorNumber 11))--c256_b_12 :: Chunk-c256_b_12 = bc256 (Just (T.ColorNumber 12))--c256_b_blue_bright :: Chunk-c256_b_blue_bright = bc256 (Just (T.ColorNumber 12))--c256_b_13 :: Chunk-c256_b_13 = bc256 (Just (T.ColorNumber 13))--c256_b_magenta_bright :: Chunk-c256_b_magenta_bright = bc256 (Just (T.ColorNumber 13))--c256_b_14 :: Chunk-c256_b_14 = bc256 (Just (T.ColorNumber 14))--c256_b_cyan_bright :: Chunk-c256_b_cyan_bright = bc256 (Just (T.ColorNumber 14))--c256_b_15 :: Chunk-c256_b_15 = bc256 (Just (T.ColorNumber 15))--c256_b_white_bright :: Chunk-c256_b_white_bright = bc256 (Just (T.ColorNumber 15))--c256_b_16 :: Chunk-c256_b_16 = bc256 (Just (T.ColorNumber 16))--c256_b_17 :: Chunk-c256_b_17 = bc256 (Just (T.ColorNumber 17))--c256_b_18 :: Chunk-c256_b_18 = bc256 (Just (T.ColorNumber 18))--c256_b_19 :: Chunk-c256_b_19 = bc256 (Just (T.ColorNumber 19))--c256_b_20 :: Chunk-c256_b_20 = bc256 (Just (T.ColorNumber 20))--c256_b_21 :: Chunk-c256_b_21 = bc256 (Just (T.ColorNumber 21))--c256_b_22 :: Chunk-c256_b_22 = bc256 (Just (T.ColorNumber 22))--c256_b_23 :: Chunk-c256_b_23 = bc256 (Just (T.ColorNumber 23))--c256_b_24 :: Chunk-c256_b_24 = bc256 (Just (T.ColorNumber 24))--c256_b_25 :: Chunk-c256_b_25 = bc256 (Just (T.ColorNumber 25))--c256_b_26 :: Chunk-c256_b_26 = bc256 (Just (T.ColorNumber 26))--c256_b_27 :: Chunk-c256_b_27 = bc256 (Just (T.ColorNumber 27))--c256_b_28 :: Chunk-c256_b_28 = bc256 (Just (T.ColorNumber 28))--c256_b_29 :: Chunk-c256_b_29 = bc256 (Just (T.ColorNumber 29))--c256_b_30 :: Chunk-c256_b_30 = bc256 (Just (T.ColorNumber 30))--c256_b_31 :: Chunk-c256_b_31 = bc256 (Just (T.ColorNumber 31))--c256_b_32 :: Chunk-c256_b_32 = bc256 (Just (T.ColorNumber 32))--c256_b_33 :: Chunk-c256_b_33 = bc256 (Just (T.ColorNumber 33))--c256_b_34 :: Chunk-c256_b_34 = bc256 (Just (T.ColorNumber 34))--c256_b_35 :: Chunk-c256_b_35 = bc256 (Just (T.ColorNumber 35))--c256_b_36 :: Chunk-c256_b_36 = bc256 (Just (T.ColorNumber 36))--c256_b_37 :: Chunk-c256_b_37 = bc256 (Just (T.ColorNumber 37))--c256_b_38 :: Chunk-c256_b_38 = bc256 (Just (T.ColorNumber 38))--c256_b_39 :: Chunk-c256_b_39 = bc256 (Just (T.ColorNumber 39))--c256_b_40 :: Chunk-c256_b_40 = bc256 (Just (T.ColorNumber 40))--c256_b_41 :: Chunk-c256_b_41 = bc256 (Just (T.ColorNumber 41))--c256_b_42 :: Chunk-c256_b_42 = bc256 (Just (T.ColorNumber 42))--c256_b_43 :: Chunk-c256_b_43 = bc256 (Just (T.ColorNumber 43))--c256_b_44 :: Chunk-c256_b_44 = bc256 (Just (T.ColorNumber 44))--c256_b_45 :: Chunk-c256_b_45 = bc256 (Just (T.ColorNumber 45))--c256_b_46 :: Chunk-c256_b_46 = bc256 (Just (T.ColorNumber 46))--c256_b_47 :: Chunk-c256_b_47 = bc256 (Just (T.ColorNumber 47))--c256_b_48 :: Chunk-c256_b_48 = bc256 (Just (T.ColorNumber 48))--c256_b_49 :: Chunk-c256_b_49 = bc256 (Just (T.ColorNumber 49))--c256_b_50 :: Chunk-c256_b_50 = bc256 (Just (T.ColorNumber 50))--c256_b_51 :: Chunk-c256_b_51 = bc256 (Just (T.ColorNumber 51))--c256_b_52 :: Chunk-c256_b_52 = bc256 (Just (T.ColorNumber 52))--c256_b_53 :: Chunk-c256_b_53 = bc256 (Just (T.ColorNumber 53))--c256_b_54 :: Chunk-c256_b_54 = bc256 (Just (T.ColorNumber 54))--c256_b_55 :: Chunk-c256_b_55 = bc256 (Just (T.ColorNumber 55))--c256_b_56 :: Chunk-c256_b_56 = bc256 (Just (T.ColorNumber 56))--c256_b_57 :: Chunk-c256_b_57 = bc256 (Just (T.ColorNumber 57))--c256_b_58 :: Chunk-c256_b_58 = bc256 (Just (T.ColorNumber 58))--c256_b_59 :: Chunk-c256_b_59 = bc256 (Just (T.ColorNumber 59))--c256_b_60 :: Chunk-c256_b_60 = bc256 (Just (T.ColorNumber 60))--c256_b_61 :: Chunk-c256_b_61 = bc256 (Just (T.ColorNumber 61))--c256_b_62 :: Chunk-c256_b_62 = bc256 (Just (T.ColorNumber 62))--c256_b_63 :: Chunk-c256_b_63 = bc256 (Just (T.ColorNumber 63))--c256_b_64 :: Chunk-c256_b_64 = bc256 (Just (T.ColorNumber 64))--c256_b_65 :: Chunk-c256_b_65 = bc256 (Just (T.ColorNumber 65))--c256_b_66 :: Chunk-c256_b_66 = bc256 (Just (T.ColorNumber 66))--c256_b_67 :: Chunk-c256_b_67 = bc256 (Just (T.ColorNumber 67))--c256_b_68 :: Chunk-c256_b_68 = bc256 (Just (T.ColorNumber 68))--c256_b_69 :: Chunk-c256_b_69 = bc256 (Just (T.ColorNumber 69))--c256_b_70 :: Chunk-c256_b_70 = bc256 (Just (T.ColorNumber 70))--c256_b_71 :: Chunk-c256_b_71 = bc256 (Just (T.ColorNumber 71))--c256_b_72 :: Chunk-c256_b_72 = bc256 (Just (T.ColorNumber 72))--c256_b_73 :: Chunk-c256_b_73 = bc256 (Just (T.ColorNumber 73))--c256_b_74 :: Chunk-c256_b_74 = bc256 (Just (T.ColorNumber 74))--c256_b_75 :: Chunk-c256_b_75 = bc256 (Just (T.ColorNumber 75))--c256_b_76 :: Chunk-c256_b_76 = bc256 (Just (T.ColorNumber 76))--c256_b_77 :: Chunk-c256_b_77 = bc256 (Just (T.ColorNumber 77))--c256_b_78 :: Chunk-c256_b_78 = bc256 (Just (T.ColorNumber 78))--c256_b_79 :: Chunk-c256_b_79 = bc256 (Just (T.ColorNumber 79))--c256_b_80 :: Chunk-c256_b_80 = bc256 (Just (T.ColorNumber 80))--c256_b_81 :: Chunk-c256_b_81 = bc256 (Just (T.ColorNumber 81))--c256_b_82 :: Chunk-c256_b_82 = bc256 (Just (T.ColorNumber 82))--c256_b_83 :: Chunk-c256_b_83 = bc256 (Just (T.ColorNumber 83))--c256_b_84 :: Chunk-c256_b_84 = bc256 (Just (T.ColorNumber 84))--c256_b_85 :: Chunk-c256_b_85 = bc256 (Just (T.ColorNumber 85))--c256_b_86 :: Chunk-c256_b_86 = bc256 (Just (T.ColorNumber 86))--c256_b_87 :: Chunk-c256_b_87 = bc256 (Just (T.ColorNumber 87))--c256_b_88 :: Chunk-c256_b_88 = bc256 (Just (T.ColorNumber 88))--c256_b_89 :: Chunk-c256_b_89 = bc256 (Just (T.ColorNumber 89))--c256_b_90 :: Chunk-c256_b_90 = bc256 (Just (T.ColorNumber 90))--c256_b_91 :: Chunk-c256_b_91 = bc256 (Just (T.ColorNumber 91))--c256_b_92 :: Chunk-c256_b_92 = bc256 (Just (T.ColorNumber 92))--c256_b_93 :: Chunk-c256_b_93 = bc256 (Just (T.ColorNumber 93))--c256_b_94 :: Chunk-c256_b_94 = bc256 (Just (T.ColorNumber 94))--c256_b_95 :: Chunk-c256_b_95 = bc256 (Just (T.ColorNumber 95))--c256_b_96 :: Chunk-c256_b_96 = bc256 (Just (T.ColorNumber 96))--c256_b_97 :: Chunk-c256_b_97 = bc256 (Just (T.ColorNumber 97))--c256_b_98 :: Chunk-c256_b_98 = bc256 (Just (T.ColorNumber 98))--c256_b_99 :: Chunk-c256_b_99 = bc256 (Just (T.ColorNumber 99))--c256_b_100 :: Chunk-c256_b_100 = bc256 (Just (T.ColorNumber 100))--c256_b_101 :: Chunk-c256_b_101 = bc256 (Just (T.ColorNumber 101))--c256_b_102 :: Chunk-c256_b_102 = bc256 (Just (T.ColorNumber 102))--c256_b_103 :: Chunk-c256_b_103 = bc256 (Just (T.ColorNumber 103))--c256_b_104 :: Chunk-c256_b_104 = bc256 (Just (T.ColorNumber 104))--c256_b_105 :: Chunk-c256_b_105 = bc256 (Just (T.ColorNumber 105))--c256_b_106 :: Chunk-c256_b_106 = bc256 (Just (T.ColorNumber 106))--c256_b_107 :: Chunk-c256_b_107 = bc256 (Just (T.ColorNumber 107))--c256_b_108 :: Chunk-c256_b_108 = bc256 (Just (T.ColorNumber 108))--c256_b_109 :: Chunk-c256_b_109 = bc256 (Just (T.ColorNumber 109))--c256_b_110 :: Chunk-c256_b_110 = bc256 (Just (T.ColorNumber 110))--c256_b_111 :: Chunk-c256_b_111 = bc256 (Just (T.ColorNumber 111))--c256_b_112 :: Chunk-c256_b_112 = bc256 (Just (T.ColorNumber 112))--c256_b_113 :: Chunk-c256_b_113 = bc256 (Just (T.ColorNumber 113))--c256_b_114 :: Chunk-c256_b_114 = bc256 (Just (T.ColorNumber 114))--c256_b_115 :: Chunk-c256_b_115 = bc256 (Just (T.ColorNumber 115))--c256_b_116 :: Chunk-c256_b_116 = bc256 (Just (T.ColorNumber 116))--c256_b_117 :: Chunk-c256_b_117 = bc256 (Just (T.ColorNumber 117))--c256_b_118 :: Chunk-c256_b_118 = bc256 (Just (T.ColorNumber 118))--c256_b_119 :: Chunk-c256_b_119 = bc256 (Just (T.ColorNumber 119))--c256_b_120 :: Chunk-c256_b_120 = bc256 (Just (T.ColorNumber 120))--c256_b_121 :: Chunk-c256_b_121 = bc256 (Just (T.ColorNumber 121))--c256_b_122 :: Chunk-c256_b_122 = bc256 (Just (T.ColorNumber 122))--c256_b_123 :: Chunk-c256_b_123 = bc256 (Just (T.ColorNumber 123))--c256_b_124 :: Chunk-c256_b_124 = bc256 (Just (T.ColorNumber 124))--c256_b_125 :: Chunk-c256_b_125 = bc256 (Just (T.ColorNumber 125))--c256_b_126 :: Chunk-c256_b_126 = bc256 (Just (T.ColorNumber 126))--c256_b_127 :: Chunk-c256_b_127 = bc256 (Just (T.ColorNumber 127))--c256_b_128 :: Chunk-c256_b_128 = bc256 (Just (T.ColorNumber 128))--c256_b_129 :: Chunk-c256_b_129 = bc256 (Just (T.ColorNumber 129))--c256_b_130 :: Chunk-c256_b_130 = bc256 (Just (T.ColorNumber 130))--c256_b_131 :: Chunk-c256_b_131 = bc256 (Just (T.ColorNumber 131))--c256_b_132 :: Chunk-c256_b_132 = bc256 (Just (T.ColorNumber 132))--c256_b_133 :: Chunk-c256_b_133 = bc256 (Just (T.ColorNumber 133))--c256_b_134 :: Chunk-c256_b_134 = bc256 (Just (T.ColorNumber 134))--c256_b_135 :: Chunk-c256_b_135 = bc256 (Just (T.ColorNumber 135))--c256_b_136 :: Chunk-c256_b_136 = bc256 (Just (T.ColorNumber 136))--c256_b_137 :: Chunk-c256_b_137 = bc256 (Just (T.ColorNumber 137))--c256_b_138 :: Chunk-c256_b_138 = bc256 (Just (T.ColorNumber 138))--c256_b_139 :: Chunk-c256_b_139 = bc256 (Just (T.ColorNumber 139))--c256_b_140 :: Chunk-c256_b_140 = bc256 (Just (T.ColorNumber 140))--c256_b_141 :: Chunk-c256_b_141 = bc256 (Just (T.ColorNumber 141))--c256_b_142 :: Chunk-c256_b_142 = bc256 (Just (T.ColorNumber 142))--c256_b_143 :: Chunk-c256_b_143 = bc256 (Just (T.ColorNumber 143))--c256_b_144 :: Chunk-c256_b_144 = bc256 (Just (T.ColorNumber 144))--c256_b_145 :: Chunk-c256_b_145 = bc256 (Just (T.ColorNumber 145))--c256_b_146 :: Chunk-c256_b_146 = bc256 (Just (T.ColorNumber 146))--c256_b_147 :: Chunk-c256_b_147 = bc256 (Just (T.ColorNumber 147))--c256_b_148 :: Chunk-c256_b_148 = bc256 (Just (T.ColorNumber 148))--c256_b_149 :: Chunk-c256_b_149 = bc256 (Just (T.ColorNumber 149))--c256_b_150 :: Chunk-c256_b_150 = bc256 (Just (T.ColorNumber 150))--c256_b_151 :: Chunk-c256_b_151 = bc256 (Just (T.ColorNumber 151))--c256_b_152 :: Chunk-c256_b_152 = bc256 (Just (T.ColorNumber 152))--c256_b_153 :: Chunk-c256_b_153 = bc256 (Just (T.ColorNumber 153))--c256_b_154 :: Chunk-c256_b_154 = bc256 (Just (T.ColorNumber 154))--c256_b_155 :: Chunk-c256_b_155 = bc256 (Just (T.ColorNumber 155))--c256_b_156 :: Chunk-c256_b_156 = bc256 (Just (T.ColorNumber 156))--c256_b_157 :: Chunk-c256_b_157 = bc256 (Just (T.ColorNumber 157))--c256_b_158 :: Chunk-c256_b_158 = bc256 (Just (T.ColorNumber 158))--c256_b_159 :: Chunk-c256_b_159 = bc256 (Just (T.ColorNumber 159))--c256_b_160 :: Chunk-c256_b_160 = bc256 (Just (T.ColorNumber 160))--c256_b_161 :: Chunk-c256_b_161 = bc256 (Just (T.ColorNumber 161))--c256_b_162 :: Chunk-c256_b_162 = bc256 (Just (T.ColorNumber 162))--c256_b_163 :: Chunk-c256_b_163 = bc256 (Just (T.ColorNumber 163))--c256_b_164 :: Chunk-c256_b_164 = bc256 (Just (T.ColorNumber 164))--c256_b_165 :: Chunk-c256_b_165 = bc256 (Just (T.ColorNumber 165))--c256_b_166 :: Chunk-c256_b_166 = bc256 (Just (T.ColorNumber 166))--c256_b_167 :: Chunk-c256_b_167 = bc256 (Just (T.ColorNumber 167))--c256_b_168 :: Chunk-c256_b_168 = bc256 (Just (T.ColorNumber 168))--c256_b_169 :: Chunk-c256_b_169 = bc256 (Just (T.ColorNumber 169))--c256_b_170 :: Chunk-c256_b_170 = bc256 (Just (T.ColorNumber 170))--c256_b_171 :: Chunk-c256_b_171 = bc256 (Just (T.ColorNumber 171))--c256_b_172 :: Chunk-c256_b_172 = bc256 (Just (T.ColorNumber 172))--c256_b_173 :: Chunk-c256_b_173 = bc256 (Just (T.ColorNumber 173))--c256_b_174 :: Chunk-c256_b_174 = bc256 (Just (T.ColorNumber 174))--c256_b_175 :: Chunk-c256_b_175 = bc256 (Just (T.ColorNumber 175))--c256_b_176 :: Chunk-c256_b_176 = bc256 (Just (T.ColorNumber 176))--c256_b_177 :: Chunk-c256_b_177 = bc256 (Just (T.ColorNumber 177))--c256_b_178 :: Chunk-c256_b_178 = bc256 (Just (T.ColorNumber 178))--c256_b_179 :: Chunk-c256_b_179 = bc256 (Just (T.ColorNumber 179))--c256_b_180 :: Chunk-c256_b_180 = bc256 (Just (T.ColorNumber 180))--c256_b_181 :: Chunk-c256_b_181 = bc256 (Just (T.ColorNumber 181))--c256_b_182 :: Chunk-c256_b_182 = bc256 (Just (T.ColorNumber 182))--c256_b_183 :: Chunk-c256_b_183 = bc256 (Just (T.ColorNumber 183))--c256_b_184 :: Chunk-c256_b_184 = bc256 (Just (T.ColorNumber 184))--c256_b_185 :: Chunk-c256_b_185 = bc256 (Just (T.ColorNumber 185))--c256_b_186 :: Chunk-c256_b_186 = bc256 (Just (T.ColorNumber 186))--c256_b_187 :: Chunk-c256_b_187 = bc256 (Just (T.ColorNumber 187))--c256_b_188 :: Chunk-c256_b_188 = bc256 (Just (T.ColorNumber 188))--c256_b_189 :: Chunk-c256_b_189 = bc256 (Just (T.ColorNumber 189))--c256_b_190 :: Chunk-c256_b_190 = bc256 (Just (T.ColorNumber 190))--c256_b_191 :: Chunk-c256_b_191 = bc256 (Just (T.ColorNumber 191))--c256_b_192 :: Chunk-c256_b_192 = bc256 (Just (T.ColorNumber 192))--c256_b_193 :: Chunk-c256_b_193 = bc256 (Just (T.ColorNumber 193))--c256_b_194 :: Chunk-c256_b_194 = bc256 (Just (T.ColorNumber 194))--c256_b_195 :: Chunk-c256_b_195 = bc256 (Just (T.ColorNumber 195))--c256_b_196 :: Chunk-c256_b_196 = bc256 (Just (T.ColorNumber 196))--c256_b_197 :: Chunk-c256_b_197 = bc256 (Just (T.ColorNumber 197))--c256_b_198 :: Chunk-c256_b_198 = bc256 (Just (T.ColorNumber 198))--c256_b_199 :: Chunk-c256_b_199 = bc256 (Just (T.ColorNumber 199))--c256_b_200 :: Chunk-c256_b_200 = bc256 (Just (T.ColorNumber 200))--c256_b_201 :: Chunk-c256_b_201 = bc256 (Just (T.ColorNumber 201))--c256_b_202 :: Chunk-c256_b_202 = bc256 (Just (T.ColorNumber 202))--c256_b_203 :: Chunk-c256_b_203 = bc256 (Just (T.ColorNumber 203))--c256_b_204 :: Chunk-c256_b_204 = bc256 (Just (T.ColorNumber 204))--c256_b_205 :: Chunk-c256_b_205 = bc256 (Just (T.ColorNumber 205))--c256_b_206 :: Chunk-c256_b_206 = bc256 (Just (T.ColorNumber 206))--c256_b_207 :: Chunk-c256_b_207 = bc256 (Just (T.ColorNumber 207))--c256_b_208 :: Chunk-c256_b_208 = bc256 (Just (T.ColorNumber 208))--c256_b_209 :: Chunk-c256_b_209 = bc256 (Just (T.ColorNumber 209))--c256_b_210 :: Chunk-c256_b_210 = bc256 (Just (T.ColorNumber 210))--c256_b_211 :: Chunk-c256_b_211 = bc256 (Just (T.ColorNumber 211))--c256_b_212 :: Chunk-c256_b_212 = bc256 (Just (T.ColorNumber 212))--c256_b_213 :: Chunk-c256_b_213 = bc256 (Just (T.ColorNumber 213))--c256_b_214 :: Chunk-c256_b_214 = bc256 (Just (T.ColorNumber 214))--c256_b_215 :: Chunk-c256_b_215 = bc256 (Just (T.ColorNumber 215))--c256_b_216 :: Chunk-c256_b_216 = bc256 (Just (T.ColorNumber 216))--c256_b_217 :: Chunk-c256_b_217 = bc256 (Just (T.ColorNumber 217))--c256_b_218 :: Chunk-c256_b_218 = bc256 (Just (T.ColorNumber 218))--c256_b_219 :: Chunk-c256_b_219 = bc256 (Just (T.ColorNumber 219))--c256_b_220 :: Chunk-c256_b_220 = bc256 (Just (T.ColorNumber 220))--c256_b_221 :: Chunk-c256_b_221 = bc256 (Just (T.ColorNumber 221))--c256_b_222 :: Chunk-c256_b_222 = bc256 (Just (T.ColorNumber 222))--c256_b_223 :: Chunk-c256_b_223 = bc256 (Just (T.ColorNumber 223))--c256_b_224 :: Chunk-c256_b_224 = bc256 (Just (T.ColorNumber 224))--c256_b_225 :: Chunk-c256_b_225 = bc256 (Just (T.ColorNumber 225))--c256_b_226 :: Chunk-c256_b_226 = bc256 (Just (T.ColorNumber 226))--c256_b_227 :: Chunk-c256_b_227 = bc256 (Just (T.ColorNumber 227))--c256_b_228 :: Chunk-c256_b_228 = bc256 (Just (T.ColorNumber 228))--c256_b_229 :: Chunk-c256_b_229 = bc256 (Just (T.ColorNumber 229))--c256_b_230 :: Chunk-c256_b_230 = bc256 (Just (T.ColorNumber 230))--c256_b_231 :: Chunk-c256_b_231 = bc256 (Just (T.ColorNumber 231))--c256_b_232 :: Chunk-c256_b_232 = bc256 (Just (T.ColorNumber 232))--c256_b_233 :: Chunk-c256_b_233 = bc256 (Just (T.ColorNumber 233))--c256_b_234 :: Chunk-c256_b_234 = bc256 (Just (T.ColorNumber 234))--c256_b_235 :: Chunk-c256_b_235 = bc256 (Just (T.ColorNumber 235))--c256_b_236 :: Chunk-c256_b_236 = bc256 (Just (T.ColorNumber 236))--c256_b_237 :: Chunk-c256_b_237 = bc256 (Just (T.ColorNumber 237))--c256_b_238 :: Chunk-c256_b_238 = bc256 (Just (T.ColorNumber 238))--c256_b_239 :: Chunk-c256_b_239 = bc256 (Just (T.ColorNumber 239))--c256_b_240 :: Chunk-c256_b_240 = bc256 (Just (T.ColorNumber 240))--c256_b_241 :: Chunk-c256_b_241 = bc256 (Just (T.ColorNumber 241))--c256_b_242 :: Chunk-c256_b_242 = bc256 (Just (T.ColorNumber 242))--c256_b_243 :: Chunk-c256_b_243 = bc256 (Just (T.ColorNumber 243))--c256_b_244 :: Chunk-c256_b_244 = bc256 (Just (T.ColorNumber 244))--c256_b_245 :: Chunk-c256_b_245 = bc256 (Just (T.ColorNumber 245))--c256_b_246 :: Chunk-c256_b_246 = bc256 (Just (T.ColorNumber 246))--c256_b_247 :: Chunk-c256_b_247 = bc256 (Just (T.ColorNumber 247))--c256_b_248 :: Chunk-c256_b_248 = bc256 (Just (T.ColorNumber 248))--c256_b_249 :: Chunk-c256_b_249 = bc256 (Just (T.ColorNumber 249))--c256_b_250 :: Chunk-c256_b_250 = bc256 (Just (T.ColorNumber 250))--c256_b_251 :: Chunk-c256_b_251 = bc256 (Just (T.ColorNumber 251))--c256_b_252 :: Chunk-c256_b_252 = bc256 (Just (T.ColorNumber 252))--c256_b_253 :: Chunk-c256_b_253 = bc256 (Just (T.ColorNumber 253))--c256_b_254 :: Chunk-c256_b_254 = bc256 (Just (T.ColorNumber 254))--c256_b_255 :: Chunk-c256_b_255 = bc256 (Just (T.ColorNumber 255))-+module System.Console.Rainbow+  (++  -- * Terminal definitions+    Term(..)+  , termFromEnv+  , smartTermFromEnv++  -- * Chunks+  , Chunk(..)+  , fromText++  -- * Printing chunks+  , putChunks+  , hPutChunks++  -- ** Printing one chunk at a time++  -- | These functions make it easy to print one chunk at a time. Each+  -- function initializes the terminal once for each chunk, unlike the+  -- list-oriented functions, which only initialize the terminal+  -- once. (Initialization does not clear the screen; rather, it is a+  -- process that the terminfo library requires.) Thus there might be+  -- a performance penalty for using these functions to print large+  -- numbers of chunks. Or, there might not be--I have not benchmarked+  -- them.+  --+  -- These functions use the default terminal, obtained using+  -- 'termFromEnv'.+  , putChunk+  , putChunkLn+  , hPutChunk+  , hPutChunkLn++  -- * Effects for both 8 and 256 color terminals++  -- | These 'Chunk's affect both 8 and 256 color terminals:+  --+  -- > putChunkLn $ "bold on 8 and 256 color terminals" <> bold+  --+  -- There are also 'Chunk's to turn an effect off, such as+  -- 'boldOff'. Ordinarily you will not need these because each chunk+  -- starts with no effects, so you only need to turn on the effects+  -- you want. However the @off@ 'Chunk's are here if you need them.++  , bold, boldOff+  , underline, underlineOff+  , flash, flashOff+  , inverse, inverseOff++  -- * Effects for 8-color terminals only++  -- | These 'Chunk's affect 8-color terminals only.+  --+  -- > putChunkLn $ "Bold on 8 color terminal only" <> bold8++  , bold8, bold8off+  , underline8, underline8off+  , flash8, flash8off+  , inverse8, inverse8off++  -- * Effects for 256-color terminals only++  -- | These 'Chunk's affect 256-color terminals only.+  --+  -- > putChunkLn $ "Underlined on 256-color terminal, "+  -- >              <> "bold on 8-color terminal"+  -- >              <> underlined256 <> bold8++  , bold256, bold256off+  , underline256, underline256off+  , flash256, flash256off+  , inverse256, inverse256off++  -- * Color chunks+  -- | All colors are within this module.+  , module System.Console.Rainbow.ColorChunks++  ) where++import System.Console.Rainbow.Types+import System.Console.Rainbow.ColorChunks

@@ -0,0 +1,1820 @@+-- | Color chunks.+--+-- Names in this module follow these connventions:+--+-- * The prefix @f_@ indicates that a Chunk affects foreground+-- colors.  The prefix @b_@ indicates background colors.+--+-- * The prefix @c8_@ indicates that a Chunk affects 8-color+-- terminals only; @c256_@ indicates 256-color terminals only.  If a+-- Chunk has neither prefix, it affects both 8- and 256-color+-- terminals.+--+-- * Some colors have names.  The color names assume a palette+-- similar to the default one that xterm uses.  Other colors simply+-- have numbers.  Ultimately the interpretation of either named or+-- numbered colors is up to the user's terminal.+module System.Console.Rainbow.ColorChunks where++import System.Console.Rainbow.Types+import qualified System.Console.Terminfo as T+import Data.Monoid++-- * Colors for both 8 and 256 color terminals++-- ** Foreground colors++f_default :: Chunk+f_default = c8_f_default <> c256_f_default++f_black :: Chunk+f_black = c8_f_black <> c256_f_black++f_red :: Chunk+f_red = c8_f_red <> c256_f_red++f_green :: Chunk+f_green = c8_f_green <> c256_f_green++f_yellow :: Chunk+f_yellow = c8_f_yellow <> c256_f_yellow++f_blue :: Chunk+f_blue = c8_f_blue <> c256_f_blue++f_magenta :: Chunk+f_magenta = c8_f_magenta <> c256_f_magenta++f_cyan :: Chunk+f_cyan = c8_f_cyan <> c256_f_cyan++f_white :: Chunk+f_white = c8_f_white <> c256_f_white++-- ** Background colors++b_default :: Chunk+b_default = c8_b_default <> c256_b_default++b_black :: Chunk+b_black = c8_b_black <> c256_b_black++b_red :: Chunk+b_red = c8_b_red <> c256_b_red++b_green :: Chunk+b_green = c8_b_green <> c256_b_green++b_yellow :: Chunk+b_yellow = c8_b_yellow <> c256_b_yellow++b_blue :: Chunk+b_blue = c8_b_blue <> c256_b_blue++b_magenta :: Chunk+b_magenta = c8_b_magenta <> c256_b_magenta++b_cyan :: Chunk+b_cyan = c8_b_cyan <> c256_b_cyan++b_white :: Chunk+b_white = c8_b_white <> c256_b_white+++-- * Specific colors+-- ** 8 color foreground colors+c8_f_default :: Chunk+c8_f_default = fc8 Nothing+++c8_f_black :: Chunk+c8_f_black = fc8 (Just T.Black)++c8_f_red :: Chunk+c8_f_red = fc8 (Just T.Red)++c8_f_green :: Chunk+c8_f_green = fc8 (Just T.Green)++c8_f_yellow :: Chunk+c8_f_yellow = fc8 (Just T.Yellow)++c8_f_blue :: Chunk+c8_f_blue = fc8 (Just T.Blue)++c8_f_magenta :: Chunk+c8_f_magenta = fc8 (Just T.Magenta)++c8_f_cyan :: Chunk+c8_f_cyan = fc8 (Just T.Cyan)++c8_f_white :: Chunk+c8_f_white = fc8 (Just T.White)++-- ** 8 color background colors++c8_b_default :: Chunk+c8_b_default = bc8 Nothing++c8_b_black :: Chunk+c8_b_black = bc8 (Just T.Black)++c8_b_red :: Chunk+c8_b_red = bc8 (Just T.Red)++c8_b_green :: Chunk+c8_b_green = bc8 (Just T.Green)++c8_b_yellow :: Chunk+c8_b_yellow = bc8 (Just T.Yellow)++c8_b_blue :: Chunk+c8_b_blue = bc8 (Just T.Blue)++c8_b_magenta :: Chunk+c8_b_magenta = bc8 (Just T.Magenta)++c8_b_cyan :: Chunk+c8_b_cyan = bc8 (Just T.Cyan)++c8_b_white :: Chunk+c8_b_white = bc8 (Just T.White)++-- ** 256 color foreground colors++c256_f_default :: Chunk+c256_f_default = fc256 Nothing+++c256_f_0 :: Chunk+c256_f_0 = fc256 (Just (T.ColorNumber 0))++c256_f_black :: Chunk+c256_f_black = fc256 (Just (T.ColorNumber 0))++c256_f_1 :: Chunk+c256_f_1 = fc256 (Just (T.ColorNumber 1))++c256_f_red :: Chunk+c256_f_red = fc256 (Just (T.ColorNumber 1))++c256_f_2 :: Chunk+c256_f_2 = fc256 (Just (T.ColorNumber 2))++c256_f_green :: Chunk+c256_f_green = fc256 (Just (T.ColorNumber 2))++c256_f_3 :: Chunk+c256_f_3 = fc256 (Just (T.ColorNumber 3))++c256_f_yellow :: Chunk+c256_f_yellow = fc256 (Just (T.ColorNumber 3))++c256_f_4 :: Chunk+c256_f_4 = fc256 (Just (T.ColorNumber 4))++c256_f_blue :: Chunk+c256_f_blue = fc256 (Just (T.ColorNumber 4))++c256_f_5 :: Chunk+c256_f_5 = fc256 (Just (T.ColorNumber 5))++c256_f_magenta :: Chunk+c256_f_magenta = fc256 (Just (T.ColorNumber 5))++c256_f_6 :: Chunk+c256_f_6 = fc256 (Just (T.ColorNumber 6))++c256_f_cyan :: Chunk+c256_f_cyan = fc256 (Just (T.ColorNumber 6))++c256_f_7 :: Chunk+c256_f_7 = fc256 (Just (T.ColorNumber 7))++c256_f_white :: Chunk+c256_f_white = fc256 (Just (T.ColorNumber 7))++c256_f_8 :: Chunk+c256_f_8 = fc256 (Just (T.ColorNumber 8))++c256_f_grey :: Chunk+c256_f_grey = fc256 (Just (T.ColorNumber 8))++c256_f_9 :: Chunk+c256_f_9 = fc256 (Just (T.ColorNumber 9))++c256_f_red_bright :: Chunk+c256_f_red_bright = fc256 (Just (T.ColorNumber 9))++c256_f_10 :: Chunk+c256_f_10 = fc256 (Just (T.ColorNumber 10))++c256_f_green_bright :: Chunk+c256_f_green_bright = fc256 (Just (T.ColorNumber 10))++c256_f_11 :: Chunk+c256_f_11 = fc256 (Just (T.ColorNumber 11))++c256_f_yellow_bright :: Chunk+c256_f_yellow_bright = fc256 (Just (T.ColorNumber 11))++c256_f_12 :: Chunk+c256_f_12 = fc256 (Just (T.ColorNumber 12))++c256_f_blue_bright :: Chunk+c256_f_blue_bright = fc256 (Just (T.ColorNumber 12))++c256_f_13 :: Chunk+c256_f_13 = fc256 (Just (T.ColorNumber 13))++c256_f_magenta_bright :: Chunk+c256_f_magenta_bright = fc256 (Just (T.ColorNumber 13))++c256_f_14 :: Chunk+c256_f_14 = fc256 (Just (T.ColorNumber 14))++c256_f_cyan_bright :: Chunk+c256_f_cyan_bright = fc256 (Just (T.ColorNumber 14))++c256_f_15 :: Chunk+c256_f_15 = fc256 (Just (T.ColorNumber 15))++c256_f_white_bright :: Chunk+c256_f_white_bright = fc256 (Just (T.ColorNumber 15))++c256_f_16 :: Chunk+c256_f_16 = fc256 (Just (T.ColorNumber 16))++c256_f_17 :: Chunk+c256_f_17 = fc256 (Just (T.ColorNumber 17))++c256_f_18 :: Chunk+c256_f_18 = fc256 (Just (T.ColorNumber 18))++c256_f_19 :: Chunk+c256_f_19 = fc256 (Just (T.ColorNumber 19))++c256_f_20 :: Chunk+c256_f_20 = fc256 (Just (T.ColorNumber 20))++c256_f_21 :: Chunk+c256_f_21 = fc256 (Just (T.ColorNumber 21))++c256_f_22 :: Chunk+c256_f_22 = fc256 (Just (T.ColorNumber 22))++c256_f_23 :: Chunk+c256_f_23 = fc256 (Just (T.ColorNumber 23))++c256_f_24 :: Chunk+c256_f_24 = fc256 (Just (T.ColorNumber 24))++c256_f_25 :: Chunk+c256_f_25 = fc256 (Just (T.ColorNumber 25))++c256_f_26 :: Chunk+c256_f_26 = fc256 (Just (T.ColorNumber 26))++c256_f_27 :: Chunk+c256_f_27 = fc256 (Just (T.ColorNumber 27))++c256_f_28 :: Chunk+c256_f_28 = fc256 (Just (T.ColorNumber 28))++c256_f_29 :: Chunk+c256_f_29 = fc256 (Just (T.ColorNumber 29))++c256_f_30 :: Chunk+c256_f_30 = fc256 (Just (T.ColorNumber 30))++c256_f_31 :: Chunk+c256_f_31 = fc256 (Just (T.ColorNumber 31))++c256_f_32 :: Chunk+c256_f_32 = fc256 (Just (T.ColorNumber 32))++c256_f_33 :: Chunk+c256_f_33 = fc256 (Just (T.ColorNumber 33))++c256_f_34 :: Chunk+c256_f_34 = fc256 (Just (T.ColorNumber 34))++c256_f_35 :: Chunk+c256_f_35 = fc256 (Just (T.ColorNumber 35))++c256_f_36 :: Chunk+c256_f_36 = fc256 (Just (T.ColorNumber 36))++c256_f_37 :: Chunk+c256_f_37 = fc256 (Just (T.ColorNumber 37))++c256_f_38 :: Chunk+c256_f_38 = fc256 (Just (T.ColorNumber 38))++c256_f_39 :: Chunk+c256_f_39 = fc256 (Just (T.ColorNumber 39))++c256_f_40 :: Chunk+c256_f_40 = fc256 (Just (T.ColorNumber 40))++c256_f_41 :: Chunk+c256_f_41 = fc256 (Just (T.ColorNumber 41))++c256_f_42 :: Chunk+c256_f_42 = fc256 (Just (T.ColorNumber 42))++c256_f_43 :: Chunk+c256_f_43 = fc256 (Just (T.ColorNumber 43))++c256_f_44 :: Chunk+c256_f_44 = fc256 (Just (T.ColorNumber 44))++c256_f_45 :: Chunk+c256_f_45 = fc256 (Just (T.ColorNumber 45))++c256_f_46 :: Chunk+c256_f_46 = fc256 (Just (T.ColorNumber 46))++c256_f_47 :: Chunk+c256_f_47 = fc256 (Just (T.ColorNumber 47))++c256_f_48 :: Chunk+c256_f_48 = fc256 (Just (T.ColorNumber 48))++c256_f_49 :: Chunk+c256_f_49 = fc256 (Just (T.ColorNumber 49))++c256_f_50 :: Chunk+c256_f_50 = fc256 (Just (T.ColorNumber 50))++c256_f_51 :: Chunk+c256_f_51 = fc256 (Just (T.ColorNumber 51))++c256_f_52 :: Chunk+c256_f_52 = fc256 (Just (T.ColorNumber 52))++c256_f_53 :: Chunk+c256_f_53 = fc256 (Just (T.ColorNumber 53))++c256_f_54 :: Chunk+c256_f_54 = fc256 (Just (T.ColorNumber 54))++c256_f_55 :: Chunk+c256_f_55 = fc256 (Just (T.ColorNumber 55))++c256_f_56 :: Chunk+c256_f_56 = fc256 (Just (T.ColorNumber 56))++c256_f_57 :: Chunk+c256_f_57 = fc256 (Just (T.ColorNumber 57))++c256_f_58 :: Chunk+c256_f_58 = fc256 (Just (T.ColorNumber 58))++c256_f_59 :: Chunk+c256_f_59 = fc256 (Just (T.ColorNumber 59))++c256_f_60 :: Chunk+c256_f_60 = fc256 (Just (T.ColorNumber 60))++c256_f_61 :: Chunk+c256_f_61 = fc256 (Just (T.ColorNumber 61))++c256_f_62 :: Chunk+c256_f_62 = fc256 (Just (T.ColorNumber 62))++c256_f_63 :: Chunk+c256_f_63 = fc256 (Just (T.ColorNumber 63))++c256_f_64 :: Chunk+c256_f_64 = fc256 (Just (T.ColorNumber 64))++c256_f_65 :: Chunk+c256_f_65 = fc256 (Just (T.ColorNumber 65))++c256_f_66 :: Chunk+c256_f_66 = fc256 (Just (T.ColorNumber 66))++c256_f_67 :: Chunk+c256_f_67 = fc256 (Just (T.ColorNumber 67))++c256_f_68 :: Chunk+c256_f_68 = fc256 (Just (T.ColorNumber 68))++c256_f_69 :: Chunk+c256_f_69 = fc256 (Just (T.ColorNumber 69))++c256_f_70 :: Chunk+c256_f_70 = fc256 (Just (T.ColorNumber 70))++c256_f_71 :: Chunk+c256_f_71 = fc256 (Just (T.ColorNumber 71))++c256_f_72 :: Chunk+c256_f_72 = fc256 (Just (T.ColorNumber 72))++c256_f_73 :: Chunk+c256_f_73 = fc256 (Just (T.ColorNumber 73))++c256_f_74 :: Chunk+c256_f_74 = fc256 (Just (T.ColorNumber 74))++c256_f_75 :: Chunk+c256_f_75 = fc256 (Just (T.ColorNumber 75))++c256_f_76 :: Chunk+c256_f_76 = fc256 (Just (T.ColorNumber 76))++c256_f_77 :: Chunk+c256_f_77 = fc256 (Just (T.ColorNumber 77))++c256_f_78 :: Chunk+c256_f_78 = fc256 (Just (T.ColorNumber 78))++c256_f_79 :: Chunk+c256_f_79 = fc256 (Just (T.ColorNumber 79))++c256_f_80 :: Chunk+c256_f_80 = fc256 (Just (T.ColorNumber 80))++c256_f_81 :: Chunk+c256_f_81 = fc256 (Just (T.ColorNumber 81))++c256_f_82 :: Chunk+c256_f_82 = fc256 (Just (T.ColorNumber 82))++c256_f_83 :: Chunk+c256_f_83 = fc256 (Just (T.ColorNumber 83))++c256_f_84 :: Chunk+c256_f_84 = fc256 (Just (T.ColorNumber 84))++c256_f_85 :: Chunk+c256_f_85 = fc256 (Just (T.ColorNumber 85))++c256_f_86 :: Chunk+c256_f_86 = fc256 (Just (T.ColorNumber 86))++c256_f_87 :: Chunk+c256_f_87 = fc256 (Just (T.ColorNumber 87))++c256_f_88 :: Chunk+c256_f_88 = fc256 (Just (T.ColorNumber 88))++c256_f_89 :: Chunk+c256_f_89 = fc256 (Just (T.ColorNumber 89))++c256_f_90 :: Chunk+c256_f_90 = fc256 (Just (T.ColorNumber 90))++c256_f_91 :: Chunk+c256_f_91 = fc256 (Just (T.ColorNumber 91))++c256_f_92 :: Chunk+c256_f_92 = fc256 (Just (T.ColorNumber 92))++c256_f_93 :: Chunk+c256_f_93 = fc256 (Just (T.ColorNumber 93))++c256_f_94 :: Chunk+c256_f_94 = fc256 (Just (T.ColorNumber 94))++c256_f_95 :: Chunk+c256_f_95 = fc256 (Just (T.ColorNumber 95))++c256_f_96 :: Chunk+c256_f_96 = fc256 (Just (T.ColorNumber 96))++c256_f_97 :: Chunk+c256_f_97 = fc256 (Just (T.ColorNumber 97))++c256_f_98 :: Chunk+c256_f_98 = fc256 (Just (T.ColorNumber 98))++c256_f_99 :: Chunk+c256_f_99 = fc256 (Just (T.ColorNumber 99))++c256_f_100 :: Chunk+c256_f_100 = fc256 (Just (T.ColorNumber 100))++c256_f_101 :: Chunk+c256_f_101 = fc256 (Just (T.ColorNumber 101))++c256_f_102 :: Chunk+c256_f_102 = fc256 (Just (T.ColorNumber 102))++c256_f_103 :: Chunk+c256_f_103 = fc256 (Just (T.ColorNumber 103))++c256_f_104 :: Chunk+c256_f_104 = fc256 (Just (T.ColorNumber 104))++c256_f_105 :: Chunk+c256_f_105 = fc256 (Just (T.ColorNumber 105))++c256_f_106 :: Chunk+c256_f_106 = fc256 (Just (T.ColorNumber 106))++c256_f_107 :: Chunk+c256_f_107 = fc256 (Just (T.ColorNumber 107))++c256_f_108 :: Chunk+c256_f_108 = fc256 (Just (T.ColorNumber 108))++c256_f_109 :: Chunk+c256_f_109 = fc256 (Just (T.ColorNumber 109))++c256_f_110 :: Chunk+c256_f_110 = fc256 (Just (T.ColorNumber 110))++c256_f_111 :: Chunk+c256_f_111 = fc256 (Just (T.ColorNumber 111))++c256_f_112 :: Chunk+c256_f_112 = fc256 (Just (T.ColorNumber 112))++c256_f_113 :: Chunk+c256_f_113 = fc256 (Just (T.ColorNumber 113))++c256_f_114 :: Chunk+c256_f_114 = fc256 (Just (T.ColorNumber 114))++c256_f_115 :: Chunk+c256_f_115 = fc256 (Just (T.ColorNumber 115))++c256_f_116 :: Chunk+c256_f_116 = fc256 (Just (T.ColorNumber 116))++c256_f_117 :: Chunk+c256_f_117 = fc256 (Just (T.ColorNumber 117))++c256_f_118 :: Chunk+c256_f_118 = fc256 (Just (T.ColorNumber 118))++c256_f_119 :: Chunk+c256_f_119 = fc256 (Just (T.ColorNumber 119))++c256_f_120 :: Chunk+c256_f_120 = fc256 (Just (T.ColorNumber 120))++c256_f_121 :: Chunk+c256_f_121 = fc256 (Just (T.ColorNumber 121))++c256_f_122 :: Chunk+c256_f_122 = fc256 (Just (T.ColorNumber 122))++c256_f_123 :: Chunk+c256_f_123 = fc256 (Just (T.ColorNumber 123))++c256_f_124 :: Chunk+c256_f_124 = fc256 (Just (T.ColorNumber 124))++c256_f_125 :: Chunk+c256_f_125 = fc256 (Just (T.ColorNumber 125))++c256_f_126 :: Chunk+c256_f_126 = fc256 (Just (T.ColorNumber 126))++c256_f_127 :: Chunk+c256_f_127 = fc256 (Just (T.ColorNumber 127))++c256_f_128 :: Chunk+c256_f_128 = fc256 (Just (T.ColorNumber 128))++c256_f_129 :: Chunk+c256_f_129 = fc256 (Just (T.ColorNumber 129))++c256_f_130 :: Chunk+c256_f_130 = fc256 (Just (T.ColorNumber 130))++c256_f_131 :: Chunk+c256_f_131 = fc256 (Just (T.ColorNumber 131))++c256_f_132 :: Chunk+c256_f_132 = fc256 (Just (T.ColorNumber 132))++c256_f_133 :: Chunk+c256_f_133 = fc256 (Just (T.ColorNumber 133))++c256_f_134 :: Chunk+c256_f_134 = fc256 (Just (T.ColorNumber 134))++c256_f_135 :: Chunk+c256_f_135 = fc256 (Just (T.ColorNumber 135))++c256_f_136 :: Chunk+c256_f_136 = fc256 (Just (T.ColorNumber 136))++c256_f_137 :: Chunk+c256_f_137 = fc256 (Just (T.ColorNumber 137))++c256_f_138 :: Chunk+c256_f_138 = fc256 (Just (T.ColorNumber 138))++c256_f_139 :: Chunk+c256_f_139 = fc256 (Just (T.ColorNumber 139))++c256_f_140 :: Chunk+c256_f_140 = fc256 (Just (T.ColorNumber 140))++c256_f_141 :: Chunk+c256_f_141 = fc256 (Just (T.ColorNumber 141))++c256_f_142 :: Chunk+c256_f_142 = fc256 (Just (T.ColorNumber 142))++c256_f_143 :: Chunk+c256_f_143 = fc256 (Just (T.ColorNumber 143))++c256_f_144 :: Chunk+c256_f_144 = fc256 (Just (T.ColorNumber 144))++c256_f_145 :: Chunk+c256_f_145 = fc256 (Just (T.ColorNumber 145))++c256_f_146 :: Chunk+c256_f_146 = fc256 (Just (T.ColorNumber 146))++c256_f_147 :: Chunk+c256_f_147 = fc256 (Just (T.ColorNumber 147))++c256_f_148 :: Chunk+c256_f_148 = fc256 (Just (T.ColorNumber 148))++c256_f_149 :: Chunk+c256_f_149 = fc256 (Just (T.ColorNumber 149))++c256_f_150 :: Chunk+c256_f_150 = fc256 (Just (T.ColorNumber 150))++c256_f_151 :: Chunk+c256_f_151 = fc256 (Just (T.ColorNumber 151))++c256_f_152 :: Chunk+c256_f_152 = fc256 (Just (T.ColorNumber 152))++c256_f_153 :: Chunk+c256_f_153 = fc256 (Just (T.ColorNumber 153))++c256_f_154 :: Chunk+c256_f_154 = fc256 (Just (T.ColorNumber 154))++c256_f_155 :: Chunk+c256_f_155 = fc256 (Just (T.ColorNumber 155))++c256_f_156 :: Chunk+c256_f_156 = fc256 (Just (T.ColorNumber 156))++c256_f_157 :: Chunk+c256_f_157 = fc256 (Just (T.ColorNumber 157))++c256_f_158 :: Chunk+c256_f_158 = fc256 (Just (T.ColorNumber 158))++c256_f_159 :: Chunk+c256_f_159 = fc256 (Just (T.ColorNumber 159))++c256_f_160 :: Chunk+c256_f_160 = fc256 (Just (T.ColorNumber 160))++c256_f_161 :: Chunk+c256_f_161 = fc256 (Just (T.ColorNumber 161))++c256_f_162 :: Chunk+c256_f_162 = fc256 (Just (T.ColorNumber 162))++c256_f_163 :: Chunk+c256_f_163 = fc256 (Just (T.ColorNumber 163))++c256_f_164 :: Chunk+c256_f_164 = fc256 (Just (T.ColorNumber 164))++c256_f_165 :: Chunk+c256_f_165 = fc256 (Just (T.ColorNumber 165))++c256_f_166 :: Chunk+c256_f_166 = fc256 (Just (T.ColorNumber 166))++c256_f_167 :: Chunk+c256_f_167 = fc256 (Just (T.ColorNumber 167))++c256_f_168 :: Chunk+c256_f_168 = fc256 (Just (T.ColorNumber 168))++c256_f_169 :: Chunk+c256_f_169 = fc256 (Just (T.ColorNumber 169))++c256_f_170 :: Chunk+c256_f_170 = fc256 (Just (T.ColorNumber 170))++c256_f_171 :: Chunk+c256_f_171 = fc256 (Just (T.ColorNumber 171))++c256_f_172 :: Chunk+c256_f_172 = fc256 (Just (T.ColorNumber 172))++c256_f_173 :: Chunk+c256_f_173 = fc256 (Just (T.ColorNumber 173))++c256_f_174 :: Chunk+c256_f_174 = fc256 (Just (T.ColorNumber 174))++c256_f_175 :: Chunk+c256_f_175 = fc256 (Just (T.ColorNumber 175))++c256_f_176 :: Chunk+c256_f_176 = fc256 (Just (T.ColorNumber 176))++c256_f_177 :: Chunk+c256_f_177 = fc256 (Just (T.ColorNumber 177))++c256_f_178 :: Chunk+c256_f_178 = fc256 (Just (T.ColorNumber 178))++c256_f_179 :: Chunk+c256_f_179 = fc256 (Just (T.ColorNumber 179))++c256_f_180 :: Chunk+c256_f_180 = fc256 (Just (T.ColorNumber 180))++c256_f_181 :: Chunk+c256_f_181 = fc256 (Just (T.ColorNumber 181))++c256_f_182 :: Chunk+c256_f_182 = fc256 (Just (T.ColorNumber 182))++c256_f_183 :: Chunk+c256_f_183 = fc256 (Just (T.ColorNumber 183))++c256_f_184 :: Chunk+c256_f_184 = fc256 (Just (T.ColorNumber 184))++c256_f_185 :: Chunk+c256_f_185 = fc256 (Just (T.ColorNumber 185))++c256_f_186 :: Chunk+c256_f_186 = fc256 (Just (T.ColorNumber 186))++c256_f_187 :: Chunk+c256_f_187 = fc256 (Just (T.ColorNumber 187))++c256_f_188 :: Chunk+c256_f_188 = fc256 (Just (T.ColorNumber 188))++c256_f_189 :: Chunk+c256_f_189 = fc256 (Just (T.ColorNumber 189))++c256_f_190 :: Chunk+c256_f_190 = fc256 (Just (T.ColorNumber 190))++c256_f_191 :: Chunk+c256_f_191 = fc256 (Just (T.ColorNumber 191))++c256_f_192 :: Chunk+c256_f_192 = fc256 (Just (T.ColorNumber 192))++c256_f_193 :: Chunk+c256_f_193 = fc256 (Just (T.ColorNumber 193))++c256_f_194 :: Chunk+c256_f_194 = fc256 (Just (T.ColorNumber 194))++c256_f_195 :: Chunk+c256_f_195 = fc256 (Just (T.ColorNumber 195))++c256_f_196 :: Chunk+c256_f_196 = fc256 (Just (T.ColorNumber 196))++c256_f_197 :: Chunk+c256_f_197 = fc256 (Just (T.ColorNumber 197))++c256_f_198 :: Chunk+c256_f_198 = fc256 (Just (T.ColorNumber 198))++c256_f_199 :: Chunk+c256_f_199 = fc256 (Just (T.ColorNumber 199))++c256_f_200 :: Chunk+c256_f_200 = fc256 (Just (T.ColorNumber 200))++c256_f_201 :: Chunk+c256_f_201 = fc256 (Just (T.ColorNumber 201))++c256_f_202 :: Chunk+c256_f_202 = fc256 (Just (T.ColorNumber 202))++c256_f_203 :: Chunk+c256_f_203 = fc256 (Just (T.ColorNumber 203))++c256_f_204 :: Chunk+c256_f_204 = fc256 (Just (T.ColorNumber 204))++c256_f_205 :: Chunk+c256_f_205 = fc256 (Just (T.ColorNumber 205))++c256_f_206 :: Chunk+c256_f_206 = fc256 (Just (T.ColorNumber 206))++c256_f_207 :: Chunk+c256_f_207 = fc256 (Just (T.ColorNumber 207))++c256_f_208 :: Chunk+c256_f_208 = fc256 (Just (T.ColorNumber 208))++c256_f_209 :: Chunk+c256_f_209 = fc256 (Just (T.ColorNumber 209))++c256_f_210 :: Chunk+c256_f_210 = fc256 (Just (T.ColorNumber 210))++c256_f_211 :: Chunk+c256_f_211 = fc256 (Just (T.ColorNumber 211))++c256_f_212 :: Chunk+c256_f_212 = fc256 (Just (T.ColorNumber 212))++c256_f_213 :: Chunk+c256_f_213 = fc256 (Just (T.ColorNumber 213))++c256_f_214 :: Chunk+c256_f_214 = fc256 (Just (T.ColorNumber 214))++c256_f_215 :: Chunk+c256_f_215 = fc256 (Just (T.ColorNumber 215))++c256_f_216 :: Chunk+c256_f_216 = fc256 (Just (T.ColorNumber 216))++c256_f_217 :: Chunk+c256_f_217 = fc256 (Just (T.ColorNumber 217))++c256_f_218 :: Chunk+c256_f_218 = fc256 (Just (T.ColorNumber 218))++c256_f_219 :: Chunk+c256_f_219 = fc256 (Just (T.ColorNumber 219))++c256_f_220 :: Chunk+c256_f_220 = fc256 (Just (T.ColorNumber 220))++c256_f_221 :: Chunk+c256_f_221 = fc256 (Just (T.ColorNumber 221))++c256_f_222 :: Chunk+c256_f_222 = fc256 (Just (T.ColorNumber 222))++c256_f_223 :: Chunk+c256_f_223 = fc256 (Just (T.ColorNumber 223))++c256_f_224 :: Chunk+c256_f_224 = fc256 (Just (T.ColorNumber 224))++c256_f_225 :: Chunk+c256_f_225 = fc256 (Just (T.ColorNumber 225))++c256_f_226 :: Chunk+c256_f_226 = fc256 (Just (T.ColorNumber 226))++c256_f_227 :: Chunk+c256_f_227 = fc256 (Just (T.ColorNumber 227))++c256_f_228 :: Chunk+c256_f_228 = fc256 (Just (T.ColorNumber 228))++c256_f_229 :: Chunk+c256_f_229 = fc256 (Just (T.ColorNumber 229))++c256_f_230 :: Chunk+c256_f_230 = fc256 (Just (T.ColorNumber 230))++c256_f_231 :: Chunk+c256_f_231 = fc256 (Just (T.ColorNumber 231))++c256_f_232 :: Chunk+c256_f_232 = fc256 (Just (T.ColorNumber 232))++c256_f_233 :: Chunk+c256_f_233 = fc256 (Just (T.ColorNumber 233))++c256_f_234 :: Chunk+c256_f_234 = fc256 (Just (T.ColorNumber 234))++c256_f_235 :: Chunk+c256_f_235 = fc256 (Just (T.ColorNumber 235))++c256_f_236 :: Chunk+c256_f_236 = fc256 (Just (T.ColorNumber 236))++c256_f_237 :: Chunk+c256_f_237 = fc256 (Just (T.ColorNumber 237))++c256_f_238 :: Chunk+c256_f_238 = fc256 (Just (T.ColorNumber 238))++c256_f_239 :: Chunk+c256_f_239 = fc256 (Just (T.ColorNumber 239))++c256_f_240 :: Chunk+c256_f_240 = fc256 (Just (T.ColorNumber 240))++c256_f_241 :: Chunk+c256_f_241 = fc256 (Just (T.ColorNumber 241))++c256_f_242 :: Chunk+c256_f_242 = fc256 (Just (T.ColorNumber 242))++c256_f_243 :: Chunk+c256_f_243 = fc256 (Just (T.ColorNumber 243))++c256_f_244 :: Chunk+c256_f_244 = fc256 (Just (T.ColorNumber 244))++c256_f_245 :: Chunk+c256_f_245 = fc256 (Just (T.ColorNumber 245))++c256_f_246 :: Chunk+c256_f_246 = fc256 (Just (T.ColorNumber 246))++c256_f_247 :: Chunk+c256_f_247 = fc256 (Just (T.ColorNumber 247))++c256_f_248 :: Chunk+c256_f_248 = fc256 (Just (T.ColorNumber 248))++c256_f_249 :: Chunk+c256_f_249 = fc256 (Just (T.ColorNumber 249))++c256_f_250 :: Chunk+c256_f_250 = fc256 (Just (T.ColorNumber 250))++c256_f_251 :: Chunk+c256_f_251 = fc256 (Just (T.ColorNumber 251))++c256_f_252 :: Chunk+c256_f_252 = fc256 (Just (T.ColorNumber 252))++c256_f_253 :: Chunk+c256_f_253 = fc256 (Just (T.ColorNumber 253))++c256_f_254 :: Chunk+c256_f_254 = fc256 (Just (T.ColorNumber 254))++c256_f_255 :: Chunk+c256_f_255 = fc256 (Just (T.ColorNumber 255))+++-- ** 256 color background colors++c256_b_default :: Chunk+c256_b_default = bc256 Nothing++c256_b_0 :: Chunk+c256_b_0 = bc256 (Just (T.ColorNumber 0))++c256_b_black :: Chunk+c256_b_black = bc256 (Just (T.ColorNumber 0))++c256_b_1 :: Chunk+c256_b_1 = bc256 (Just (T.ColorNumber 1))++c256_b_red :: Chunk+c256_b_red = bc256 (Just (T.ColorNumber 1))++c256_b_2 :: Chunk+c256_b_2 = bc256 (Just (T.ColorNumber 2))++c256_b_green :: Chunk+c256_b_green = bc256 (Just (T.ColorNumber 2))++c256_b_3 :: Chunk+c256_b_3 = bc256 (Just (T.ColorNumber 3))++c256_b_yellow :: Chunk+c256_b_yellow = bc256 (Just (T.ColorNumber 3))++c256_b_4 :: Chunk+c256_b_4 = bc256 (Just (T.ColorNumber 4))++c256_b_blue :: Chunk+c256_b_blue = bc256 (Just (T.ColorNumber 4))++c256_b_5 :: Chunk+c256_b_5 = bc256 (Just (T.ColorNumber 5))++c256_b_magenta :: Chunk+c256_b_magenta = bc256 (Just (T.ColorNumber 5))++c256_b_6 :: Chunk+c256_b_6 = bc256 (Just (T.ColorNumber 6))++c256_b_cyan :: Chunk+c256_b_cyan = bc256 (Just (T.ColorNumber 6))++c256_b_7 :: Chunk+c256_b_7 = bc256 (Just (T.ColorNumber 7))++c256_b_white :: Chunk+c256_b_white = bc256 (Just (T.ColorNumber 7))++c256_b_8 :: Chunk+c256_b_8 = bc256 (Just (T.ColorNumber 8))++c256_b_grey :: Chunk+c256_b_grey = bc256 (Just (T.ColorNumber 8))++c256_b_9 :: Chunk+c256_b_9 = bc256 (Just (T.ColorNumber 9))++c256_b_red_bright :: Chunk+c256_b_red_bright = bc256 (Just (T.ColorNumber 9))++c256_b_10 :: Chunk+c256_b_10 = bc256 (Just (T.ColorNumber 10))++c256_b_green_bright :: Chunk+c256_b_green_bright = bc256 (Just (T.ColorNumber 10))++c256_b_11 :: Chunk+c256_b_11 = bc256 (Just (T.ColorNumber 11))++c256_b_yellow_bright :: Chunk+c256_b_yellow_bright = bc256 (Just (T.ColorNumber 11))++c256_b_12 :: Chunk+c256_b_12 = bc256 (Just (T.ColorNumber 12))++c256_b_blue_bright :: Chunk+c256_b_blue_bright = bc256 (Just (T.ColorNumber 12))++c256_b_13 :: Chunk+c256_b_13 = bc256 (Just (T.ColorNumber 13))++c256_b_magenta_bright :: Chunk+c256_b_magenta_bright = bc256 (Just (T.ColorNumber 13))++c256_b_14 :: Chunk+c256_b_14 = bc256 (Just (T.ColorNumber 14))++c256_b_cyan_bright :: Chunk+c256_b_cyan_bright = bc256 (Just (T.ColorNumber 14))++c256_b_15 :: Chunk+c256_b_15 = bc256 (Just (T.ColorNumber 15))++c256_b_white_bright :: Chunk+c256_b_white_bright = bc256 (Just (T.ColorNumber 15))++c256_b_16 :: Chunk+c256_b_16 = bc256 (Just (T.ColorNumber 16))++c256_b_17 :: Chunk+c256_b_17 = bc256 (Just (T.ColorNumber 17))++c256_b_18 :: Chunk+c256_b_18 = bc256 (Just (T.ColorNumber 18))++c256_b_19 :: Chunk+c256_b_19 = bc256 (Just (T.ColorNumber 19))++c256_b_20 :: Chunk+c256_b_20 = bc256 (Just (T.ColorNumber 20))++c256_b_21 :: Chunk+c256_b_21 = bc256 (Just (T.ColorNumber 21))++c256_b_22 :: Chunk+c256_b_22 = bc256 (Just (T.ColorNumber 22))++c256_b_23 :: Chunk+c256_b_23 = bc256 (Just (T.ColorNumber 23))++c256_b_24 :: Chunk+c256_b_24 = bc256 (Just (T.ColorNumber 24))++c256_b_25 :: Chunk+c256_b_25 = bc256 (Just (T.ColorNumber 25))++c256_b_26 :: Chunk+c256_b_26 = bc256 (Just (T.ColorNumber 26))++c256_b_27 :: Chunk+c256_b_27 = bc256 (Just (T.ColorNumber 27))++c256_b_28 :: Chunk+c256_b_28 = bc256 (Just (T.ColorNumber 28))++c256_b_29 :: Chunk+c256_b_29 = bc256 (Just (T.ColorNumber 29))++c256_b_30 :: Chunk+c256_b_30 = bc256 (Just (T.ColorNumber 30))++c256_b_31 :: Chunk+c256_b_31 = bc256 (Just (T.ColorNumber 31))++c256_b_32 :: Chunk+c256_b_32 = bc256 (Just (T.ColorNumber 32))++c256_b_33 :: Chunk+c256_b_33 = bc256 (Just (T.ColorNumber 33))++c256_b_34 :: Chunk+c256_b_34 = bc256 (Just (T.ColorNumber 34))++c256_b_35 :: Chunk+c256_b_35 = bc256 (Just (T.ColorNumber 35))++c256_b_36 :: Chunk+c256_b_36 = bc256 (Just (T.ColorNumber 36))++c256_b_37 :: Chunk+c256_b_37 = bc256 (Just (T.ColorNumber 37))++c256_b_38 :: Chunk+c256_b_38 = bc256 (Just (T.ColorNumber 38))++c256_b_39 :: Chunk+c256_b_39 = bc256 (Just (T.ColorNumber 39))++c256_b_40 :: Chunk+c256_b_40 = bc256 (Just (T.ColorNumber 40))++c256_b_41 :: Chunk+c256_b_41 = bc256 (Just (T.ColorNumber 41))++c256_b_42 :: Chunk+c256_b_42 = bc256 (Just (T.ColorNumber 42))++c256_b_43 :: Chunk+c256_b_43 = bc256 (Just (T.ColorNumber 43))++c256_b_44 :: Chunk+c256_b_44 = bc256 (Just (T.ColorNumber 44))++c256_b_45 :: Chunk+c256_b_45 = bc256 (Just (T.ColorNumber 45))++c256_b_46 :: Chunk+c256_b_46 = bc256 (Just (T.ColorNumber 46))++c256_b_47 :: Chunk+c256_b_47 = bc256 (Just (T.ColorNumber 47))++c256_b_48 :: Chunk+c256_b_48 = bc256 (Just (T.ColorNumber 48))++c256_b_49 :: Chunk+c256_b_49 = bc256 (Just (T.ColorNumber 49))++c256_b_50 :: Chunk+c256_b_50 = bc256 (Just (T.ColorNumber 50))++c256_b_51 :: Chunk+c256_b_51 = bc256 (Just (T.ColorNumber 51))++c256_b_52 :: Chunk+c256_b_52 = bc256 (Just (T.ColorNumber 52))++c256_b_53 :: Chunk+c256_b_53 = bc256 (Just (T.ColorNumber 53))++c256_b_54 :: Chunk+c256_b_54 = bc256 (Just (T.ColorNumber 54))++c256_b_55 :: Chunk+c256_b_55 = bc256 (Just (T.ColorNumber 55))++c256_b_56 :: Chunk+c256_b_56 = bc256 (Just (T.ColorNumber 56))++c256_b_57 :: Chunk+c256_b_57 = bc256 (Just (T.ColorNumber 57))++c256_b_58 :: Chunk+c256_b_58 = bc256 (Just (T.ColorNumber 58))++c256_b_59 :: Chunk+c256_b_59 = bc256 (Just (T.ColorNumber 59))++c256_b_60 :: Chunk+c256_b_60 = bc256 (Just (T.ColorNumber 60))++c256_b_61 :: Chunk+c256_b_61 = bc256 (Just (T.ColorNumber 61))++c256_b_62 :: Chunk+c256_b_62 = bc256 (Just (T.ColorNumber 62))++c256_b_63 :: Chunk+c256_b_63 = bc256 (Just (T.ColorNumber 63))++c256_b_64 :: Chunk+c256_b_64 = bc256 (Just (T.ColorNumber 64))++c256_b_65 :: Chunk+c256_b_65 = bc256 (Just (T.ColorNumber 65))++c256_b_66 :: Chunk+c256_b_66 = bc256 (Just (T.ColorNumber 66))++c256_b_67 :: Chunk+c256_b_67 = bc256 (Just (T.ColorNumber 67))++c256_b_68 :: Chunk+c256_b_68 = bc256 (Just (T.ColorNumber 68))++c256_b_69 :: Chunk+c256_b_69 = bc256 (Just (T.ColorNumber 69))++c256_b_70 :: Chunk+c256_b_70 = bc256 (Just (T.ColorNumber 70))++c256_b_71 :: Chunk+c256_b_71 = bc256 (Just (T.ColorNumber 71))++c256_b_72 :: Chunk+c256_b_72 = bc256 (Just (T.ColorNumber 72))++c256_b_73 :: Chunk+c256_b_73 = bc256 (Just (T.ColorNumber 73))++c256_b_74 :: Chunk+c256_b_74 = bc256 (Just (T.ColorNumber 74))++c256_b_75 :: Chunk+c256_b_75 = bc256 (Just (T.ColorNumber 75))++c256_b_76 :: Chunk+c256_b_76 = bc256 (Just (T.ColorNumber 76))++c256_b_77 :: Chunk+c256_b_77 = bc256 (Just (T.ColorNumber 77))++c256_b_78 :: Chunk+c256_b_78 = bc256 (Just (T.ColorNumber 78))++c256_b_79 :: Chunk+c256_b_79 = bc256 (Just (T.ColorNumber 79))++c256_b_80 :: Chunk+c256_b_80 = bc256 (Just (T.ColorNumber 80))++c256_b_81 :: Chunk+c256_b_81 = bc256 (Just (T.ColorNumber 81))++c256_b_82 :: Chunk+c256_b_82 = bc256 (Just (T.ColorNumber 82))++c256_b_83 :: Chunk+c256_b_83 = bc256 (Just (T.ColorNumber 83))++c256_b_84 :: Chunk+c256_b_84 = bc256 (Just (T.ColorNumber 84))++c256_b_85 :: Chunk+c256_b_85 = bc256 (Just (T.ColorNumber 85))++c256_b_86 :: Chunk+c256_b_86 = bc256 (Just (T.ColorNumber 86))++c256_b_87 :: Chunk+c256_b_87 = bc256 (Just (T.ColorNumber 87))++c256_b_88 :: Chunk+c256_b_88 = bc256 (Just (T.ColorNumber 88))++c256_b_89 :: Chunk+c256_b_89 = bc256 (Just (T.ColorNumber 89))++c256_b_90 :: Chunk+c256_b_90 = bc256 (Just (T.ColorNumber 90))++c256_b_91 :: Chunk+c256_b_91 = bc256 (Just (T.ColorNumber 91))++c256_b_92 :: Chunk+c256_b_92 = bc256 (Just (T.ColorNumber 92))++c256_b_93 :: Chunk+c256_b_93 = bc256 (Just (T.ColorNumber 93))++c256_b_94 :: Chunk+c256_b_94 = bc256 (Just (T.ColorNumber 94))++c256_b_95 :: Chunk+c256_b_95 = bc256 (Just (T.ColorNumber 95))++c256_b_96 :: Chunk+c256_b_96 = bc256 (Just (T.ColorNumber 96))++c256_b_97 :: Chunk+c256_b_97 = bc256 (Just (T.ColorNumber 97))++c256_b_98 :: Chunk+c256_b_98 = bc256 (Just (T.ColorNumber 98))++c256_b_99 :: Chunk+c256_b_99 = bc256 (Just (T.ColorNumber 99))++c256_b_100 :: Chunk+c256_b_100 = bc256 (Just (T.ColorNumber 100))++c256_b_101 :: Chunk+c256_b_101 = bc256 (Just (T.ColorNumber 101))++c256_b_102 :: Chunk+c256_b_102 = bc256 (Just (T.ColorNumber 102))++c256_b_103 :: Chunk+c256_b_103 = bc256 (Just (T.ColorNumber 103))++c256_b_104 :: Chunk+c256_b_104 = bc256 (Just (T.ColorNumber 104))++c256_b_105 :: Chunk+c256_b_105 = bc256 (Just (T.ColorNumber 105))++c256_b_106 :: Chunk+c256_b_106 = bc256 (Just (T.ColorNumber 106))++c256_b_107 :: Chunk+c256_b_107 = bc256 (Just (T.ColorNumber 107))++c256_b_108 :: Chunk+c256_b_108 = bc256 (Just (T.ColorNumber 108))++c256_b_109 :: Chunk+c256_b_109 = bc256 (Just (T.ColorNumber 109))++c256_b_110 :: Chunk+c256_b_110 = bc256 (Just (T.ColorNumber 110))++c256_b_111 :: Chunk+c256_b_111 = bc256 (Just (T.ColorNumber 111))++c256_b_112 :: Chunk+c256_b_112 = bc256 (Just (T.ColorNumber 112))++c256_b_113 :: Chunk+c256_b_113 = bc256 (Just (T.ColorNumber 113))++c256_b_114 :: Chunk+c256_b_114 = bc256 (Just (T.ColorNumber 114))++c256_b_115 :: Chunk+c256_b_115 = bc256 (Just (T.ColorNumber 115))++c256_b_116 :: Chunk+c256_b_116 = bc256 (Just (T.ColorNumber 116))++c256_b_117 :: Chunk+c256_b_117 = bc256 (Just (T.ColorNumber 117))++c256_b_118 :: Chunk+c256_b_118 = bc256 (Just (T.ColorNumber 118))++c256_b_119 :: Chunk+c256_b_119 = bc256 (Just (T.ColorNumber 119))++c256_b_120 :: Chunk+c256_b_120 = bc256 (Just (T.ColorNumber 120))++c256_b_121 :: Chunk+c256_b_121 = bc256 (Just (T.ColorNumber 121))++c256_b_122 :: Chunk+c256_b_122 = bc256 (Just (T.ColorNumber 122))++c256_b_123 :: Chunk+c256_b_123 = bc256 (Just (T.ColorNumber 123))++c256_b_124 :: Chunk+c256_b_124 = bc256 (Just (T.ColorNumber 124))++c256_b_125 :: Chunk+c256_b_125 = bc256 (Just (T.ColorNumber 125))++c256_b_126 :: Chunk+c256_b_126 = bc256 (Just (T.ColorNumber 126))++c256_b_127 :: Chunk+c256_b_127 = bc256 (Just (T.ColorNumber 127))++c256_b_128 :: Chunk+c256_b_128 = bc256 (Just (T.ColorNumber 128))++c256_b_129 :: Chunk+c256_b_129 = bc256 (Just (T.ColorNumber 129))++c256_b_130 :: Chunk+c256_b_130 = bc256 (Just (T.ColorNumber 130))++c256_b_131 :: Chunk+c256_b_131 = bc256 (Just (T.ColorNumber 131))++c256_b_132 :: Chunk+c256_b_132 = bc256 (Just (T.ColorNumber 132))++c256_b_133 :: Chunk+c256_b_133 = bc256 (Just (T.ColorNumber 133))++c256_b_134 :: Chunk+c256_b_134 = bc256 (Just (T.ColorNumber 134))++c256_b_135 :: Chunk+c256_b_135 = bc256 (Just (T.ColorNumber 135))++c256_b_136 :: Chunk+c256_b_136 = bc256 (Just (T.ColorNumber 136))++c256_b_137 :: Chunk+c256_b_137 = bc256 (Just (T.ColorNumber 137))++c256_b_138 :: Chunk+c256_b_138 = bc256 (Just (T.ColorNumber 138))++c256_b_139 :: Chunk+c256_b_139 = bc256 (Just (T.ColorNumber 139))++c256_b_140 :: Chunk+c256_b_140 = bc256 (Just (T.ColorNumber 140))++c256_b_141 :: Chunk+c256_b_141 = bc256 (Just (T.ColorNumber 141))++c256_b_142 :: Chunk+c256_b_142 = bc256 (Just (T.ColorNumber 142))++c256_b_143 :: Chunk+c256_b_143 = bc256 (Just (T.ColorNumber 143))++c256_b_144 :: Chunk+c256_b_144 = bc256 (Just (T.ColorNumber 144))++c256_b_145 :: Chunk+c256_b_145 = bc256 (Just (T.ColorNumber 145))++c256_b_146 :: Chunk+c256_b_146 = bc256 (Just (T.ColorNumber 146))++c256_b_147 :: Chunk+c256_b_147 = bc256 (Just (T.ColorNumber 147))++c256_b_148 :: Chunk+c256_b_148 = bc256 (Just (T.ColorNumber 148))++c256_b_149 :: Chunk+c256_b_149 = bc256 (Just (T.ColorNumber 149))++c256_b_150 :: Chunk+c256_b_150 = bc256 (Just (T.ColorNumber 150))++c256_b_151 :: Chunk+c256_b_151 = bc256 (Just (T.ColorNumber 151))++c256_b_152 :: Chunk+c256_b_152 = bc256 (Just (T.ColorNumber 152))++c256_b_153 :: Chunk+c256_b_153 = bc256 (Just (T.ColorNumber 153))++c256_b_154 :: Chunk+c256_b_154 = bc256 (Just (T.ColorNumber 154))++c256_b_155 :: Chunk+c256_b_155 = bc256 (Just (T.ColorNumber 155))++c256_b_156 :: Chunk+c256_b_156 = bc256 (Just (T.ColorNumber 156))++c256_b_157 :: Chunk+c256_b_157 = bc256 (Just (T.ColorNumber 157))++c256_b_158 :: Chunk+c256_b_158 = bc256 (Just (T.ColorNumber 158))++c256_b_159 :: Chunk+c256_b_159 = bc256 (Just (T.ColorNumber 159))++c256_b_160 :: Chunk+c256_b_160 = bc256 (Just (T.ColorNumber 160))++c256_b_161 :: Chunk+c256_b_161 = bc256 (Just (T.ColorNumber 161))++c256_b_162 :: Chunk+c256_b_162 = bc256 (Just (T.ColorNumber 162))++c256_b_163 :: Chunk+c256_b_163 = bc256 (Just (T.ColorNumber 163))++c256_b_164 :: Chunk+c256_b_164 = bc256 (Just (T.ColorNumber 164))++c256_b_165 :: Chunk+c256_b_165 = bc256 (Just (T.ColorNumber 165))++c256_b_166 :: Chunk+c256_b_166 = bc256 (Just (T.ColorNumber 166))++c256_b_167 :: Chunk+c256_b_167 = bc256 (Just (T.ColorNumber 167))++c256_b_168 :: Chunk+c256_b_168 = bc256 (Just (T.ColorNumber 168))++c256_b_169 :: Chunk+c256_b_169 = bc256 (Just (T.ColorNumber 169))++c256_b_170 :: Chunk+c256_b_170 = bc256 (Just (T.ColorNumber 170))++c256_b_171 :: Chunk+c256_b_171 = bc256 (Just (T.ColorNumber 171))++c256_b_172 :: Chunk+c256_b_172 = bc256 (Just (T.ColorNumber 172))++c256_b_173 :: Chunk+c256_b_173 = bc256 (Just (T.ColorNumber 173))++c256_b_174 :: Chunk+c256_b_174 = bc256 (Just (T.ColorNumber 174))++c256_b_175 :: Chunk+c256_b_175 = bc256 (Just (T.ColorNumber 175))++c256_b_176 :: Chunk+c256_b_176 = bc256 (Just (T.ColorNumber 176))++c256_b_177 :: Chunk+c256_b_177 = bc256 (Just (T.ColorNumber 177))++c256_b_178 :: Chunk+c256_b_178 = bc256 (Just (T.ColorNumber 178))++c256_b_179 :: Chunk+c256_b_179 = bc256 (Just (T.ColorNumber 179))++c256_b_180 :: Chunk+c256_b_180 = bc256 (Just (T.ColorNumber 180))++c256_b_181 :: Chunk+c256_b_181 = bc256 (Just (T.ColorNumber 181))++c256_b_182 :: Chunk+c256_b_182 = bc256 (Just (T.ColorNumber 182))++c256_b_183 :: Chunk+c256_b_183 = bc256 (Just (T.ColorNumber 183))++c256_b_184 :: Chunk+c256_b_184 = bc256 (Just (T.ColorNumber 184))++c256_b_185 :: Chunk+c256_b_185 = bc256 (Just (T.ColorNumber 185))++c256_b_186 :: Chunk+c256_b_186 = bc256 (Just (T.ColorNumber 186))++c256_b_187 :: Chunk+c256_b_187 = bc256 (Just (T.ColorNumber 187))++c256_b_188 :: Chunk+c256_b_188 = bc256 (Just (T.ColorNumber 188))++c256_b_189 :: Chunk+c256_b_189 = bc256 (Just (T.ColorNumber 189))++c256_b_190 :: Chunk+c256_b_190 = bc256 (Just (T.ColorNumber 190))++c256_b_191 :: Chunk+c256_b_191 = bc256 (Just (T.ColorNumber 191))++c256_b_192 :: Chunk+c256_b_192 = bc256 (Just (T.ColorNumber 192))++c256_b_193 :: Chunk+c256_b_193 = bc256 (Just (T.ColorNumber 193))++c256_b_194 :: Chunk+c256_b_194 = bc256 (Just (T.ColorNumber 194))++c256_b_195 :: Chunk+c256_b_195 = bc256 (Just (T.ColorNumber 195))++c256_b_196 :: Chunk+c256_b_196 = bc256 (Just (T.ColorNumber 196))++c256_b_197 :: Chunk+c256_b_197 = bc256 (Just (T.ColorNumber 197))++c256_b_198 :: Chunk+c256_b_198 = bc256 (Just (T.ColorNumber 198))++c256_b_199 :: Chunk+c256_b_199 = bc256 (Just (T.ColorNumber 199))++c256_b_200 :: Chunk+c256_b_200 = bc256 (Just (T.ColorNumber 200))++c256_b_201 :: Chunk+c256_b_201 = bc256 (Just (T.ColorNumber 201))++c256_b_202 :: Chunk+c256_b_202 = bc256 (Just (T.ColorNumber 202))++c256_b_203 :: Chunk+c256_b_203 = bc256 (Just (T.ColorNumber 203))++c256_b_204 :: Chunk+c256_b_204 = bc256 (Just (T.ColorNumber 204))++c256_b_205 :: Chunk+c256_b_205 = bc256 (Just (T.ColorNumber 205))++c256_b_206 :: Chunk+c256_b_206 = bc256 (Just (T.ColorNumber 206))++c256_b_207 :: Chunk+c256_b_207 = bc256 (Just (T.ColorNumber 207))++c256_b_208 :: Chunk+c256_b_208 = bc256 (Just (T.ColorNumber 208))++c256_b_209 :: Chunk+c256_b_209 = bc256 (Just (T.ColorNumber 209))++c256_b_210 :: Chunk+c256_b_210 = bc256 (Just (T.ColorNumber 210))++c256_b_211 :: Chunk+c256_b_211 = bc256 (Just (T.ColorNumber 211))++c256_b_212 :: Chunk+c256_b_212 = bc256 (Just (T.ColorNumber 212))++c256_b_213 :: Chunk+c256_b_213 = bc256 (Just (T.ColorNumber 213))++c256_b_214 :: Chunk+c256_b_214 = bc256 (Just (T.ColorNumber 214))++c256_b_215 :: Chunk+c256_b_215 = bc256 (Just (T.ColorNumber 215))++c256_b_216 :: Chunk+c256_b_216 = bc256 (Just (T.ColorNumber 216))++c256_b_217 :: Chunk+c256_b_217 = bc256 (Just (T.ColorNumber 217))++c256_b_218 :: Chunk+c256_b_218 = bc256 (Just (T.ColorNumber 218))++c256_b_219 :: Chunk+c256_b_219 = bc256 (Just (T.ColorNumber 219))++c256_b_220 :: Chunk+c256_b_220 = bc256 (Just (T.ColorNumber 220))++c256_b_221 :: Chunk+c256_b_221 = bc256 (Just (T.ColorNumber 221))++c256_b_222 :: Chunk+c256_b_222 = bc256 (Just (T.ColorNumber 222))++c256_b_223 :: Chunk+c256_b_223 = bc256 (Just (T.ColorNumber 223))++c256_b_224 :: Chunk+c256_b_224 = bc256 (Just (T.ColorNumber 224))++c256_b_225 :: Chunk+c256_b_225 = bc256 (Just (T.ColorNumber 225))++c256_b_226 :: Chunk+c256_b_226 = bc256 (Just (T.ColorNumber 226))++c256_b_227 :: Chunk+c256_b_227 = bc256 (Just (T.ColorNumber 227))++c256_b_228 :: Chunk+c256_b_228 = bc256 (Just (T.ColorNumber 228))++c256_b_229 :: Chunk+c256_b_229 = bc256 (Just (T.ColorNumber 229))++c256_b_230 :: Chunk+c256_b_230 = bc256 (Just (T.ColorNumber 230))++c256_b_231 :: Chunk+c256_b_231 = bc256 (Just (T.ColorNumber 231))++c256_b_232 :: Chunk+c256_b_232 = bc256 (Just (T.ColorNumber 232))++c256_b_233 :: Chunk+c256_b_233 = bc256 (Just (T.ColorNumber 233))++c256_b_234 :: Chunk+c256_b_234 = bc256 (Just (T.ColorNumber 234))++c256_b_235 :: Chunk+c256_b_235 = bc256 (Just (T.ColorNumber 235))++c256_b_236 :: Chunk+c256_b_236 = bc256 (Just (T.ColorNumber 236))++c256_b_237 :: Chunk+c256_b_237 = bc256 (Just (T.ColorNumber 237))++c256_b_238 :: Chunk+c256_b_238 = bc256 (Just (T.ColorNumber 238))++c256_b_239 :: Chunk+c256_b_239 = bc256 (Just (T.ColorNumber 239))++c256_b_240 :: Chunk+c256_b_240 = bc256 (Just (T.ColorNumber 240))++c256_b_241 :: Chunk+c256_b_241 = bc256 (Just (T.ColorNumber 241))++c256_b_242 :: Chunk+c256_b_242 = bc256 (Just (T.ColorNumber 242))++c256_b_243 :: Chunk+c256_b_243 = bc256 (Just (T.ColorNumber 243))++c256_b_244 :: Chunk+c256_b_244 = bc256 (Just (T.ColorNumber 244))++c256_b_245 :: Chunk+c256_b_245 = bc256 (Just (T.ColorNumber 245))++c256_b_246 :: Chunk+c256_b_246 = bc256 (Just (T.ColorNumber 246))++c256_b_247 :: Chunk+c256_b_247 = bc256 (Just (T.ColorNumber 247))++c256_b_248 :: Chunk+c256_b_248 = bc256 (Just (T.ColorNumber 248))++c256_b_249 :: Chunk+c256_b_249 = bc256 (Just (T.ColorNumber 249))++c256_b_250 :: Chunk+c256_b_250 = bc256 (Just (T.ColorNumber 250))++c256_b_251 :: Chunk+c256_b_251 = bc256 (Just (T.ColorNumber 251))++c256_b_252 :: Chunk+c256_b_252 = bc256 (Just (T.ColorNumber 252))++c256_b_253 :: Chunk+c256_b_253 = bc256 (Just (T.ColorNumber 253))++c256_b_254 :: Chunk+c256_b_254 = bc256 (Just (T.ColorNumber 254))++c256_b_255 :: Chunk+c256_b_255 = bc256 (Just (T.ColorNumber 255))++-- * Utility functions++-- | Make a terminfo Color into a 8-color foreground Chunk.+fc8 :: Maybe T.Color -> Chunk+fc8 c = x { textSpec = (textSpec x) {+  style8 = (style8 (textSpec x)) {+    foreground8 = Last (Just c) }}}+  where+    x = mempty++-- | Make a terminfo Color into a 8-color background Chunk.+bc8 :: Maybe T.Color -> Chunk+bc8 c = x { textSpec = (textSpec x) {+  style8 = (style8 (textSpec x)) {+    background8 = Last (Just c) }}}+  where+    x = mempty++-- | Make a terminfo Color into a 256-color foreground Chunk.+fc256 :: Maybe T.Color -> Chunk+fc256 c = x { textSpec = (textSpec x) {+  style256 = (style256 (textSpec x)) {+    foreground256 = Last (Just c) }}}+  where+    x = mempty++-- | Make a terminfo Color into a 256-color background Chunk.+bc256 :: Maybe T.Color -> Chunk+bc256 c = x { textSpec = (textSpec x) {+  style256 = (style256 (textSpec x)) {+    background256 = Last (Just c) }}}+  where+    x = mempty+

@@ -0,0 +1,1713 @@+-- | Ordinarily you should not need this module.  Typically you will+-- just need to use "System.Console.Rainbow.ColorChunks", which is+-- re-exported from "System.Console.Rainbow".  However this module+-- can be useful if you want names for individual colors, as opposed+-- to names for chunks, which is what+-- "System.Console.Rainbow.ColorChunks" provides.+module System.Console.Rainbow.Colors where++import qualified System.Console.Terminfo as T++-- # 8 color foreground++c8_f_default :: Maybe T.Color+c8_f_default = Nothing++c8_f_black :: Maybe T.Color+c8_f_black = (Just T.Black)++c8_f_red :: Maybe T.Color+c8_f_red = (Just T.Red)++c8_f_green :: Maybe T.Color+c8_f_green = (Just T.Green)++c8_f_yellow :: Maybe T.Color+c8_f_yellow = (Just T.Yellow)++c8_f_blue :: Maybe T.Color+c8_f_blue = (Just T.Blue)++c8_f_magenta :: Maybe T.Color+c8_f_magenta = (Just T.Magenta)++c8_f_cyan :: Maybe T.Color+c8_f_cyan = (Just T.Cyan)++c8_f_white :: Maybe T.Color+c8_f_white = (Just T.White)+++-- # 8 color background++c8_b_default :: Maybe T.Color+c8_b_default = Nothing++c8_b_black :: Maybe T.Color+c8_b_black = (Just T.Black)++c8_b_red :: Maybe T.Color+c8_b_red = (Just T.Red)++c8_b_green :: Maybe T.Color+c8_b_green = (Just T.Green)++c8_b_yellow :: Maybe T.Color+c8_b_yellow = (Just T.Yellow)++c8_b_blue :: Maybe T.Color+c8_b_blue = (Just T.Blue)++c8_b_magenta :: Maybe T.Color+c8_b_magenta = (Just T.Magenta)++c8_b_cyan :: Maybe T.Color+c8_b_cyan = (Just T.Cyan)++c8_b_white :: Maybe T.Color+c8_b_white = (Just T.White)++-- # 256 color foreground++c256_f_default :: Maybe T.Color+c256_f_default = Nothing+++c256_f_0 :: Maybe T.Color+c256_f_0 = (Just (T.ColorNumber 0))++c256_f_black :: Maybe T.Color+c256_f_black = (Just (T.ColorNumber 0))++c256_f_1 :: Maybe T.Color+c256_f_1 = (Just (T.ColorNumber 1))++c256_f_red :: Maybe T.Color+c256_f_red = (Just (T.ColorNumber 1))++c256_f_2 :: Maybe T.Color+c256_f_2 = (Just (T.ColorNumber 2))++c256_f_green :: Maybe T.Color+c256_f_green = (Just (T.ColorNumber 2))++c256_f_3 :: Maybe T.Color+c256_f_3 = (Just (T.ColorNumber 3))++c256_f_yellow :: Maybe T.Color+c256_f_yellow = (Just (T.ColorNumber 3))++c256_f_4 :: Maybe T.Color+c256_f_4 = (Just (T.ColorNumber 4))++c256_f_blue :: Maybe T.Color+c256_f_blue = (Just (T.ColorNumber 4))++c256_f_5 :: Maybe T.Color+c256_f_5 = (Just (T.ColorNumber 5))++c256_f_magenta :: Maybe T.Color+c256_f_magenta = (Just (T.ColorNumber 5))++c256_f_6 :: Maybe T.Color+c256_f_6 = (Just (T.ColorNumber 6))++c256_f_cyan :: Maybe T.Color+c256_f_cyan = (Just (T.ColorNumber 6))++c256_f_7 :: Maybe T.Color+c256_f_7 = (Just (T.ColorNumber 7))++c256_f_white :: Maybe T.Color+c256_f_white = (Just (T.ColorNumber 7))++c256_f_8 :: Maybe T.Color+c256_f_8 = (Just (T.ColorNumber 8))++c256_f_grey :: Maybe T.Color+c256_f_grey = (Just (T.ColorNumber 8))++c256_f_9 :: Maybe T.Color+c256_f_9 = (Just (T.ColorNumber 9))++c256_f_red_bright :: Maybe T.Color+c256_f_red_bright = (Just (T.ColorNumber 9))++c256_f_10 :: Maybe T.Color+c256_f_10 = (Just (T.ColorNumber 10))++c256_f_green_bright :: Maybe T.Color+c256_f_green_bright = (Just (T.ColorNumber 10))++c256_f_11 :: Maybe T.Color+c256_f_11 = (Just (T.ColorNumber 11))++c256_f_yellow_bright :: Maybe T.Color+c256_f_yellow_bright = (Just (T.ColorNumber 11))++c256_f_12 :: Maybe T.Color+c256_f_12 = (Just (T.ColorNumber 12))++c256_f_blue_bright :: Maybe T.Color+c256_f_blue_bright = (Just (T.ColorNumber 12))++c256_f_13 :: Maybe T.Color+c256_f_13 = (Just (T.ColorNumber 13))++c256_f_magenta_bright :: Maybe T.Color+c256_f_magenta_bright = (Just (T.ColorNumber 13))++c256_f_14 :: Maybe T.Color+c256_f_14 = (Just (T.ColorNumber 14))++c256_f_cyan_bright :: Maybe T.Color+c256_f_cyan_bright = (Just (T.ColorNumber 14))++c256_f_15 :: Maybe T.Color+c256_f_15 = (Just (T.ColorNumber 15))++c256_f_white_bright :: Maybe T.Color+c256_f_white_bright = (Just (T.ColorNumber 15))++c256_f_16 :: Maybe T.Color+c256_f_16 = (Just (T.ColorNumber 16))++c256_f_17 :: Maybe T.Color+c256_f_17 = (Just (T.ColorNumber 17))++c256_f_18 :: Maybe T.Color+c256_f_18 = (Just (T.ColorNumber 18))++c256_f_19 :: Maybe T.Color+c256_f_19 = (Just (T.ColorNumber 19))++c256_f_20 :: Maybe T.Color+c256_f_20 = (Just (T.ColorNumber 20))++c256_f_21 :: Maybe T.Color+c256_f_21 = (Just (T.ColorNumber 21))++c256_f_22 :: Maybe T.Color+c256_f_22 = (Just (T.ColorNumber 22))++c256_f_23 :: Maybe T.Color+c256_f_23 = (Just (T.ColorNumber 23))++c256_f_24 :: Maybe T.Color+c256_f_24 = (Just (T.ColorNumber 24))++c256_f_25 :: Maybe T.Color+c256_f_25 = (Just (T.ColorNumber 25))++c256_f_26 :: Maybe T.Color+c256_f_26 = (Just (T.ColorNumber 26))++c256_f_27 :: Maybe T.Color+c256_f_27 = (Just (T.ColorNumber 27))++c256_f_28 :: Maybe T.Color+c256_f_28 = (Just (T.ColorNumber 28))++c256_f_29 :: Maybe T.Color+c256_f_29 = (Just (T.ColorNumber 29))++c256_f_30 :: Maybe T.Color+c256_f_30 = (Just (T.ColorNumber 30))++c256_f_31 :: Maybe T.Color+c256_f_31 = (Just (T.ColorNumber 31))++c256_f_32 :: Maybe T.Color+c256_f_32 = (Just (T.ColorNumber 32))++c256_f_33 :: Maybe T.Color+c256_f_33 = (Just (T.ColorNumber 33))++c256_f_34 :: Maybe T.Color+c256_f_34 = (Just (T.ColorNumber 34))++c256_f_35 :: Maybe T.Color+c256_f_35 = (Just (T.ColorNumber 35))++c256_f_36 :: Maybe T.Color+c256_f_36 = (Just (T.ColorNumber 36))++c256_f_37 :: Maybe T.Color+c256_f_37 = (Just (T.ColorNumber 37))++c256_f_38 :: Maybe T.Color+c256_f_38 = (Just (T.ColorNumber 38))++c256_f_39 :: Maybe T.Color+c256_f_39 = (Just (T.ColorNumber 39))++c256_f_40 :: Maybe T.Color+c256_f_40 = (Just (T.ColorNumber 40))++c256_f_41 :: Maybe T.Color+c256_f_41 = (Just (T.ColorNumber 41))++c256_f_42 :: Maybe T.Color+c256_f_42 = (Just (T.ColorNumber 42))++c256_f_43 :: Maybe T.Color+c256_f_43 = (Just (T.ColorNumber 43))++c256_f_44 :: Maybe T.Color+c256_f_44 = (Just (T.ColorNumber 44))++c256_f_45 :: Maybe T.Color+c256_f_45 = (Just (T.ColorNumber 45))++c256_f_46 :: Maybe T.Color+c256_f_46 = (Just (T.ColorNumber 46))++c256_f_47 :: Maybe T.Color+c256_f_47 = (Just (T.ColorNumber 47))++c256_f_48 :: Maybe T.Color+c256_f_48 = (Just (T.ColorNumber 48))++c256_f_49 :: Maybe T.Color+c256_f_49 = (Just (T.ColorNumber 49))++c256_f_50 :: Maybe T.Color+c256_f_50 = (Just (T.ColorNumber 50))++c256_f_51 :: Maybe T.Color+c256_f_51 = (Just (T.ColorNumber 51))++c256_f_52 :: Maybe T.Color+c256_f_52 = (Just (T.ColorNumber 52))++c256_f_53 :: Maybe T.Color+c256_f_53 = (Just (T.ColorNumber 53))++c256_f_54 :: Maybe T.Color+c256_f_54 = (Just (T.ColorNumber 54))++c256_f_55 :: Maybe T.Color+c256_f_55 = (Just (T.ColorNumber 55))++c256_f_56 :: Maybe T.Color+c256_f_56 = (Just (T.ColorNumber 56))++c256_f_57 :: Maybe T.Color+c256_f_57 = (Just (T.ColorNumber 57))++c256_f_58 :: Maybe T.Color+c256_f_58 = (Just (T.ColorNumber 58))++c256_f_59 :: Maybe T.Color+c256_f_59 = (Just (T.ColorNumber 59))++c256_f_60 :: Maybe T.Color+c256_f_60 = (Just (T.ColorNumber 60))++c256_f_61 :: Maybe T.Color+c256_f_61 = (Just (T.ColorNumber 61))++c256_f_62 :: Maybe T.Color+c256_f_62 = (Just (T.ColorNumber 62))++c256_f_63 :: Maybe T.Color+c256_f_63 = (Just (T.ColorNumber 63))++c256_f_64 :: Maybe T.Color+c256_f_64 = (Just (T.ColorNumber 64))++c256_f_65 :: Maybe T.Color+c256_f_65 = (Just (T.ColorNumber 65))++c256_f_66 :: Maybe T.Color+c256_f_66 = (Just (T.ColorNumber 66))++c256_f_67 :: Maybe T.Color+c256_f_67 = (Just (T.ColorNumber 67))++c256_f_68 :: Maybe T.Color+c256_f_68 = (Just (T.ColorNumber 68))++c256_f_69 :: Maybe T.Color+c256_f_69 = (Just (T.ColorNumber 69))++c256_f_70 :: Maybe T.Color+c256_f_70 = (Just (T.ColorNumber 70))++c256_f_71 :: Maybe T.Color+c256_f_71 = (Just (T.ColorNumber 71))++c256_f_72 :: Maybe T.Color+c256_f_72 = (Just (T.ColorNumber 72))++c256_f_73 :: Maybe T.Color+c256_f_73 = (Just (T.ColorNumber 73))++c256_f_74 :: Maybe T.Color+c256_f_74 = (Just (T.ColorNumber 74))++c256_f_75 :: Maybe T.Color+c256_f_75 = (Just (T.ColorNumber 75))++c256_f_76 :: Maybe T.Color+c256_f_76 = (Just (T.ColorNumber 76))++c256_f_77 :: Maybe T.Color+c256_f_77 = (Just (T.ColorNumber 77))++c256_f_78 :: Maybe T.Color+c256_f_78 = (Just (T.ColorNumber 78))++c256_f_79 :: Maybe T.Color+c256_f_79 = (Just (T.ColorNumber 79))++c256_f_80 :: Maybe T.Color+c256_f_80 = (Just (T.ColorNumber 80))++c256_f_81 :: Maybe T.Color+c256_f_81 = (Just (T.ColorNumber 81))++c256_f_82 :: Maybe T.Color+c256_f_82 = (Just (T.ColorNumber 82))++c256_f_83 :: Maybe T.Color+c256_f_83 = (Just (T.ColorNumber 83))++c256_f_84 :: Maybe T.Color+c256_f_84 = (Just (T.ColorNumber 84))++c256_f_85 :: Maybe T.Color+c256_f_85 = (Just (T.ColorNumber 85))++c256_f_86 :: Maybe T.Color+c256_f_86 = (Just (T.ColorNumber 86))++c256_f_87 :: Maybe T.Color+c256_f_87 = (Just (T.ColorNumber 87))++c256_f_88 :: Maybe T.Color+c256_f_88 = (Just (T.ColorNumber 88))++c256_f_89 :: Maybe T.Color+c256_f_89 = (Just (T.ColorNumber 89))++c256_f_90 :: Maybe T.Color+c256_f_90 = (Just (T.ColorNumber 90))++c256_f_91 :: Maybe T.Color+c256_f_91 = (Just (T.ColorNumber 91))++c256_f_92 :: Maybe T.Color+c256_f_92 = (Just (T.ColorNumber 92))++c256_f_93 :: Maybe T.Color+c256_f_93 = (Just (T.ColorNumber 93))++c256_f_94 :: Maybe T.Color+c256_f_94 = (Just (T.ColorNumber 94))++c256_f_95 :: Maybe T.Color+c256_f_95 = (Just (T.ColorNumber 95))++c256_f_96 :: Maybe T.Color+c256_f_96 = (Just (T.ColorNumber 96))++c256_f_97 :: Maybe T.Color+c256_f_97 = (Just (T.ColorNumber 97))++c256_f_98 :: Maybe T.Color+c256_f_98 = (Just (T.ColorNumber 98))++c256_f_99 :: Maybe T.Color+c256_f_99 = (Just (T.ColorNumber 99))++c256_f_100 :: Maybe T.Color+c256_f_100 = (Just (T.ColorNumber 100))++c256_f_101 :: Maybe T.Color+c256_f_101 = (Just (T.ColorNumber 101))++c256_f_102 :: Maybe T.Color+c256_f_102 = (Just (T.ColorNumber 102))++c256_f_103 :: Maybe T.Color+c256_f_103 = (Just (T.ColorNumber 103))++c256_f_104 :: Maybe T.Color+c256_f_104 = (Just (T.ColorNumber 104))++c256_f_105 :: Maybe T.Color+c256_f_105 = (Just (T.ColorNumber 105))++c256_f_106 :: Maybe T.Color+c256_f_106 = (Just (T.ColorNumber 106))++c256_f_107 :: Maybe T.Color+c256_f_107 = (Just (T.ColorNumber 107))++c256_f_108 :: Maybe T.Color+c256_f_108 = (Just (T.ColorNumber 108))++c256_f_109 :: Maybe T.Color+c256_f_109 = (Just (T.ColorNumber 109))++c256_f_110 :: Maybe T.Color+c256_f_110 = (Just (T.ColorNumber 110))++c256_f_111 :: Maybe T.Color+c256_f_111 = (Just (T.ColorNumber 111))++c256_f_112 :: Maybe T.Color+c256_f_112 = (Just (T.ColorNumber 112))++c256_f_113 :: Maybe T.Color+c256_f_113 = (Just (T.ColorNumber 113))++c256_f_114 :: Maybe T.Color+c256_f_114 = (Just (T.ColorNumber 114))++c256_f_115 :: Maybe T.Color+c256_f_115 = (Just (T.ColorNumber 115))++c256_f_116 :: Maybe T.Color+c256_f_116 = (Just (T.ColorNumber 116))++c256_f_117 :: Maybe T.Color+c256_f_117 = (Just (T.ColorNumber 117))++c256_f_118 :: Maybe T.Color+c256_f_118 = (Just (T.ColorNumber 118))++c256_f_119 :: Maybe T.Color+c256_f_119 = (Just (T.ColorNumber 119))++c256_f_120 :: Maybe T.Color+c256_f_120 = (Just (T.ColorNumber 120))++c256_f_121 :: Maybe T.Color+c256_f_121 = (Just (T.ColorNumber 121))++c256_f_122 :: Maybe T.Color+c256_f_122 = (Just (T.ColorNumber 122))++c256_f_123 :: Maybe T.Color+c256_f_123 = (Just (T.ColorNumber 123))++c256_f_124 :: Maybe T.Color+c256_f_124 = (Just (T.ColorNumber 124))++c256_f_125 :: Maybe T.Color+c256_f_125 = (Just (T.ColorNumber 125))++c256_f_126 :: Maybe T.Color+c256_f_126 = (Just (T.ColorNumber 126))++c256_f_127 :: Maybe T.Color+c256_f_127 = (Just (T.ColorNumber 127))++c256_f_128 :: Maybe T.Color+c256_f_128 = (Just (T.ColorNumber 128))++c256_f_129 :: Maybe T.Color+c256_f_129 = (Just (T.ColorNumber 129))++c256_f_130 :: Maybe T.Color+c256_f_130 = (Just (T.ColorNumber 130))++c256_f_131 :: Maybe T.Color+c256_f_131 = (Just (T.ColorNumber 131))++c256_f_132 :: Maybe T.Color+c256_f_132 = (Just (T.ColorNumber 132))++c256_f_133 :: Maybe T.Color+c256_f_133 = (Just (T.ColorNumber 133))++c256_f_134 :: Maybe T.Color+c256_f_134 = (Just (T.ColorNumber 134))++c256_f_135 :: Maybe T.Color+c256_f_135 = (Just (T.ColorNumber 135))++c256_f_136 :: Maybe T.Color+c256_f_136 = (Just (T.ColorNumber 136))++c256_f_137 :: Maybe T.Color+c256_f_137 = (Just (T.ColorNumber 137))++c256_f_138 :: Maybe T.Color+c256_f_138 = (Just (T.ColorNumber 138))++c256_f_139 :: Maybe T.Color+c256_f_139 = (Just (T.ColorNumber 139))++c256_f_140 :: Maybe T.Color+c256_f_140 = (Just (T.ColorNumber 140))++c256_f_141 :: Maybe T.Color+c256_f_141 = (Just (T.ColorNumber 141))++c256_f_142 :: Maybe T.Color+c256_f_142 = (Just (T.ColorNumber 142))++c256_f_143 :: Maybe T.Color+c256_f_143 = (Just (T.ColorNumber 143))++c256_f_144 :: Maybe T.Color+c256_f_144 = (Just (T.ColorNumber 144))++c256_f_145 :: Maybe T.Color+c256_f_145 = (Just (T.ColorNumber 145))++c256_f_146 :: Maybe T.Color+c256_f_146 = (Just (T.ColorNumber 146))++c256_f_147 :: Maybe T.Color+c256_f_147 = (Just (T.ColorNumber 147))++c256_f_148 :: Maybe T.Color+c256_f_148 = (Just (T.ColorNumber 148))++c256_f_149 :: Maybe T.Color+c256_f_149 = (Just (T.ColorNumber 149))++c256_f_150 :: Maybe T.Color+c256_f_150 = (Just (T.ColorNumber 150))++c256_f_151 :: Maybe T.Color+c256_f_151 = (Just (T.ColorNumber 151))++c256_f_152 :: Maybe T.Color+c256_f_152 = (Just (T.ColorNumber 152))++c256_f_153 :: Maybe T.Color+c256_f_153 = (Just (T.ColorNumber 153))++c256_f_154 :: Maybe T.Color+c256_f_154 = (Just (T.ColorNumber 154))++c256_f_155 :: Maybe T.Color+c256_f_155 = (Just (T.ColorNumber 155))++c256_f_156 :: Maybe T.Color+c256_f_156 = (Just (T.ColorNumber 156))++c256_f_157 :: Maybe T.Color+c256_f_157 = (Just (T.ColorNumber 157))++c256_f_158 :: Maybe T.Color+c256_f_158 = (Just (T.ColorNumber 158))++c256_f_159 :: Maybe T.Color+c256_f_159 = (Just (T.ColorNumber 159))++c256_f_160 :: Maybe T.Color+c256_f_160 = (Just (T.ColorNumber 160))++c256_f_161 :: Maybe T.Color+c256_f_161 = (Just (T.ColorNumber 161))++c256_f_162 :: Maybe T.Color+c256_f_162 = (Just (T.ColorNumber 162))++c256_f_163 :: Maybe T.Color+c256_f_163 = (Just (T.ColorNumber 163))++c256_f_164 :: Maybe T.Color+c256_f_164 = (Just (T.ColorNumber 164))++c256_f_165 :: Maybe T.Color+c256_f_165 = (Just (T.ColorNumber 165))++c256_f_166 :: Maybe T.Color+c256_f_166 = (Just (T.ColorNumber 166))++c256_f_167 :: Maybe T.Color+c256_f_167 = (Just (T.ColorNumber 167))++c256_f_168 :: Maybe T.Color+c256_f_168 = (Just (T.ColorNumber 168))++c256_f_169 :: Maybe T.Color+c256_f_169 = (Just (T.ColorNumber 169))++c256_f_170 :: Maybe T.Color+c256_f_170 = (Just (T.ColorNumber 170))++c256_f_171 :: Maybe T.Color+c256_f_171 = (Just (T.ColorNumber 171))++c256_f_172 :: Maybe T.Color+c256_f_172 = (Just (T.ColorNumber 172))++c256_f_173 :: Maybe T.Color+c256_f_173 = (Just (T.ColorNumber 173))++c256_f_174 :: Maybe T.Color+c256_f_174 = (Just (T.ColorNumber 174))++c256_f_175 :: Maybe T.Color+c256_f_175 = (Just (T.ColorNumber 175))++c256_f_176 :: Maybe T.Color+c256_f_176 = (Just (T.ColorNumber 176))++c256_f_177 :: Maybe T.Color+c256_f_177 = (Just (T.ColorNumber 177))++c256_f_178 :: Maybe T.Color+c256_f_178 = (Just (T.ColorNumber 178))++c256_f_179 :: Maybe T.Color+c256_f_179 = (Just (T.ColorNumber 179))++c256_f_180 :: Maybe T.Color+c256_f_180 = (Just (T.ColorNumber 180))++c256_f_181 :: Maybe T.Color+c256_f_181 = (Just (T.ColorNumber 181))++c256_f_182 :: Maybe T.Color+c256_f_182 = (Just (T.ColorNumber 182))++c256_f_183 :: Maybe T.Color+c256_f_183 = (Just (T.ColorNumber 183))++c256_f_184 :: Maybe T.Color+c256_f_184 = (Just (T.ColorNumber 184))++c256_f_185 :: Maybe T.Color+c256_f_185 = (Just (T.ColorNumber 185))++c256_f_186 :: Maybe T.Color+c256_f_186 = (Just (T.ColorNumber 186))++c256_f_187 :: Maybe T.Color+c256_f_187 = (Just (T.ColorNumber 187))++c256_f_188 :: Maybe T.Color+c256_f_188 = (Just (T.ColorNumber 188))++c256_f_189 :: Maybe T.Color+c256_f_189 = (Just (T.ColorNumber 189))++c256_f_190 :: Maybe T.Color+c256_f_190 = (Just (T.ColorNumber 190))++c256_f_191 :: Maybe T.Color+c256_f_191 = (Just (T.ColorNumber 191))++c256_f_192 :: Maybe T.Color+c256_f_192 = (Just (T.ColorNumber 192))++c256_f_193 :: Maybe T.Color+c256_f_193 = (Just (T.ColorNumber 193))++c256_f_194 :: Maybe T.Color+c256_f_194 = (Just (T.ColorNumber 194))++c256_f_195 :: Maybe T.Color+c256_f_195 = (Just (T.ColorNumber 195))++c256_f_196 :: Maybe T.Color+c256_f_196 = (Just (T.ColorNumber 196))++c256_f_197 :: Maybe T.Color+c256_f_197 = (Just (T.ColorNumber 197))++c256_f_198 :: Maybe T.Color+c256_f_198 = (Just (T.ColorNumber 198))++c256_f_199 :: Maybe T.Color+c256_f_199 = (Just (T.ColorNumber 199))++c256_f_200 :: Maybe T.Color+c256_f_200 = (Just (T.ColorNumber 200))++c256_f_201 :: Maybe T.Color+c256_f_201 = (Just (T.ColorNumber 201))++c256_f_202 :: Maybe T.Color+c256_f_202 = (Just (T.ColorNumber 202))++c256_f_203 :: Maybe T.Color+c256_f_203 = (Just (T.ColorNumber 203))++c256_f_204 :: Maybe T.Color+c256_f_204 = (Just (T.ColorNumber 204))++c256_f_205 :: Maybe T.Color+c256_f_205 = (Just (T.ColorNumber 205))++c256_f_206 :: Maybe T.Color+c256_f_206 = (Just (T.ColorNumber 206))++c256_f_207 :: Maybe T.Color+c256_f_207 = (Just (T.ColorNumber 207))++c256_f_208 :: Maybe T.Color+c256_f_208 = (Just (T.ColorNumber 208))++c256_f_209 :: Maybe T.Color+c256_f_209 = (Just (T.ColorNumber 209))++c256_f_210 :: Maybe T.Color+c256_f_210 = (Just (T.ColorNumber 210))++c256_f_211 :: Maybe T.Color+c256_f_211 = (Just (T.ColorNumber 211))++c256_f_212 :: Maybe T.Color+c256_f_212 = (Just (T.ColorNumber 212))++c256_f_213 :: Maybe T.Color+c256_f_213 = (Just (T.ColorNumber 213))++c256_f_214 :: Maybe T.Color+c256_f_214 = (Just (T.ColorNumber 214))++c256_f_215 :: Maybe T.Color+c256_f_215 = (Just (T.ColorNumber 215))++c256_f_216 :: Maybe T.Color+c256_f_216 = (Just (T.ColorNumber 216))++c256_f_217 :: Maybe T.Color+c256_f_217 = (Just (T.ColorNumber 217))++c256_f_218 :: Maybe T.Color+c256_f_218 = (Just (T.ColorNumber 218))++c256_f_219 :: Maybe T.Color+c256_f_219 = (Just (T.ColorNumber 219))++c256_f_220 :: Maybe T.Color+c256_f_220 = (Just (T.ColorNumber 220))++c256_f_221 :: Maybe T.Color+c256_f_221 = (Just (T.ColorNumber 221))++c256_f_222 :: Maybe T.Color+c256_f_222 = (Just (T.ColorNumber 222))++c256_f_223 :: Maybe T.Color+c256_f_223 = (Just (T.ColorNumber 223))++c256_f_224 :: Maybe T.Color+c256_f_224 = (Just (T.ColorNumber 224))++c256_f_225 :: Maybe T.Color+c256_f_225 = (Just (T.ColorNumber 225))++c256_f_226 :: Maybe T.Color+c256_f_226 = (Just (T.ColorNumber 226))++c256_f_227 :: Maybe T.Color+c256_f_227 = (Just (T.ColorNumber 227))++c256_f_228 :: Maybe T.Color+c256_f_228 = (Just (T.ColorNumber 228))++c256_f_229 :: Maybe T.Color+c256_f_229 = (Just (T.ColorNumber 229))++c256_f_230 :: Maybe T.Color+c256_f_230 = (Just (T.ColorNumber 230))++c256_f_231 :: Maybe T.Color+c256_f_231 = (Just (T.ColorNumber 231))++c256_f_232 :: Maybe T.Color+c256_f_232 = (Just (T.ColorNumber 232))++c256_f_233 :: Maybe T.Color+c256_f_233 = (Just (T.ColorNumber 233))++c256_f_234 :: Maybe T.Color+c256_f_234 = (Just (T.ColorNumber 234))++c256_f_235 :: Maybe T.Color+c256_f_235 = (Just (T.ColorNumber 235))++c256_f_236 :: Maybe T.Color+c256_f_236 = (Just (T.ColorNumber 236))++c256_f_237 :: Maybe T.Color+c256_f_237 = (Just (T.ColorNumber 237))++c256_f_238 :: Maybe T.Color+c256_f_238 = (Just (T.ColorNumber 238))++c256_f_239 :: Maybe T.Color+c256_f_239 = (Just (T.ColorNumber 239))++c256_f_240 :: Maybe T.Color+c256_f_240 = (Just (T.ColorNumber 240))++c256_f_241 :: Maybe T.Color+c256_f_241 = (Just (T.ColorNumber 241))++c256_f_242 :: Maybe T.Color+c256_f_242 = (Just (T.ColorNumber 242))++c256_f_243 :: Maybe T.Color+c256_f_243 = (Just (T.ColorNumber 243))++c256_f_244 :: Maybe T.Color+c256_f_244 = (Just (T.ColorNumber 244))++c256_f_245 :: Maybe T.Color+c256_f_245 = (Just (T.ColorNumber 245))++c256_f_246 :: Maybe T.Color+c256_f_246 = (Just (T.ColorNumber 246))++c256_f_247 :: Maybe T.Color+c256_f_247 = (Just (T.ColorNumber 247))++c256_f_248 :: Maybe T.Color+c256_f_248 = (Just (T.ColorNumber 248))++c256_f_249 :: Maybe T.Color+c256_f_249 = (Just (T.ColorNumber 249))++c256_f_250 :: Maybe T.Color+c256_f_250 = (Just (T.ColorNumber 250))++c256_f_251 :: Maybe T.Color+c256_f_251 = (Just (T.ColorNumber 251))++c256_f_252 :: Maybe T.Color+c256_f_252 = (Just (T.ColorNumber 252))++c256_f_253 :: Maybe T.Color+c256_f_253 = (Just (T.ColorNumber 253))++c256_f_254 :: Maybe T.Color+c256_f_254 = (Just (T.ColorNumber 254))++c256_f_255 :: Maybe T.Color+c256_f_255 = (Just (T.ColorNumber 255))+++-- # 256 color background++c256_b_default :: Maybe T.Color+c256_b_default =  Nothing++c256_b_0 :: Maybe T.Color+c256_b_0 =  (Just (T.ColorNumber 0))++c256_b_black :: Maybe T.Color+c256_b_black =  (Just (T.ColorNumber 0))++c256_b_1 :: Maybe T.Color+c256_b_1 =  (Just (T.ColorNumber 1))++c256_b_red :: Maybe T.Color+c256_b_red =  (Just (T.ColorNumber 1))++c256_b_2 :: Maybe T.Color+c256_b_2 =  (Just (T.ColorNumber 2))++c256_b_green :: Maybe T.Color+c256_b_green =  (Just (T.ColorNumber 2))++c256_b_3 :: Maybe T.Color+c256_b_3 =  (Just (T.ColorNumber 3))++c256_b_yellow :: Maybe T.Color+c256_b_yellow =  (Just (T.ColorNumber 3))++c256_b_4 :: Maybe T.Color+c256_b_4 =  (Just (T.ColorNumber 4))++c256_b_blue :: Maybe T.Color+c256_b_blue =  (Just (T.ColorNumber 4))++c256_b_5 :: Maybe T.Color+c256_b_5 =  (Just (T.ColorNumber 5))++c256_b_magenta :: Maybe T.Color+c256_b_magenta =  (Just (T.ColorNumber 5))++c256_b_6 :: Maybe T.Color+c256_b_6 =  (Just (T.ColorNumber 6))++c256_b_cyan :: Maybe T.Color+c256_b_cyan =  (Just (T.ColorNumber 6))++c256_b_7 :: Maybe T.Color+c256_b_7 =  (Just (T.ColorNumber 7))++c256_b_white :: Maybe T.Color+c256_b_white =  (Just (T.ColorNumber 7))++c256_b_8 :: Maybe T.Color+c256_b_8 =  (Just (T.ColorNumber 8))++c256_b_grey :: Maybe T.Color+c256_b_grey =  (Just (T.ColorNumber 8))++c256_b_9 :: Maybe T.Color+c256_b_9 =  (Just (T.ColorNumber 9))++c256_b_red_bright :: Maybe T.Color+c256_b_red_bright =  (Just (T.ColorNumber 9))++c256_b_10 :: Maybe T.Color+c256_b_10 =  (Just (T.ColorNumber 10))++c256_b_green_bright :: Maybe T.Color+c256_b_green_bright =  (Just (T.ColorNumber 10))++c256_b_11 :: Maybe T.Color+c256_b_11 =  (Just (T.ColorNumber 11))++c256_b_yellow_bright :: Maybe T.Color+c256_b_yellow_bright =  (Just (T.ColorNumber 11))++c256_b_12 :: Maybe T.Color+c256_b_12 =  (Just (T.ColorNumber 12))++c256_b_blue_bright :: Maybe T.Color+c256_b_blue_bright =  (Just (T.ColorNumber 12))++c256_b_13 :: Maybe T.Color+c256_b_13 =  (Just (T.ColorNumber 13))++c256_b_magenta_bright :: Maybe T.Color+c256_b_magenta_bright =  (Just (T.ColorNumber 13))++c256_b_14 :: Maybe T.Color+c256_b_14 =  (Just (T.ColorNumber 14))++c256_b_cyan_bright :: Maybe T.Color+c256_b_cyan_bright =  (Just (T.ColorNumber 14))++c256_b_15 :: Maybe T.Color+c256_b_15 =  (Just (T.ColorNumber 15))++c256_b_white_bright :: Maybe T.Color+c256_b_white_bright =  (Just (T.ColorNumber 15))++c256_b_16 :: Maybe T.Color+c256_b_16 =  (Just (T.ColorNumber 16))++c256_b_17 :: Maybe T.Color+c256_b_17 =  (Just (T.ColorNumber 17))++c256_b_18 :: Maybe T.Color+c256_b_18 =  (Just (T.ColorNumber 18))++c256_b_19 :: Maybe T.Color+c256_b_19 =  (Just (T.ColorNumber 19))++c256_b_20 :: Maybe T.Color+c256_b_20 =  (Just (T.ColorNumber 20))++c256_b_21 :: Maybe T.Color+c256_b_21 =  (Just (T.ColorNumber 21))++c256_b_22 :: Maybe T.Color+c256_b_22 =  (Just (T.ColorNumber 22))++c256_b_23 :: Maybe T.Color+c256_b_23 =  (Just (T.ColorNumber 23))++c256_b_24 :: Maybe T.Color+c256_b_24 =  (Just (T.ColorNumber 24))++c256_b_25 :: Maybe T.Color+c256_b_25 =  (Just (T.ColorNumber 25))++c256_b_26 :: Maybe T.Color+c256_b_26 =  (Just (T.ColorNumber 26))++c256_b_27 :: Maybe T.Color+c256_b_27 =  (Just (T.ColorNumber 27))++c256_b_28 :: Maybe T.Color+c256_b_28 =  (Just (T.ColorNumber 28))++c256_b_29 :: Maybe T.Color+c256_b_29 =  (Just (T.ColorNumber 29))++c256_b_30 :: Maybe T.Color+c256_b_30 =  (Just (T.ColorNumber 30))++c256_b_31 :: Maybe T.Color+c256_b_31 =  (Just (T.ColorNumber 31))++c256_b_32 :: Maybe T.Color+c256_b_32 =  (Just (T.ColorNumber 32))++c256_b_33 :: Maybe T.Color+c256_b_33 =  (Just (T.ColorNumber 33))++c256_b_34 :: Maybe T.Color+c256_b_34 =  (Just (T.ColorNumber 34))++c256_b_35 :: Maybe T.Color+c256_b_35 =  (Just (T.ColorNumber 35))++c256_b_36 :: Maybe T.Color+c256_b_36 =  (Just (T.ColorNumber 36))++c256_b_37 :: Maybe T.Color+c256_b_37 =  (Just (T.ColorNumber 37))++c256_b_38 :: Maybe T.Color+c256_b_38 =  (Just (T.ColorNumber 38))++c256_b_39 :: Maybe T.Color+c256_b_39 =  (Just (T.ColorNumber 39))++c256_b_40 :: Maybe T.Color+c256_b_40 =  (Just (T.ColorNumber 40))++c256_b_41 :: Maybe T.Color+c256_b_41 =  (Just (T.ColorNumber 41))++c256_b_42 :: Maybe T.Color+c256_b_42 =  (Just (T.ColorNumber 42))++c256_b_43 :: Maybe T.Color+c256_b_43 =  (Just (T.ColorNumber 43))++c256_b_44 :: Maybe T.Color+c256_b_44 =  (Just (T.ColorNumber 44))++c256_b_45 :: Maybe T.Color+c256_b_45 =  (Just (T.ColorNumber 45))++c256_b_46 :: Maybe T.Color+c256_b_46 =  (Just (T.ColorNumber 46))++c256_b_47 :: Maybe T.Color+c256_b_47 =  (Just (T.ColorNumber 47))++c256_b_48 :: Maybe T.Color+c256_b_48 =  (Just (T.ColorNumber 48))++c256_b_49 :: Maybe T.Color+c256_b_49 =  (Just (T.ColorNumber 49))++c256_b_50 :: Maybe T.Color+c256_b_50 =  (Just (T.ColorNumber 50))++c256_b_51 :: Maybe T.Color+c256_b_51 =  (Just (T.ColorNumber 51))++c256_b_52 :: Maybe T.Color+c256_b_52 =  (Just (T.ColorNumber 52))++c256_b_53 :: Maybe T.Color+c256_b_53 =  (Just (T.ColorNumber 53))++c256_b_54 :: Maybe T.Color+c256_b_54 =  (Just (T.ColorNumber 54))++c256_b_55 :: Maybe T.Color+c256_b_55 =  (Just (T.ColorNumber 55))++c256_b_56 :: Maybe T.Color+c256_b_56 =  (Just (T.ColorNumber 56))++c256_b_57 :: Maybe T.Color+c256_b_57 =  (Just (T.ColorNumber 57))++c256_b_58 :: Maybe T.Color+c256_b_58 =  (Just (T.ColorNumber 58))++c256_b_59 :: Maybe T.Color+c256_b_59 =  (Just (T.ColorNumber 59))++c256_b_60 :: Maybe T.Color+c256_b_60 =  (Just (T.ColorNumber 60))++c256_b_61 :: Maybe T.Color+c256_b_61 =  (Just (T.ColorNumber 61))++c256_b_62 :: Maybe T.Color+c256_b_62 =  (Just (T.ColorNumber 62))++c256_b_63 :: Maybe T.Color+c256_b_63 =  (Just (T.ColorNumber 63))++c256_b_64 :: Maybe T.Color+c256_b_64 =  (Just (T.ColorNumber 64))++c256_b_65 :: Maybe T.Color+c256_b_65 =  (Just (T.ColorNumber 65))++c256_b_66 :: Maybe T.Color+c256_b_66 =  (Just (T.ColorNumber 66))++c256_b_67 :: Maybe T.Color+c256_b_67 =  (Just (T.ColorNumber 67))++c256_b_68 :: Maybe T.Color+c256_b_68 =  (Just (T.ColorNumber 68))++c256_b_69 :: Maybe T.Color+c256_b_69 =  (Just (T.ColorNumber 69))++c256_b_70 :: Maybe T.Color+c256_b_70 =  (Just (T.ColorNumber 70))++c256_b_71 :: Maybe T.Color+c256_b_71 =  (Just (T.ColorNumber 71))++c256_b_72 :: Maybe T.Color+c256_b_72 =  (Just (T.ColorNumber 72))++c256_b_73 :: Maybe T.Color+c256_b_73 =  (Just (T.ColorNumber 73))++c256_b_74 :: Maybe T.Color+c256_b_74 =  (Just (T.ColorNumber 74))++c256_b_75 :: Maybe T.Color+c256_b_75 =  (Just (T.ColorNumber 75))++c256_b_76 :: Maybe T.Color+c256_b_76 =  (Just (T.ColorNumber 76))++c256_b_77 :: Maybe T.Color+c256_b_77 =  (Just (T.ColorNumber 77))++c256_b_78 :: Maybe T.Color+c256_b_78 =  (Just (T.ColorNumber 78))++c256_b_79 :: Maybe T.Color+c256_b_79 =  (Just (T.ColorNumber 79))++c256_b_80 :: Maybe T.Color+c256_b_80 =  (Just (T.ColorNumber 80))++c256_b_81 :: Maybe T.Color+c256_b_81 =  (Just (T.ColorNumber 81))++c256_b_82 :: Maybe T.Color+c256_b_82 =  (Just (T.ColorNumber 82))++c256_b_83 :: Maybe T.Color+c256_b_83 =  (Just (T.ColorNumber 83))++c256_b_84 :: Maybe T.Color+c256_b_84 =  (Just (T.ColorNumber 84))++c256_b_85 :: Maybe T.Color+c256_b_85 =  (Just (T.ColorNumber 85))++c256_b_86 :: Maybe T.Color+c256_b_86 =  (Just (T.ColorNumber 86))++c256_b_87 :: Maybe T.Color+c256_b_87 =  (Just (T.ColorNumber 87))++c256_b_88 :: Maybe T.Color+c256_b_88 =  (Just (T.ColorNumber 88))++c256_b_89 :: Maybe T.Color+c256_b_89 =  (Just (T.ColorNumber 89))++c256_b_90 :: Maybe T.Color+c256_b_90 =  (Just (T.ColorNumber 90))++c256_b_91 :: Maybe T.Color+c256_b_91 =  (Just (T.ColorNumber 91))++c256_b_92 :: Maybe T.Color+c256_b_92 =  (Just (T.ColorNumber 92))++c256_b_93 :: Maybe T.Color+c256_b_93 =  (Just (T.ColorNumber 93))++c256_b_94 :: Maybe T.Color+c256_b_94 =  (Just (T.ColorNumber 94))++c256_b_95 :: Maybe T.Color+c256_b_95 =  (Just (T.ColorNumber 95))++c256_b_96 :: Maybe T.Color+c256_b_96 =  (Just (T.ColorNumber 96))++c256_b_97 :: Maybe T.Color+c256_b_97 =  (Just (T.ColorNumber 97))++c256_b_98 :: Maybe T.Color+c256_b_98 =  (Just (T.ColorNumber 98))++c256_b_99 :: Maybe T.Color+c256_b_99 =  (Just (T.ColorNumber 99))++c256_b_100 :: Maybe T.Color+c256_b_100 =  (Just (T.ColorNumber 100))++c256_b_101 :: Maybe T.Color+c256_b_101 =  (Just (T.ColorNumber 101))++c256_b_102 :: Maybe T.Color+c256_b_102 =  (Just (T.ColorNumber 102))++c256_b_103 :: Maybe T.Color+c256_b_103 =  (Just (T.ColorNumber 103))++c256_b_104 :: Maybe T.Color+c256_b_104 =  (Just (T.ColorNumber 104))++c256_b_105 :: Maybe T.Color+c256_b_105 =  (Just (T.ColorNumber 105))++c256_b_106 :: Maybe T.Color+c256_b_106 =  (Just (T.ColorNumber 106))++c256_b_107 :: Maybe T.Color+c256_b_107 =  (Just (T.ColorNumber 107))++c256_b_108 :: Maybe T.Color+c256_b_108 =  (Just (T.ColorNumber 108))++c256_b_109 :: Maybe T.Color+c256_b_109 =  (Just (T.ColorNumber 109))++c256_b_110 :: Maybe T.Color+c256_b_110 =  (Just (T.ColorNumber 110))++c256_b_111 :: Maybe T.Color+c256_b_111 =  (Just (T.ColorNumber 111))++c256_b_112 :: Maybe T.Color+c256_b_112 =  (Just (T.ColorNumber 112))++c256_b_113 :: Maybe T.Color+c256_b_113 =  (Just (T.ColorNumber 113))++c256_b_114 :: Maybe T.Color+c256_b_114 =  (Just (T.ColorNumber 114))++c256_b_115 :: Maybe T.Color+c256_b_115 =  (Just (T.ColorNumber 115))++c256_b_116 :: Maybe T.Color+c256_b_116 =  (Just (T.ColorNumber 116))++c256_b_117 :: Maybe T.Color+c256_b_117 =  (Just (T.ColorNumber 117))++c256_b_118 :: Maybe T.Color+c256_b_118 =  (Just (T.ColorNumber 118))++c256_b_119 :: Maybe T.Color+c256_b_119 =  (Just (T.ColorNumber 119))++c256_b_120 :: Maybe T.Color+c256_b_120 =  (Just (T.ColorNumber 120))++c256_b_121 :: Maybe T.Color+c256_b_121 =  (Just (T.ColorNumber 121))++c256_b_122 :: Maybe T.Color+c256_b_122 =  (Just (T.ColorNumber 122))++c256_b_123 :: Maybe T.Color+c256_b_123 =  (Just (T.ColorNumber 123))++c256_b_124 :: Maybe T.Color+c256_b_124 =  (Just (T.ColorNumber 124))++c256_b_125 :: Maybe T.Color+c256_b_125 =  (Just (T.ColorNumber 125))++c256_b_126 :: Maybe T.Color+c256_b_126 =  (Just (T.ColorNumber 126))++c256_b_127 :: Maybe T.Color+c256_b_127 =  (Just (T.ColorNumber 127))++c256_b_128 :: Maybe T.Color+c256_b_128 =  (Just (T.ColorNumber 128))++c256_b_129 :: Maybe T.Color+c256_b_129 =  (Just (T.ColorNumber 129))++c256_b_130 :: Maybe T.Color+c256_b_130 =  (Just (T.ColorNumber 130))++c256_b_131 :: Maybe T.Color+c256_b_131 =  (Just (T.ColorNumber 131))++c256_b_132 :: Maybe T.Color+c256_b_132 =  (Just (T.ColorNumber 132))++c256_b_133 :: Maybe T.Color+c256_b_133 =  (Just (T.ColorNumber 133))++c256_b_134 :: Maybe T.Color+c256_b_134 =  (Just (T.ColorNumber 134))++c256_b_135 :: Maybe T.Color+c256_b_135 =  (Just (T.ColorNumber 135))++c256_b_136 :: Maybe T.Color+c256_b_136 =  (Just (T.ColorNumber 136))++c256_b_137 :: Maybe T.Color+c256_b_137 =  (Just (T.ColorNumber 137))++c256_b_138 :: Maybe T.Color+c256_b_138 =  (Just (T.ColorNumber 138))++c256_b_139 :: Maybe T.Color+c256_b_139 =  (Just (T.ColorNumber 139))++c256_b_140 :: Maybe T.Color+c256_b_140 =  (Just (T.ColorNumber 140))++c256_b_141 :: Maybe T.Color+c256_b_141 =  (Just (T.ColorNumber 141))++c256_b_142 :: Maybe T.Color+c256_b_142 =  (Just (T.ColorNumber 142))++c256_b_143 :: Maybe T.Color+c256_b_143 =  (Just (T.ColorNumber 143))++c256_b_144 :: Maybe T.Color+c256_b_144 =  (Just (T.ColorNumber 144))++c256_b_145 :: Maybe T.Color+c256_b_145 =  (Just (T.ColorNumber 145))++c256_b_146 :: Maybe T.Color+c256_b_146 =  (Just (T.ColorNumber 146))++c256_b_147 :: Maybe T.Color+c256_b_147 =  (Just (T.ColorNumber 147))++c256_b_148 :: Maybe T.Color+c256_b_148 =  (Just (T.ColorNumber 148))++c256_b_149 :: Maybe T.Color+c256_b_149 =  (Just (T.ColorNumber 149))++c256_b_150 :: Maybe T.Color+c256_b_150 =  (Just (T.ColorNumber 150))++c256_b_151 :: Maybe T.Color+c256_b_151 =  (Just (T.ColorNumber 151))++c256_b_152 :: Maybe T.Color+c256_b_152 =  (Just (T.ColorNumber 152))++c256_b_153 :: Maybe T.Color+c256_b_153 =  (Just (T.ColorNumber 153))++c256_b_154 :: Maybe T.Color+c256_b_154 =  (Just (T.ColorNumber 154))++c256_b_155 :: Maybe T.Color+c256_b_155 =  (Just (T.ColorNumber 155))++c256_b_156 :: Maybe T.Color+c256_b_156 =  (Just (T.ColorNumber 156))++c256_b_157 :: Maybe T.Color+c256_b_157 =  (Just (T.ColorNumber 157))++c256_b_158 :: Maybe T.Color+c256_b_158 =  (Just (T.ColorNumber 158))++c256_b_159 :: Maybe T.Color+c256_b_159 =  (Just (T.ColorNumber 159))++c256_b_160 :: Maybe T.Color+c256_b_160 =  (Just (T.ColorNumber 160))++c256_b_161 :: Maybe T.Color+c256_b_161 =  (Just (T.ColorNumber 161))++c256_b_162 :: Maybe T.Color+c256_b_162 =  (Just (T.ColorNumber 162))++c256_b_163 :: Maybe T.Color+c256_b_163 =  (Just (T.ColorNumber 163))++c256_b_164 :: Maybe T.Color+c256_b_164 =  (Just (T.ColorNumber 164))++c256_b_165 :: Maybe T.Color+c256_b_165 =  (Just (T.ColorNumber 165))++c256_b_166 :: Maybe T.Color+c256_b_166 =  (Just (T.ColorNumber 166))++c256_b_167 :: Maybe T.Color+c256_b_167 =  (Just (T.ColorNumber 167))++c256_b_168 :: Maybe T.Color+c256_b_168 =  (Just (T.ColorNumber 168))++c256_b_169 :: Maybe T.Color+c256_b_169 =  (Just (T.ColorNumber 169))++c256_b_170 :: Maybe T.Color+c256_b_170 =  (Just (T.ColorNumber 170))++c256_b_171 :: Maybe T.Color+c256_b_171 =  (Just (T.ColorNumber 171))++c256_b_172 :: Maybe T.Color+c256_b_172 =  (Just (T.ColorNumber 172))++c256_b_173 :: Maybe T.Color+c256_b_173 =  (Just (T.ColorNumber 173))++c256_b_174 :: Maybe T.Color+c256_b_174 =  (Just (T.ColorNumber 174))++c256_b_175 :: Maybe T.Color+c256_b_175 =  (Just (T.ColorNumber 175))++c256_b_176 :: Maybe T.Color+c256_b_176 =  (Just (T.ColorNumber 176))++c256_b_177 :: Maybe T.Color+c256_b_177 =  (Just (T.ColorNumber 177))++c256_b_178 :: Maybe T.Color+c256_b_178 =  (Just (T.ColorNumber 178))++c256_b_179 :: Maybe T.Color+c256_b_179 =  (Just (T.ColorNumber 179))++c256_b_180 :: Maybe T.Color+c256_b_180 =  (Just (T.ColorNumber 180))++c256_b_181 :: Maybe T.Color+c256_b_181 =  (Just (T.ColorNumber 181))++c256_b_182 :: Maybe T.Color+c256_b_182 =  (Just (T.ColorNumber 182))++c256_b_183 :: Maybe T.Color+c256_b_183 =  (Just (T.ColorNumber 183))++c256_b_184 :: Maybe T.Color+c256_b_184 =  (Just (T.ColorNumber 184))++c256_b_185 :: Maybe T.Color+c256_b_185 =  (Just (T.ColorNumber 185))++c256_b_186 :: Maybe T.Color+c256_b_186 =  (Just (T.ColorNumber 186))++c256_b_187 :: Maybe T.Color+c256_b_187 =  (Just (T.ColorNumber 187))++c256_b_188 :: Maybe T.Color+c256_b_188 =  (Just (T.ColorNumber 188))++c256_b_189 :: Maybe T.Color+c256_b_189 =  (Just (T.ColorNumber 189))++c256_b_190 :: Maybe T.Color+c256_b_190 =  (Just (T.ColorNumber 190))++c256_b_191 :: Maybe T.Color+c256_b_191 =  (Just (T.ColorNumber 191))++c256_b_192 :: Maybe T.Color+c256_b_192 =  (Just (T.ColorNumber 192))++c256_b_193 :: Maybe T.Color+c256_b_193 =  (Just (T.ColorNumber 193))++c256_b_194 :: Maybe T.Color+c256_b_194 =  (Just (T.ColorNumber 194))++c256_b_195 :: Maybe T.Color+c256_b_195 =  (Just (T.ColorNumber 195))++c256_b_196 :: Maybe T.Color+c256_b_196 =  (Just (T.ColorNumber 196))++c256_b_197 :: Maybe T.Color+c256_b_197 =  (Just (T.ColorNumber 197))++c256_b_198 :: Maybe T.Color+c256_b_198 =  (Just (T.ColorNumber 198))++c256_b_199 :: Maybe T.Color+c256_b_199 =  (Just (T.ColorNumber 199))++c256_b_200 :: Maybe T.Color+c256_b_200 =  (Just (T.ColorNumber 200))++c256_b_201 :: Maybe T.Color+c256_b_201 =  (Just (T.ColorNumber 201))++c256_b_202 :: Maybe T.Color+c256_b_202 =  (Just (T.ColorNumber 202))++c256_b_203 :: Maybe T.Color+c256_b_203 =  (Just (T.ColorNumber 203))++c256_b_204 :: Maybe T.Color+c256_b_204 =  (Just (T.ColorNumber 204))++c256_b_205 :: Maybe T.Color+c256_b_205 =  (Just (T.ColorNumber 205))++c256_b_206 :: Maybe T.Color+c256_b_206 =  (Just (T.ColorNumber 206))++c256_b_207 :: Maybe T.Color+c256_b_207 =  (Just (T.ColorNumber 207))++c256_b_208 :: Maybe T.Color+c256_b_208 =  (Just (T.ColorNumber 208))++c256_b_209 :: Maybe T.Color+c256_b_209 =  (Just (T.ColorNumber 209))++c256_b_210 :: Maybe T.Color+c256_b_210 =  (Just (T.ColorNumber 210))++c256_b_211 :: Maybe T.Color+c256_b_211 =  (Just (T.ColorNumber 211))++c256_b_212 :: Maybe T.Color+c256_b_212 =  (Just (T.ColorNumber 212))++c256_b_213 :: Maybe T.Color+c256_b_213 =  (Just (T.ColorNumber 213))++c256_b_214 :: Maybe T.Color+c256_b_214 =  (Just (T.ColorNumber 214))++c256_b_215 :: Maybe T.Color+c256_b_215 =  (Just (T.ColorNumber 215))++c256_b_216 :: Maybe T.Color+c256_b_216 =  (Just (T.ColorNumber 216))++c256_b_217 :: Maybe T.Color+c256_b_217 =  (Just (T.ColorNumber 217))++c256_b_218 :: Maybe T.Color+c256_b_218 =  (Just (T.ColorNumber 218))++c256_b_219 :: Maybe T.Color+c256_b_219 =  (Just (T.ColorNumber 219))++c256_b_220 :: Maybe T.Color+c256_b_220 =  (Just (T.ColorNumber 220))++c256_b_221 :: Maybe T.Color+c256_b_221 =  (Just (T.ColorNumber 221))++c256_b_222 :: Maybe T.Color+c256_b_222 =  (Just (T.ColorNumber 222))++c256_b_223 :: Maybe T.Color+c256_b_223 =  (Just (T.ColorNumber 223))++c256_b_224 :: Maybe T.Color+c256_b_224 =  (Just (T.ColorNumber 224))++c256_b_225 :: Maybe T.Color+c256_b_225 =  (Just (T.ColorNumber 225))++c256_b_226 :: Maybe T.Color+c256_b_226 =  (Just (T.ColorNumber 226))++c256_b_227 :: Maybe T.Color+c256_b_227 =  (Just (T.ColorNumber 227))++c256_b_228 :: Maybe T.Color+c256_b_228 =  (Just (T.ColorNumber 228))++c256_b_229 :: Maybe T.Color+c256_b_229 =  (Just (T.ColorNumber 229))++c256_b_230 :: Maybe T.Color+c256_b_230 =  (Just (T.ColorNumber 230))++c256_b_231 :: Maybe T.Color+c256_b_231 =  (Just (T.ColorNumber 231))++c256_b_232 :: Maybe T.Color+c256_b_232 =  (Just (T.ColorNumber 232))++c256_b_233 :: Maybe T.Color+c256_b_233 =  (Just (T.ColorNumber 233))++c256_b_234 :: Maybe T.Color+c256_b_234 =  (Just (T.ColorNumber 234))++c256_b_235 :: Maybe T.Color+c256_b_235 =  (Just (T.ColorNumber 235))++c256_b_236 :: Maybe T.Color+c256_b_236 =  (Just (T.ColorNumber 236))++c256_b_237 :: Maybe T.Color+c256_b_237 =  (Just (T.ColorNumber 237))++c256_b_238 :: Maybe T.Color+c256_b_238 =  (Just (T.ColorNumber 238))++c256_b_239 :: Maybe T.Color+c256_b_239 =  (Just (T.ColorNumber 239))++c256_b_240 :: Maybe T.Color+c256_b_240 =  (Just (T.ColorNumber 240))++c256_b_241 :: Maybe T.Color+c256_b_241 =  (Just (T.ColorNumber 241))++c256_b_242 :: Maybe T.Color+c256_b_242 =  (Just (T.ColorNumber 242))++c256_b_243 :: Maybe T.Color+c256_b_243 =  (Just (T.ColorNumber 243))++c256_b_244 :: Maybe T.Color+c256_b_244 =  (Just (T.ColorNumber 244))++c256_b_245 :: Maybe T.Color+c256_b_245 =  (Just (T.ColorNumber 245))++c256_b_246 :: Maybe T.Color+c256_b_246 =  (Just (T.ColorNumber 246))++c256_b_247 :: Maybe T.Color+c256_b_247 =  (Just (T.ColorNumber 247))++c256_b_248 :: Maybe T.Color+c256_b_248 =  (Just (T.ColorNumber 248))++c256_b_249 :: Maybe T.Color+c256_b_249 =  (Just (T.ColorNumber 249))++c256_b_250 :: Maybe T.Color+c256_b_250 =  (Just (T.ColorNumber 250))++c256_b_251 :: Maybe T.Color+c256_b_251 =  (Just (T.ColorNumber 251))++c256_b_252 :: Maybe T.Color+c256_b_252 =  (Just (T.ColorNumber 252))++c256_b_253 :: Maybe T.Color+c256_b_253 =  (Just (T.ColorNumber 253))++c256_b_254 :: Maybe T.Color+c256_b_254 =  (Just (T.ColorNumber 254))++c256_b_255 :: Maybe T.Color+c256_b_255 =  (Just (T.ColorNumber 255))+

@@ -0,0 +1,480 @@+-- | The innards of Rainbow.  Ordinarily you should not need this+-- module; instead, just import "System.Console.Rainbow", which+-- re-exports the most useful names from this module.++module System.Console.Rainbow.Types where++-- # Imports++import qualified Data.String as Str+import Data.Monoid+import Data.Text (Text)+import Data.Maybe (fromMaybe)+import qualified Data.Text as X+import qualified System.Console.Terminfo as T+import System.IO as IO+import System.Environment as Env++--+-- Terminal definitions+--++-- | Which terminal definition to use.+data Term+  = Dumb+  -- ^ Using this terminal should always succeed. This suppresses all+  -- colors. Uesful if output is not going to a TTY, or if you just do+  -- not like colors.++  | TermName String+  -- ^ Use the terminal with this given name. You might get this from+  -- the TERM environment variable, or set it explicitly. A runtime+  -- error will result if the terminfo database does not have a+  -- definition for this terminal. If this terminal supports 256+  -- colors, then 256 colors are used. If this terminal supports less+  -- than 256 colors, but at least 8 colors, then 8 colors are+  -- used. Otherwise, no colors are used.+  deriving (Eq, Show)++-- | Gets the terminal definition from the environment. If the+-- environment does not have a TERM veriable, use 'Dumb'.+termFromEnv :: IO Term+termFromEnv = do+  t <- fmap (lookup "TERM") Env.getEnvironment+  return $ maybe Dumb TermName t++-- | Gets the terminal definition from the environment. If the first+-- argument is True, the terminal is always obtained from the+-- environment. If it is False, the terminal is only obtained from the+-- environment if the given handle is not a terminal; otherwise, Dumb+-- is returned.+smartTermFromEnv+  :: Bool+  -- ^ Use True if the user always wants to see colors, even if+  -- standard output is not a terminal. Otherwise, use False.++  -> IO.Handle+  -- ^ Check this handle to see if it is a terminal (typically you+  -- will use stdout).++  -> IO Term+smartTermFromEnv alwaysColor h =+  if alwaysColor+  then termFromEnv+  else do+        isTerm <- IO.hIsTerminalDevice h+        if isTerm+          then termFromEnv+          else return Dumb++-- For Background8, Background256, Foreground8, Foreground256: the+-- Last wraps a Maybe (Terminfo Color). If the inner Maybe is Nothing,+-- use the default color.++type Background8 = Last (Maybe T.Color)+type Background256 = Last (Maybe T.Color)+type Foreground8 = Last (Maybe T.Color)+type Foreground256 = Last (Maybe T.Color)++--+-- Styles+--++-- | Style elements that apply in both 8 and 256 color+-- terminals. However, the elements are described separately for 8 and+-- 256 color terminals, so that the text appearance can change+-- depending on how many colors a terminal has.+data StyleCommon = StyleCommon+  { scBold :: Last Bool+  , scUnderline :: Last Bool+  , scFlash :: Last Bool+  , scInverse :: Last Bool+  } deriving (Show, Eq, Ord)+++instance Monoid StyleCommon where+  mempty = StyleCommon (Last Nothing) (Last Nothing)+                       (Last Nothing) (Last Nothing)+  mappend (StyleCommon b1 u1 f1 i1) (StyleCommon b2 u2 f2 i2)+    = StyleCommon (b1 <> b2) (u1 <> u2) (f1 <> f2) (i1 <> i2)++-- | Describes text appearance (foreground and background colors, as+-- well as other attributes such as bold) for an 8 color terminal.+data Style8 = Style8+  { foreground8 :: Foreground8+  , background8 :: Background8+  , common8 :: StyleCommon+  } deriving (Show, Eq, Ord)+++instance Monoid Style8 where+  mappend (Style8 fx bx cx) (Style8 fy by cy)+    = Style8 (fx <> fy) (bx <> by) (cx <> cy)+  mempty = Style8 mempty mempty mempty++-- | Describes text appearance (foreground and background colors, as+-- well as other attributes such as bold) for a 256 color terminal.+data Style256 = Style256+  { foreground256 :: Foreground256+  , background256 :: Background256+  , common256 :: StyleCommon+  } deriving (Show, Eq, Ord)+++instance Monoid Style256 where+  mappend (Style256 fx bx cx) (Style256 fy by cy)+    = Style256 (fx <> fy) (bx <> by) (cx <> cy)+  mempty = Style256 mempty mempty mempty++--+-- TextSpec+--++-- | The TextSpec bundles together the styles for the 8 and 256 color+-- terminals, so that the text can be portrayed on any terminal.+data TextSpec = TextSpec+  { style8 :: Style8+  , style256 :: Style256+  } deriving (Show, Eq, Ord)+++instance Monoid TextSpec where+  mappend (TextSpec x1 x2) (TextSpec y1 y2)+    = TextSpec (x1 <> y1) (x2 <> y2)+  mempty = TextSpec mempty mempty++--+-- Chunks+--++-- | A chunk is some textual data coupled with a description of what+-- color the text is, attributes like whether it is bold or+-- underlined, etc. The chunk knows what foreground and background+-- colors and what attributes to use for both an 8 color terminal and+-- a 256 color terminal.++data Chunk = Chunk+  { textSpec :: TextSpec+  , text :: Text+  } deriving (Eq, Show, Ord)+++instance Str.IsString Chunk where+  fromString s = Chunk mempty (X.pack s)++fromText :: Text -> Chunk+fromText = Chunk mempty++instance Monoid Chunk where+  mempty = Chunk mempty mempty+  mappend (Chunk s1 t1) (Chunk s2 t2) = Chunk (s1 <> s2) (t1 <> t2)+++defaultColors :: T.Terminal -> T.TermOutput+defaultColors term =+  fromMaybe mempty (T.getCapability term T.restoreDefaultColors)+++commonAttrs :: T.Terminal -> StyleCommon -> T.TermOutput+commonAttrs t s =+  let a = T.Attributes+        { T.standoutAttr = False+        , T.underlineAttr = fromMaybe False+          . getLast . scUnderline $ s+        , T.reverseAttr = fromMaybe False+          . getLast . scInverse $ s+        , T.blinkAttr = fromMaybe False+          . getLast . scFlash $ s+        , T.dimAttr = False+        , T.boldAttr = fromMaybe False+          . getLast . scBold $ s+        , T.invisibleAttr = False+        , T.protectedAttr = False+        }+  in case T.getCapability t (T.setAttributes) of+      Nothing -> error $ "System.Console.Rainbow: commonAttrs: "+                 ++ "capability failed; should never happen"+      Just f -> f a+++-- | Gets the right set of terminal codes to apply the desired+-- highlighting, bold, underlining, etc. Be sure to apply the+-- attributes first (bold, underlining, etc) and then the+-- colors. Setting the colors first and then the attributes seems to+-- reset the colors, giving blank output.+getTermCodes+  :: T.Terminal+  -> TextSpec+  -> T.TermOutput+getTermCodes t ts = fromMaybe mempty $ do+  cols <- T.getCapability t T.termColors+  let TextSpec s8 s256 = ts+      Style8 f8 b8 c8 = s8+      Style256 f256 b256 c256 = s256+  setFg <- T.getCapability t T.setForegroundColor+  setBg <- T.getCapability t T.setBackgroundColor+  (fg, bg, cm) <- case () of+    _ | cols >= 256 -> Just $ ( getLast f256+                              , getLast b256+                              , c256)+      | cols >= 8 -> Just ( getLast f8+                         , getLast b8+                         , c8)+      | otherwise -> Nothing+  let oFg = maybe mempty (maybe mempty setFg) fg+      oBg = maybe mempty (maybe mempty setBg) bg+      oCm = commonAttrs t cm+  return $ mconcat [oCm, oFg, oBg]+++hPrintChunk :: IO.Handle -> T.Terminal -> Chunk -> IO ()+hPrintChunk h t (Chunk ts x) =+  T.hRunTermOutput h t+  . mconcat+  $ [defaultColors t, codes, txt]+  where+    codes = getTermCodes t ts+    txt = T.termText . X.unpack $ x++-- | Sends a list of chunks to the given handle for printing. Sets up+-- the terminal (this only needs to be done once.) Lazily processes+-- the list of Chunk. See 'putChunks' for notes on how many colors+-- are used.+hPutChunks :: IO.Handle -> Term -> [Chunk] -> IO ()+hPutChunks h t cs = do+  let setup = case t of+        Dumb -> T.setupTerm "dumb"+        TermName s -> T.setupTerm s+  term <- setup+  mapM_ (hPrintChunk h term) cs+  T.hRunTermOutput h term (defaultColors term)+  T.hRunTermOutput h term+    $ case T.getCapability term T.allAttributesOff of+        Nothing -> error $ "System.Console.Rainbow.putChunks: error: "+                   ++ "allAttributesOff failed"+        Just s -> s++-- | Sends a list of chunks to standard output for printing. Sets up+-- the terminal (this only needs to be done once.) Lazily processes+-- the list of Chunk.+--+-- Which colors are used depends upon the 'Term'. If it is 'Dumb',+-- then no colors are used on output. If the 'Term' is specified with+-- 'TermName', the UNIX terminfo library is used to determine how many+-- colors the terminal supports. If it supports at least 256 colors,+-- then 256 colors are used. If it supports at least 8 colors but less+-- than 256 colors, then 256 colors are used. Otherwise, no colors are+-- used. A runtime error will occur if the 'TermName' is not found in+-- the system terminal database.+putChunks :: Term -> [Chunk] -> IO ()+putChunks = hPutChunks IO.stdout++-- | Print one chunk at a time, to a handle+hPutChunk :: IO.Handle -> Chunk -> IO ()+hPutChunk h c = do+  t <- termFromEnv+  hPutChunks h t [c]++-- | Print one chunk at a time, to standard output+putChunk :: Chunk -> IO ()+putChunk = hPutChunk IO.stdout++-- | Print one chunk at a time, to a handle, append a newline+hPutChunkLn :: IO.Handle -> Chunk -> IO ()+hPutChunkLn h c = hPutChunk h c >> IO.hPutStr h "\n"++-- | Print one chunk at a time, to standard output, append a newline+putChunkLn :: Chunk -> IO ()+putChunkLn c = putChunk c >> putStr "\n"++bold8 :: Chunk+bold8 = x {+  textSpec = (textSpec x) {+    style8 = (style8 (textSpec x)) {+      common8 = (common8 (style8 (textSpec x))) {+        scBold = Last (Just True) }}}}+  where+    x = mempty++bold8off :: Chunk+bold8off = x {+  textSpec = (textSpec x) {+    style8 = (style8 (textSpec x)) {+      common8 = (common8 (style8 (textSpec x))) {+        scBold = Last (Just False) }}}}+  where+    x = mempty+++underline8 :: Chunk+underline8 = x {+  textSpec = (textSpec x) {+    style8 = (style8 (textSpec x)) {+      common8 = (common8 (style8 (textSpec x))) {+        scUnderline = Last (Just True) }}}}+  where+    x = mempty+++underline8off :: Chunk+underline8off = x {+  textSpec = (textSpec x) {+    style8 = (style8 (textSpec x)) {+      common8 = (common8 (style8 (textSpec x))) {+        scUnderline = Last (Just False) }}}}+  where+    x = mempty++flash8 :: Chunk+flash8 = x {+  textSpec = (textSpec x) {+    style8 = (style8 (textSpec x)) {+      common8 = (common8 (style8 (textSpec x))) {+        scFlash = Last (Just True) }}}}+  where+    x = mempty++flash8off :: Chunk+flash8off = x {+  textSpec = (textSpec x) {+    style8 = (style8 (textSpec x)) {+      common8 = (common8 (style8 (textSpec x))) {+        scFlash = Last (Just False) }}}}+  where+    x = mempty+++inverse8 :: Chunk+inverse8 = x {+  textSpec = (textSpec x) {+    style8 = (style8 (textSpec x)) {+      common8 = (common8 (style8 (textSpec x))) {+        scInverse = Last (Just True) }}}}+  where+    x = mempty++inverse8off :: Chunk+inverse8off = x {+  textSpec = (textSpec x) {+    style8 = (style8 (textSpec x)) {+      common8 = (common8 (style8 (textSpec x))) {+        scInverse = Last (Just False) }}}}+  where+    x = mempty+++underline256 :: Chunk+underline256 = x {+  textSpec = (textSpec x) {+    style256 = (style256 (textSpec x)) {+      common256 = (common256 (style256 (textSpec x))) {+        scUnderline = Last (Just True) }}}}+  where+    x = mempty+++underline256off :: Chunk+underline256off = x {+  textSpec = (textSpec x) {+    style256 = (style256 (textSpec x)) {+      common256 = (common256 (style256 (textSpec x))) {+        scUnderline = Last (Just False) }}}}+  where+    x = mempty++bold256 :: Chunk+bold256 = x {+  textSpec = (textSpec x) {+    style256 = (style256 (textSpec x)) {+      common256 = (common256 (style256 (textSpec x))) {+        scBold = Last (Just True) }}}}+  where+    x = mempty++bold256off :: Chunk+bold256off = x {+  textSpec = (textSpec x) {+    style256 = (style256 (textSpec x)) {+      common256 = (common256 (style256 (textSpec x))) {+        scBold = Last (Just False) }}}}+  where+    x = mempty+++inverse256 :: Chunk+inverse256 = x {+  textSpec = (textSpec x) {+    style256 = (style256 (textSpec x)) {+      common256 = (common256 (style256 (textSpec x))) {+        scInverse = Last (Just True) }}}}+  where+    x = mempty++inverse256off :: Chunk+inverse256off = x {+  textSpec = (textSpec x) {+    style256 = (style256 (textSpec x)) {+      common256 = (common256 (style256 (textSpec x))) {+        scInverse = Last (Just False) }}}}+  where+    x = mempty+++flash256 :: Chunk+flash256 = x {+  textSpec = (textSpec x) {+    style256 = (style256 (textSpec x)) {+      common256 = (common256 (style256 (textSpec x))) {+        scFlash = Last (Just True) }}}}+  where+    x = mempty+++flash256off :: Chunk+flash256off = x {+  textSpec = (textSpec x) {+    style256 = (style256 (textSpec x)) {+      common256 = (common256 (style256 (textSpec x))) {+        scFlash = Last (Just False) }}}}+  where+    x = mempty+++--+-- All+--+++-- | Bold. What actually happens when you use Bold is going to depend+-- on your terminal. For example, xterm allows you actually use a bold+-- font for bold, if you have one. Otherwise, it might simulate bold+-- by using overstriking. Another possibility is that your terminal+-- might use a different color to indicate bold. For more details (at+-- least for xterm), look at xterm (1) and search for @boldColors@.+--+-- If your terminal uses a different color for bold, this allows an+-- 8-color terminal to really have 16 colors.+bold :: Chunk+bold = bold8 <> bold256++boldOff :: Chunk+boldOff = bold8off <> bold256off++inverse :: Chunk+inverse = inverse8 <> inverse256++inverseOff :: Chunk+inverseOff = inverse8off <> inverse256off++flash :: Chunk+flash = flash8 <> flash256++flashOff :: Chunk+flashOff = flash8off <> flash256off++underline :: Chunk+underline = underline8 <> underline256++underlineOff :: Chunk+underlineOff = underline8off <> underline256off+

@@ -1,7 +1,7 @@ This package was tested to work with these dependency versions and compiler version. These are the default versions fetched by cabal install.-Tested as of: 2014-02-24 04:09:33.509271 UTC+Tested as of: 2014-03-05 19:42:47.837532 UTC Path to compiler: ghc-7.6.3 Compiler description: 7.6.3 @@ -32,8 +32,8 @@     time-1.4.0.1     unix-2.6.0.1 -/home/massysett/rainbow/sunlight-16708/db:-    rainbow-0.6.0.4+/home/massysett/rainbow/sunlight-15942/db:+    rainbow-0.8.0.0     terminfo-0.4.0.0     text-1.1.0.0 

@@ -1,11 +1,11 @@ This package was tested to work with these dependency versions and compiler version. These are the minimum versions given in the .cabal file.-Tested as of: 2014-02-24 04:09:33.509271 UTC+Tested as of: 2014-03-05 19:42:47.837532 UTC Path to compiler: ghc-7.4.1 Compiler description: 7.4.1 -/opt/ghc/7.4.1/lib/ghc-7.4.1/package.conf.d:+/var/lib/ghc/package.conf.d:     Cabal-1.14.0     array-0.4.0.0     base-4.5.0.0@@ -33,8 +33,8 @@     time-1.4     unix-2.5.1.0 -/home/massysett/rainbow/sunlight-16708/db:-    rainbow-0.6.0.4+/home/massysett/rainbow/sunlight-15942/db:+    rainbow-0.8.0.0     terminfo-0.3.2     text-0.11.2.0 

@@ -1,5 +1,5 @@ name:                rainbow-version:             0.6.0.4+version:             0.8.0.0 synopsis:            Print text to terminal with colors and effects description:   rainbow helps you print Text chunks to a terminal with colors and effects@@ -38,6 +38,9 @@ library   exposed-modules:       System.Console.Rainbow+    , System.Console.Rainbow.Types+    , System.Console.Rainbow.Colors+    , System.Console.Rainbow.ColorChunks    build-depends:       base >=4.5.0.0 && <5