-- | Handles colors and special effects for text. Internally this -- module uses the Haskell terminfo library, which links against the -- UNIX library of the same name, so it should work with a wide -- variety of UNIX terminals. -- -- The building block of Rainbow is the 'Chunk'. Each 'Chunk' comes with -- a 'TextSpec', which specifies how the text should look on 8-color -- and on 256-color terminals. The 'Chunk' is a full specification; that -- is, although 'Chunk's are typically printed one after the other, the -- appearance of one 'Chunk' does not affect the appearance of the next -- 'Chunk'. -- -- You have full freedom to specify different attributes and colors -- for 8 and 256 color terminals; for instance, you can have text -- appear red on an 8-color terminal but blue on a 256-color terminal. -- -- A 'Chunk' is a 'Monoid', so you can combine them using the usual -- monoid functions, including '<>'. You can create a 'Chunk' with -- text using 'fromString', but this library is much more usable if -- you enable the OverloadedStrings GHC extension: -- -- > {-# LANGUAGE OverloadedStrings #-} -- -- and all future examples assume you have enabled OverloadedStrings. -- -- Here are some basic examples: -- -- > putChunkLn $ "Some blue text" <> f_blue -- > putChunkLn $ "Blue on red background" <> f_blue <> b_red -- > putChunkLn $ "Blue on red, foreground bold" <> f_blue <> b_red <> bold -- -- But what makes Rainbow a little more interesting is that you can -- also specify output for 256-color terminals. To use these examples, -- be sure your TERM environment variable is set to something that -- supports 256 colors (like @xterm-256color@) before you start GHCi: -- -- > putChunkLn $ "Blue on 8-color terminal, red on 256-color terminal" -- > <> c8_f_blue <> c256_f_red -- -- If 'mappend' multiple chunks that change the same property, the -- rightmost one \"wins\": -- -- > putChunkLn $ "This will be blue" <> f_red <> f_blue -- -- This property comes in handy if you want to specify a default color -- for 8- and 256-color terminals, then a more specific shade for a -- 256-color terminal: -- -- > putChunkLn $ "Pink" <> f_red <> c256_f_201 -- -- However, if you use 'mappend' to add additional 'Chunk's that have -- text, the text will be appended: -- -- > putChunkLn $ f_green <> "You will see this text " -- > <> "and this text too, but it will all be blue" -- > <> f_blue -- -- Although one chunk can have different colors on 8- and 256-color -- terminals, it cannot have different colors on the same -- 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 <- Env.lookupEnv "TERM" 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))