diff --git a/System/Console/Rainbow.hs b/System/Console/Rainbow.hs --- a/System/Console/Rainbow.hs +++ b/System/Console/Rainbow.hs @@ -1,3139 +1,3511 @@ --- | 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 Chunks 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. --- --- Some useful combinators are provided to assist with the building of --- Chunks. 'plain' builds a Chunk with a provided 'Text' that is --- rendered using the terminal's default settings and colors. You then --- use '+.+' to combine different modifiers to change how the Chunk is --- rendered. Here's an example: --- --- > {-# LANGUAGE OverloadedStrings #-} --- > --- > -- This chunk is blue and underlined, both on 8-color and 256-color --- > -- terminals. --- > blueHello :: Chunk --- > blueHello = plain "Hello world!" +.+ f_blue +.+ underline --- > --- > -- This chunk is red on 8-color terminals but uses color 88 on --- > -- 256-color terminals. Because +.+ is left-associative, the --- > -- color256_f_88 supersedes the f_red, which sets the foreground --- > -- on both 8 and 256 color terminals to red. --- > redHello :: Chunk --- > redHello = plain "Hello world!" +.+ f_red +.+ color256_f_88 --- > --- > -- This chunk is underlined on 8-color terminals but is not --- > -- underlined on 256-color terminals. --- > underlinedOn8 :: Chunk --- > underlinedOn8 = plain "Hello world!" +.+ underline8 --- > --- > newline :: Chunk --- > newline = plain "\n" --- > --- > -- How to print all these chunks --- > main :: IO () --- > main = do --- > t <- termFromEnv --- > printChunks t [blueHello, nl, redHello, nl, underlinedOn8, nl] - - -module System.Console.Rainbow ( - - -- * Terminal definitions - Term(..) - , termFromEnv - , smartTermFromEnv - - -- * Chunks - , Chunk - , plain - - -- * Printing chunks - , printChunks - , hPrintChunks - - -- * Mod - , Mod(..) - , ChangeText(..) - , (.+.) - , (+.+) - - -- * Effects for both 8 and 256 color terminals - - -- | These modifiers affect both 8 and 256 color terminals: - -- - -- > {-# LANGUAGE OverloadedStrings #-} - -- > underlinedOn8and256 :: Chunk - -- > underlinedOn8and256 = plain "Underlined!" +.+ underline - -- - -- There are also modifiers 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@ modifiers are here if you need them. - - , bold, boldOff - , underline, underlineOff - , flash, flashOff - , inverse, inverseOff - - -- * Effects for 8-color terminals only - - -- | These modifiers affect 8-color terminals only. For instance - -- this appears bold only on an 8-color terminal: - -- - -- > {-# LANGUAGE OverloadedStrings #-} - -- > boldOn8 :: Chunk - -- > boldOn8 = plain "Bold on 8 color terminal only" +.+ bold8 - - , bold8, bold8off - , underline8, underline8off - , flash8, flash8off - , inverse8, inverse8off - - -- * Effects for 256-color terminals only - - -- | These modifiers affect 256-color terminals only. For instance, - -- this text is underlined on 256 color terminals but is bold on - -- 8-color terminals: - -- - -- > {-# LANGUAGE OverloadedStrings #-} - -- > underlinedOn256 :: Chunk - -- > underlinedOn256 = plain "Underlined on 256 color terminal" - -- > +.+ underlined256 +.+ bold8 - - , bold256, bold256off - , underline256, underline256off - , flash256, flash256off - , inverse256, inverse256off - - -- * Colors for both 8 and 256 color terminals - - -- | These color modifiers affect both 8 and 256 color - -- terminals. For example, to print something in red on blue on both - -- an 8 and a 256 color terminal: - -- - -- > {-# LANGUAGE OverloadedStrings #-} - -- > redHello :: Chunk - -- > redHello = plain "Hello world!" +.+ 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 - , color8_f_default - , color8_f_black - , color8_f_red - , color8_f_green - , color8_f_yellow - , color8_f_blue - , color8_f_magenta - , color8_f_cyan - , color8_f_white - - -- ** 8 color background colors - , color8_b_default - , color8_b_black - , color8_b_red - , color8_b_green - , color8_b_yellow - , color8_b_blue - , color8_b_magenta - , color8_b_cyan - , color8_b_white - - -- ** 256 color foreground colors - - -- | The color names assume a palette similar to the default one - -- that xterm uses. - , color256_f_default - , color256_f_0 - , color256_f_black - , color256_f_1 - , color256_f_red - , color256_f_2 - , color256_f_green - , color256_f_3 - , color256_f_yellow - , color256_f_4 - , color256_f_blue - , color256_f_5 - , color256_f_magenta - , color256_f_6 - , color256_f_cyan - , color256_f_7 - , color256_f_white - , color256_f_8 - , color256_f_grey - , color256_f_9 - , color256_f_red_bright - , color256_f_10 - , color256_f_green_bright - , color256_f_11 - , color256_f_yellow_bright - , color256_f_12 - , color256_f_blue_bright - , color256_f_13 - , color256_f_magenta_bright - , color256_f_14 - , color256_f_cyan_bright - , color256_f_15 - , color256_f_white_bright - , color256_f_16 - , color256_f_17 - , color256_f_18 - , color256_f_19 - , color256_f_20 - , color256_f_21 - , color256_f_22 - , color256_f_23 - , color256_f_24 - , color256_f_25 - , color256_f_26 - , color256_f_27 - , color256_f_28 - , color256_f_29 - , color256_f_30 - , color256_f_31 - , color256_f_32 - , color256_f_33 - , color256_f_34 - , color256_f_35 - , color256_f_36 - , color256_f_37 - , color256_f_38 - , color256_f_39 - , color256_f_40 - , color256_f_41 - , color256_f_42 - , color256_f_43 - , color256_f_44 - , color256_f_45 - , color256_f_46 - , color256_f_47 - , color256_f_48 - , color256_f_49 - , color256_f_50 - , color256_f_51 - , color256_f_52 - , color256_f_53 - , color256_f_54 - , color256_f_55 - , color256_f_56 - , color256_f_57 - , color256_f_58 - , color256_f_59 - , color256_f_60 - , color256_f_61 - , color256_f_62 - , color256_f_63 - , color256_f_64 - , color256_f_65 - , color256_f_66 - , color256_f_67 - , color256_f_68 - , color256_f_69 - , color256_f_70 - , color256_f_71 - , color256_f_72 - , color256_f_73 - , color256_f_74 - , color256_f_75 - , color256_f_76 - , color256_f_77 - , color256_f_78 - , color256_f_79 - , color256_f_80 - , color256_f_81 - , color256_f_82 - , color256_f_83 - , color256_f_84 - , color256_f_85 - , color256_f_86 - , color256_f_87 - , color256_f_88 - , color256_f_89 - , color256_f_90 - , color256_f_91 - , color256_f_92 - , color256_f_93 - , color256_f_94 - , color256_f_95 - , color256_f_96 - , color256_f_97 - , color256_f_98 - , color256_f_99 - , color256_f_100 - , color256_f_101 - , color256_f_102 - , color256_f_103 - , color256_f_104 - , color256_f_105 - , color256_f_106 - , color256_f_107 - , color256_f_108 - , color256_f_109 - , color256_f_110 - , color256_f_111 - , color256_f_112 - , color256_f_113 - , color256_f_114 - , color256_f_115 - , color256_f_116 - , color256_f_117 - , color256_f_118 - , color256_f_119 - , color256_f_120 - , color256_f_121 - , color256_f_122 - , color256_f_123 - , color256_f_124 - , color256_f_125 - , color256_f_126 - , color256_f_127 - , color256_f_128 - , color256_f_129 - , color256_f_130 - , color256_f_131 - , color256_f_132 - , color256_f_133 - , color256_f_134 - , color256_f_135 - , color256_f_136 - , color256_f_137 - , color256_f_138 - , color256_f_139 - , color256_f_140 - , color256_f_141 - , color256_f_142 - , color256_f_143 - , color256_f_144 - , color256_f_145 - , color256_f_146 - , color256_f_147 - , color256_f_148 - , color256_f_149 - , color256_f_150 - , color256_f_151 - , color256_f_152 - , color256_f_153 - , color256_f_154 - , color256_f_155 - , color256_f_156 - , color256_f_157 - , color256_f_158 - , color256_f_159 - , color256_f_160 - , color256_f_161 - , color256_f_162 - , color256_f_163 - , color256_f_164 - , color256_f_165 - , color256_f_166 - , color256_f_167 - , color256_f_168 - , color256_f_169 - , color256_f_170 - , color256_f_171 - , color256_f_172 - , color256_f_173 - , color256_f_174 - , color256_f_175 - , color256_f_176 - , color256_f_177 - , color256_f_178 - , color256_f_179 - , color256_f_180 - , color256_f_181 - , color256_f_182 - , color256_f_183 - , color256_f_184 - , color256_f_185 - , color256_f_186 - , color256_f_187 - , color256_f_188 - , color256_f_189 - , color256_f_190 - , color256_f_191 - , color256_f_192 - , color256_f_193 - , color256_f_194 - , color256_f_195 - , color256_f_196 - , color256_f_197 - , color256_f_198 - , color256_f_199 - , color256_f_200 - , color256_f_201 - , color256_f_202 - , color256_f_203 - , color256_f_204 - , color256_f_205 - , color256_f_206 - , color256_f_207 - , color256_f_208 - , color256_f_209 - , color256_f_210 - , color256_f_211 - , color256_f_212 - , color256_f_213 - , color256_f_214 - , color256_f_215 - , color256_f_216 - , color256_f_217 - , color256_f_218 - , color256_f_219 - , color256_f_220 - , color256_f_221 - , color256_f_222 - , color256_f_223 - , color256_f_224 - , color256_f_225 - , color256_f_226 - , color256_f_227 - , color256_f_228 - , color256_f_229 - , color256_f_230 - , color256_f_231 - , color256_f_232 - , color256_f_233 - , color256_f_234 - , color256_f_235 - , color256_f_236 - , color256_f_237 - , color256_f_238 - , color256_f_239 - , color256_f_240 - , color256_f_241 - , color256_f_242 - , color256_f_243 - , color256_f_244 - , color256_f_245 - , color256_f_246 - , color256_f_247 - , color256_f_248 - , color256_f_249 - , color256_f_250 - , color256_f_251 - , color256_f_252 - , color256_f_253 - , color256_f_254 - , color256_f_255 - - -- ** 256 color background colors - - -- | The color names assume a palette similar to the default one - -- that xterm uses. - , color256_b_default - , color256_b_0 - , color256_b_black - , color256_b_1 - , color256_b_red - , color256_b_2 - , color256_b_green - , color256_b_3 - , color256_b_yellow - , color256_b_4 - , color256_b_blue - , color256_b_5 - , color256_b_magenta - , color256_b_6 - , color256_b_cyan - , color256_b_7 - , color256_b_white - , color256_b_8 - , color256_b_grey - , color256_b_9 - , color256_b_red_bright - , color256_b_10 - , color256_b_green_bright - , color256_b_11 - , color256_b_yellow_bright - , color256_b_12 - , color256_b_blue_bright - , color256_b_13 - , color256_b_magenta_bright - , color256_b_14 - , color256_b_cyan_bright - , color256_b_15 - , color256_b_white_bright - , color256_b_16 - , color256_b_17 - , color256_b_18 - , color256_b_19 - , color256_b_20 - , color256_b_21 - , color256_b_22 - , color256_b_23 - , color256_b_24 - , color256_b_25 - , color256_b_26 - , color256_b_27 - , color256_b_28 - , color256_b_29 - , color256_b_30 - , color256_b_31 - , color256_b_32 - , color256_b_33 - , color256_b_34 - , color256_b_35 - , color256_b_36 - , color256_b_37 - , color256_b_38 - , color256_b_39 - , color256_b_40 - , color256_b_41 - , color256_b_42 - , color256_b_43 - , color256_b_44 - , color256_b_45 - , color256_b_46 - , color256_b_47 - , color256_b_48 - , color256_b_49 - , color256_b_50 - , color256_b_51 - , color256_b_52 - , color256_b_53 - , color256_b_54 - , color256_b_55 - , color256_b_56 - , color256_b_57 - , color256_b_58 - , color256_b_59 - , color256_b_60 - , color256_b_61 - , color256_b_62 - , color256_b_63 - , color256_b_64 - , color256_b_65 - , color256_b_66 - , color256_b_67 - , color256_b_68 - , color256_b_69 - , color256_b_70 - , color256_b_71 - , color256_b_72 - , color256_b_73 - , color256_b_74 - , color256_b_75 - , color256_b_76 - , color256_b_77 - , color256_b_78 - , color256_b_79 - , color256_b_80 - , color256_b_81 - , color256_b_82 - , color256_b_83 - , color256_b_84 - , color256_b_85 - , color256_b_86 - , color256_b_87 - , color256_b_88 - , color256_b_89 - , color256_b_90 - , color256_b_91 - , color256_b_92 - , color256_b_93 - , color256_b_94 - , color256_b_95 - , color256_b_96 - , color256_b_97 - , color256_b_98 - , color256_b_99 - , color256_b_100 - , color256_b_101 - , color256_b_102 - , color256_b_103 - , color256_b_104 - , color256_b_105 - , color256_b_106 - , color256_b_107 - , color256_b_108 - , color256_b_109 - , color256_b_110 - , color256_b_111 - , color256_b_112 - , color256_b_113 - , color256_b_114 - , color256_b_115 - , color256_b_116 - , color256_b_117 - , color256_b_118 - , color256_b_119 - , color256_b_120 - , color256_b_121 - , color256_b_122 - , color256_b_123 - , color256_b_124 - , color256_b_125 - , color256_b_126 - , color256_b_127 - , color256_b_128 - , color256_b_129 - , color256_b_130 - , color256_b_131 - , color256_b_132 - , color256_b_133 - , color256_b_134 - , color256_b_135 - , color256_b_136 - , color256_b_137 - , color256_b_138 - , color256_b_139 - , color256_b_140 - , color256_b_141 - , color256_b_142 - , color256_b_143 - , color256_b_144 - , color256_b_145 - , color256_b_146 - , color256_b_147 - , color256_b_148 - , color256_b_149 - , color256_b_150 - , color256_b_151 - , color256_b_152 - , color256_b_153 - , color256_b_154 - , color256_b_155 - , color256_b_156 - , color256_b_157 - , color256_b_158 - , color256_b_159 - , color256_b_160 - , color256_b_161 - , color256_b_162 - , color256_b_163 - , color256_b_164 - , color256_b_165 - , color256_b_166 - , color256_b_167 - , color256_b_168 - , color256_b_169 - , color256_b_170 - , color256_b_171 - , color256_b_172 - , color256_b_173 - , color256_b_174 - , color256_b_175 - , color256_b_176 - , color256_b_177 - , color256_b_178 - , color256_b_179 - , color256_b_180 - , color256_b_181 - , color256_b_182 - , color256_b_183 - , color256_b_184 - , color256_b_185 - , color256_b_186 - , color256_b_187 - , color256_b_188 - , color256_b_189 - , color256_b_190 - , color256_b_191 - , color256_b_192 - , color256_b_193 - , color256_b_194 - , color256_b_195 - , color256_b_196 - , color256_b_197 - , color256_b_198 - , color256_b_199 - , color256_b_200 - , color256_b_201 - , color256_b_202 - , color256_b_203 - , color256_b_204 - , color256_b_205 - , color256_b_206 - , color256_b_207 - , color256_b_208 - , color256_b_209 - , color256_b_210 - , color256_b_211 - , color256_b_212 - , color256_b_213 - , color256_b_214 - , color256_b_215 - , color256_b_216 - , color256_b_217 - , color256_b_218 - , color256_b_219 - , color256_b_220 - , color256_b_221 - , color256_b_222 - , color256_b_223 - , color256_b_224 - , color256_b_225 - , color256_b_226 - , color256_b_227 - , color256_b_228 - , color256_b_229 - , color256_b_230 - , color256_b_231 - , color256_b_232 - , color256_b_233 - , color256_b_234 - , color256_b_235 - , color256_b_236 - , color256_b_237 - , color256_b_238 - , color256_b_239 - , color256_b_240 - , color256_b_241 - , color256_b_242 - , color256_b_243 - , color256_b_244 - , color256_b_245 - , color256_b_246 - , color256_b_247 - , color256_b_248 - , color256_b_249 - , color256_b_250 - , color256_b_251 - , color256_b_252 - , color256_b_253 - , color256_b_254 - , color256_b_255 - - -- * 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 (StyleCommon, scBold, scUnderline, scFlash, scInverse) - , Style8 (Style8, foreground8, background8, common8) - , Style256 (Style256, foreground256, background256, common256) - , defaultStyleCommon - , defaultStyle8 - , defaultStyle256 - - , TextSpec (TextSpec, style8, style256) - , defaultTextSpec - - , chunkTextSpec - , chunkText - - -- * Basement - - -- | Ordinarily you will not need the things down here. Instead, the - -- definitions above will give you an instance of Mod that will - -- create the effect or color you need. - - -- ** Modifier newtype wrappers - - , Bold8 (Bold8, unBold8) - , Underline8 (Underline8, unUnderline8) - , Flash8 (Flash8, unFlash8) - , Inverse8 (Inverse8, unInverse8) - - , Bold256 (Bold256, unBold256) - , Underline256 (Underline256, unUnderline256) - , Flash256 (Flash256, unFlash256) - , Inverse256 (Inverse256, unInverse256) - - , BoldAll(..) - , UnderlineAll(..) - , FlashAll(..) - , InverseAll(..) - - , ForegroundAll (..) - , BackgroundAll (..) - - -- ** Wrappers for effects - - , Bold (Bold, unBold) - , Underline (Underline, unUnderline) - , Flash (Flash, unFlash) - , Inverse (Inverse, unInverse) - - -- ** 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 - - -import Data.Monoid (Monoid, mempty, mconcat) -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 - --- --- Mod --- - --- | A Mod is anything capable of modifying a Chunk. Usually these --- will modify the TextSpec, though a few Mod instead modify the Text --- itself. Typically you will create a Chunk with 'plain' and then use --- '+.+' repeatedly to modify the Chunk to suit your needs. -class Mod a where - changeChunk :: Chunk -> a -> Chunk - --- | When used as a modifier, a Text will replace the text within a --- Chunk with new text. --- --- > {-# LANGUAGE OverloadedStrings #-} --- > goodbyeWorld :: Chunk --- > goodbyeWorld = plain "Hello world!" +.+ "Goodbye world!" -instance Mod Text where - changeChunk (Chunk ts _) t' = Chunk ts t' - --- | Useful if you want to inspect the text in a Chunk and then build --- a new Chunk with different text. --- --- > {-# LANGUAGE OverloadedStrings #-} --- > import Data.Text (append) --- > helloDolly :: Chunk --- > helloDolly = plain "Hello" +.+ ChangeText (`append` " Dolly") -newtype ChangeText = ChangeText { unChangeText :: Text -> Text } - -instance Mod ChangeText where - changeChunk (Chunk ts t) (ChangeText f) = Chunk ts (f t) - --- | Applies a modifier to a Chunk. Left associative. -(+.+) :: Mod a => Chunk -> a -> Chunk -(+.+) = changeChunk -infixl 6 .+. - --- | Composes modifiers. Useful to build up a single function that --- modifies a Chunk. You might use this to build up several modifiers --- and use them repeatedly, or you might write an API that expects --- functions of type @Chunk -> Chunk@ and then you could use '.+.' to --- build those functions. Left associative. --- --- > redBoldUnderline :: Chunk -> Chunk --- > redBoldUnderline = id .+. f_red .+. bold .+. underline - -(.+.) :: Mod a => (Chunk -> Chunk) -> a -> Chunk -> Chunk -(.+.) f a c = changeChunk (f c) a -infixl 6 +.+ - --- For Background8, Background256, Foreground8, Foreground256: the --- newtype wraps a Terminfo Color. If Nothing, use the default color. - --- | Background color in an 8 color setting. -newtype Background8 = Background8 { unBackground8 :: Maybe T.Color } - deriving (Eq, Show, Ord) - -instance Mod Background8 where - changeChunk (Chunk ts t) b8 = - Chunk (ts { style8 = (style8 ts) { background8 = b8 } } ) t - --- | Background color in a 256 color setting. -newtype Background256 = Background256 { unBackground256 :: Maybe T.Color } - deriving (Eq, Show, Ord) - -instance Mod Background256 where - changeChunk (Chunk ts t) b256 = - Chunk (ts { style256 = (style256 ts) { background256 = b256 } } ) t - --- | Foreground color in an 8 color setting. -newtype Foreground8 = Foreground8 { unForeground8 :: Maybe T.Color } - deriving (Eq, Show, Ord) - -instance Mod Foreground8 where - changeChunk (Chunk ts t) f8 = - Chunk (ts { style8 = (style8 ts) { foreground8 = f8 } } ) t - --- | Foreground color in a 256 color setting. -newtype Foreground256 = Foreground256 { unForeground256 :: Maybe T.Color } - deriving (Eq, Show, Ord) - -instance Mod Foreground256 where - changeChunk (Chunk ts t) f256 = - Chunk (ts { style256 = (style256 ts) { foreground256 = f256 } } ) t - - --- --- 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. To change these attributes and colors, you --- must make a new chunk. --- --- There is no way to combine chunks. To print large numbers of --- chunks, lazily build a list of them and then print them using --- 'printChunks'. - -data Chunk = Chunk - { chunkTextSpec :: TextSpec - , chunkText :: Text - } deriving (Eq, Show, Ord) - --- | Makes a plain Chunk; that is, one that has no effects and is --- printed in the default foreground and background color for the --- terminal. Modify this chunk so that it has the colors and effects --- that you want. -plain :: Text -> Chunk -plain = Chunk defaultTextSpec - --- | 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 'printChunks' for notes on how many colors --- are used. -hPrintChunks :: IO.Handle -> Term -> [Chunk] -> IO () -hPrintChunks 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.printChunks: 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. -printChunks :: Term -> [Chunk] -> IO () -printChunks = hPrintChunks IO.stdout - -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 - -defaultColors :: T.Terminal -> T.TermOutput -defaultColors term = - fromMaybe mempty (T.getCapability term T.restoreDefaultColors) - --- --- Effects --- -newtype Bold = Bold { unBold :: Bool } - deriving (Show, Eq, Ord) - -newtype Underline = Underline { unUnderline :: Bool } - deriving (Show, Eq, Ord) - -newtype Flash = Flash { unFlash :: Bool } - deriving (Show, Eq, Ord) - -newtype Inverse = Inverse { unInverse :: Bool } - deriving (Show, Eq, Ord) - -newtype Bold8 = Bold8 { unBold8 :: Bold } - deriving (Show, Eq, Ord) - -bold8 :: Bold8 -bold8 = Bold8 (Bold True) - -bold8off :: Bold8 -bold8off = Bold8 (Bold False) - -instance Mod Bold8 where - changeChunk (Chunk ts t) (Bold8 b) = - let c8 = common8 . style8 $ ts - c8' = c8 { scBold = b } - ts' = ts { style8 = (style8 ts) { common8 = c8' } } - in Chunk ts' t - -newtype Underline8 = Underline8 { unUnderline8 :: Underline } - deriving (Show, Eq, Ord) - -underline8 :: Underline8 -underline8 = Underline8 (Underline True) - -underline8off :: Underline8 -underline8off = Underline8 (Underline False) - -instance Mod Underline8 where - changeChunk (Chunk ts t) (Underline8 u) = - let c8 = common8 . style8 $ ts - c8' = c8 { scUnderline = u } - ts' = ts { style8 = (style8 ts) { common8 = c8' } } - in Chunk ts' t - -newtype Flash8 = Flash8 { unFlash8 :: Flash } - deriving (Show, Eq, Ord) - -flash8 :: Flash8 -flash8 = Flash8 (Flash True) - -flash8off :: Flash8 -flash8off = Flash8 (Flash False) - -instance Mod Flash8 where - changeChunk (Chunk ts t) (Flash8 f) = - let c8 = common8 . style8 $ ts - c8' = c8 { scFlash = f } - ts' = ts { style8 = (style8 ts) { common8 = c8' } } - in Chunk ts' t - -newtype Inverse8 = Inverse8 { unInverse8 :: Inverse } - deriving (Show, Eq, Ord) - -inverse8 :: Inverse8 -inverse8 = Inverse8 (Inverse True) - -inverse8off :: Inverse8 -inverse8off = Inverse8 (Inverse False) - -instance Mod Inverse8 where - changeChunk (Chunk ts t) (Inverse8 i) = - let c8 = common8 . style8 $ ts - c8' = c8 { scInverse = i } - ts' = ts { style8 = (style8 ts) { common8 = c8' } } - in Chunk ts' t - -newtype Bold256 = Bold256 { unBold256 :: Bold } - deriving (Show, Eq, Ord) - -bold256 :: Bold256 -bold256 = Bold256 (Bold True) - -bold256off :: Bold256 -bold256off = Bold256 (Bold False) - -instance Mod Bold256 where - changeChunk (Chunk ts t) (Bold256 b) = - let c256 = common256 . style256 $ ts - c256' = c256 { scBold = b } - ts' = ts { style256 = (style256 ts) { common256 = c256' } } - in Chunk ts' t - -newtype Underline256 = Underline256 { unUnderline256 :: Underline } - deriving (Show, Eq, Ord) - -underline256 :: Underline256 -underline256 = Underline256 (Underline True) - -underline256off :: Underline256 -underline256off = Underline256 (Underline False) - -instance Mod Underline256 where - changeChunk (Chunk ts t) (Underline256 u) = - let c256 = common256 . style256 $ ts - c256' = c256 { scUnderline = u } - ts' = ts { style256 = (style256 ts) { common256 = c256' } } - in Chunk ts' t - -newtype Flash256 = Flash256 { unFlash256 :: Flash } - deriving (Show, Eq, Ord) - -flash256 :: Flash256 -flash256 = Flash256 (Flash True) - -flash256off :: Flash256 -flash256off = Flash256 (Flash False) - -instance Mod Flash256 where - changeChunk (Chunk ts t) (Flash256 f) = - let c256 = common256 . style256 $ ts - c256' = c256 { scFlash = f } - ts' = ts { style256 = (style256 ts) { common256 = c256' } } - in Chunk ts' t - -newtype Inverse256 = Inverse256 { unInverse256 :: Inverse } - deriving (Show, Eq, Ord) - -inverse256 :: Inverse256 -inverse256 = Inverse256 (Inverse True) - -inverse256off :: Inverse256 -inverse256off = Inverse256 (Inverse False) - -instance Mod Inverse256 where - changeChunk (Chunk ts t) (Inverse256 i) = - let c256 = common256 . style256 $ ts - c256' = c256 { scInverse = i } - ts' = ts { style256 = (style256 ts) { common256 = c256' } } - in Chunk ts' t - - --- --- All --- - -doAll - :: (Mod a, Mod b) - => (a, b) - -- ^ Turn on - -> (a, b) - -- ^ Turn off - -> Chunk - -> Bool - -> Chunk -doAll on off c b = - flip changeChunk m1 . flip changeChunk m2 $ c - where - (m1, m2) = if b then on else off - - -newtype BoldAll = BoldAll { unBoldAll :: Bool } - deriving (Eq, Ord, Show) - -bold :: BoldAll -bold = BoldAll True - -boldOff :: BoldAll -boldOff = BoldAll False - -instance Mod BoldAll where - changeChunk c = - doAll (bold8, bold256) (bold8off, bold256off) c . unBoldAll - -newtype UnderlineAll = UnderlineAll { unUnderlineAll :: Bool } - deriving (Eq, Ord, Show) - -underline :: UnderlineAll -underline = UnderlineAll True - -underlineOff :: UnderlineAll -underlineOff = UnderlineAll False - -instance Mod UnderlineAll where - changeChunk c = - doAll (underline8, underline256) - (underline8off, underline256off) c - . unUnderlineAll - -newtype FlashAll = FlashAll { unFlashAll :: Bool } - deriving (Eq, Ord, Show) - -flash :: FlashAll -flash = FlashAll True - -flashOff :: FlashAll -flashOff = FlashAll False - -instance Mod FlashAll where - changeChunk c = - doAll (flash8, flash256) (flash8off, flash256off) c - . unFlashAll - -newtype InverseAll = InverseAll { unInverseAll :: Bool } - deriving (Eq, Ord, Show) - -inverse :: InverseAll -inverse = InverseAll True - -inverseOff :: InverseAll -inverseOff = InverseAll False - -instance Mod InverseAll where - changeChunk c = - doAll (inverse8, inverse256) (inverse8off, inverse256off) c - . unInverseAll - -data ForegroundAll = ForegroundAll - { fa8 :: Foreground8 - , fa256 :: Foreground256 - } - -instance Mod ForegroundAll where - changeChunk c (ForegroundAll c8 c256) = - flip changeChunk c8 . flip changeChunk c256 $ c - -f_default :: ForegroundAll -f_default = ForegroundAll color8_f_default color256_f_default - -f_black :: ForegroundAll -f_black = ForegroundAll color8_f_black color256_f_black - -f_red :: ForegroundAll -f_red = ForegroundAll color8_f_red color256_f_red - -f_green :: ForegroundAll -f_green = ForegroundAll color8_f_green color256_f_green - -f_yellow :: ForegroundAll -f_yellow = ForegroundAll color8_f_yellow color256_f_yellow - -f_blue :: ForegroundAll -f_blue = ForegroundAll color8_f_blue color256_f_blue - -f_magenta :: ForegroundAll -f_magenta = ForegroundAll color8_f_magenta color256_f_magenta - -f_cyan :: ForegroundAll -f_cyan = ForegroundAll color8_f_cyan color256_f_cyan - -f_white :: ForegroundAll -f_white = ForegroundAll color8_f_white color256_f_white - - -data BackgroundAll = BackgroundAll - { ba8 :: Background8 - , ba256 :: Background256 - } - -instance Mod BackgroundAll where - changeChunk c (BackgroundAll c8 c256) = - flip changeChunk c8 . flip changeChunk c256 $ c - -b_default :: BackgroundAll -b_default = BackgroundAll color8_b_default color256_b_default - -b_black :: BackgroundAll -b_black = BackgroundAll color8_b_black color256_b_black - -b_red :: BackgroundAll -b_red = BackgroundAll color8_b_red color256_b_red - -b_green :: BackgroundAll -b_green = BackgroundAll color8_b_green color256_b_green - -b_yellow :: BackgroundAll -b_yellow = BackgroundAll color8_b_yellow color256_b_yellow - -b_blue :: BackgroundAll -b_blue = BackgroundAll color8_b_blue color256_b_blue - -b_magenta :: BackgroundAll -b_magenta = BackgroundAll color8_b_magenta color256_b_magenta - -b_cyan :: BackgroundAll -b_cyan = BackgroundAll color8_b_cyan color256_b_cyan - -b_white :: BackgroundAll -b_white = BackgroundAll color8_b_white color256_b_white - --- --- 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 :: Bold - , scUnderline :: Underline - , scFlash :: Flash - , scInverse :: Inverse - } deriving (Show, Eq, Ord) - --- | 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) - --- | 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) - --- | Has all bold, flash, underline, and inverse turned off. -defaultStyleCommon :: StyleCommon -defaultStyleCommon = StyleCommon - { scBold = Bold False - , scUnderline = Underline False - , scFlash = Flash False - , scInverse = Inverse False - } - --- | Uses the default terminal colors (which will vary depending on --- the terminal). -defaultStyle8 :: Style8 -defaultStyle8 = Style8 - { foreground8 = color8_f_default - , background8 = color8_b_default - , common8 = defaultStyleCommon - } - --- | Uses the default terminal colors (which will vary depending on --- the terminal). -defaultStyle256 :: Style256 -defaultStyle256 = Style256 - { foreground256 = color256_f_default - , background256 = color256_b_default - , common256 = defaultStyleCommon - } - --- --- 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) - --- | A TextSpec with the default colors on 8 and 256 color terminals, --- with all attributes turned off. -defaultTextSpec :: TextSpec -defaultTextSpec = TextSpec - { style8 = defaultStyle8 - , style256 = defaultStyle256 - } - --- --- Internal --- - -commonAttrs :: T.Terminal -> StyleCommon -> T.TermOutput -commonAttrs t s = - let a = T.Attributes - { T.standoutAttr = False - , T.underlineAttr = unUnderline . scUnderline $ s - , T.reverseAttr = unInverse . scInverse $ s - , T.blinkAttr = unFlash . scFlash $ s - , T.dimAttr = False - , T.boldAttr = unBold . 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 $ ( unForeground256 f256 - , unBackground256 b256 - , c256 ) - | cols >= 8 -> Just ( unForeground8 f8 - , unBackground8 b8 - , c8) - | otherwise -> Nothing - let oFg = maybe mempty setFg fg - oBg = maybe mempty setBg bg - oCm = commonAttrs t cm - return $ mconcat [oCm, oFg, oBg] - - --- --- Color basement --- -color8_f_default :: Foreground8 -color8_f_default = Foreground8 Nothing - -color8_f_black :: Foreground8 -color8_f_black = Foreground8 $ Just T.Black - -color8_f_red :: Foreground8 -color8_f_red = Foreground8 $ Just T.Red - -color8_f_green :: Foreground8 -color8_f_green = Foreground8 $ Just T.Green - -color8_f_yellow :: Foreground8 -color8_f_yellow = Foreground8 $ Just T.Yellow - -color8_f_blue :: Foreground8 -color8_f_blue = Foreground8 $ Just T.Blue - -color8_f_magenta :: Foreground8 -color8_f_magenta = Foreground8 $ Just T.Magenta - -color8_f_cyan :: Foreground8 -color8_f_cyan = Foreground8 $ Just T.Cyan - -color8_f_white :: Foreground8 -color8_f_white = Foreground8 $ Just T.White - -color8_b_default :: Background8 -color8_b_default = Background8 Nothing - -color8_b_black :: Background8 -color8_b_black = Background8 $ Just T.Black - -color8_b_red :: Background8 -color8_b_red = Background8 $ Just T.Red - -color8_b_green :: Background8 -color8_b_green = Background8 $ Just T.Green - -color8_b_yellow :: Background8 -color8_b_yellow = Background8 $ Just T.Yellow - -color8_b_blue :: Background8 -color8_b_blue = Background8 $ Just T.Blue - -color8_b_magenta :: Background8 -color8_b_magenta = Background8 $ Just T.Magenta - -color8_b_cyan :: Background8 -color8_b_cyan = Background8 $ Just T.Cyan - -color8_b_white :: Background8 -color8_b_white = Background8 $ Just T.White - -color256_f_default :: Foreground256 -color256_f_default = Foreground256 Nothing - -color256_f_0 :: Foreground256 -color256_f_0 = Foreground256 (Just (T.ColorNumber 0)) - -color256_f_black :: Foreground256 -color256_f_black = Foreground256 (Just (T.ColorNumber 0)) - -color256_f_1 :: Foreground256 -color256_f_1 = Foreground256 (Just (T.ColorNumber 1)) - -color256_f_red :: Foreground256 -color256_f_red = Foreground256 (Just (T.ColorNumber 1)) - -color256_f_2 :: Foreground256 -color256_f_2 = Foreground256 (Just (T.ColorNumber 2)) - -color256_f_green :: Foreground256 -color256_f_green = Foreground256 (Just (T.ColorNumber 2)) - -color256_f_3 :: Foreground256 -color256_f_3 = Foreground256 (Just (T.ColorNumber 3)) - -color256_f_yellow :: Foreground256 -color256_f_yellow = Foreground256 (Just (T.ColorNumber 3)) - -color256_f_4 :: Foreground256 -color256_f_4 = Foreground256 (Just (T.ColorNumber 4)) - -color256_f_blue :: Foreground256 -color256_f_blue = Foreground256 (Just (T.ColorNumber 4)) - -color256_f_5 :: Foreground256 -color256_f_5 = Foreground256 (Just (T.ColorNumber 5)) - -color256_f_magenta :: Foreground256 -color256_f_magenta = Foreground256 (Just (T.ColorNumber 5)) - -color256_f_6 :: Foreground256 -color256_f_6 = Foreground256 (Just (T.ColorNumber 6)) - -color256_f_cyan :: Foreground256 -color256_f_cyan = Foreground256 (Just (T.ColorNumber 6)) - -color256_f_7 :: Foreground256 -color256_f_7 = Foreground256 (Just (T.ColorNumber 7)) - -color256_f_white :: Foreground256 -color256_f_white = Foreground256 (Just (T.ColorNumber 7)) - -color256_f_8 :: Foreground256 -color256_f_8 = Foreground256 (Just (T.ColorNumber 8)) - -color256_f_grey :: Foreground256 -color256_f_grey = Foreground256 (Just (T.ColorNumber 8)) - -color256_f_9 :: Foreground256 -color256_f_9 = Foreground256 (Just (T.ColorNumber 9)) - -color256_f_red_bright :: Foreground256 -color256_f_red_bright = Foreground256 (Just (T.ColorNumber 9)) - -color256_f_10 :: Foreground256 -color256_f_10 = Foreground256 (Just (T.ColorNumber 10)) - -color256_f_green_bright :: Foreground256 -color256_f_green_bright = Foreground256 (Just (T.ColorNumber 10)) - -color256_f_11 :: Foreground256 -color256_f_11 = Foreground256 (Just (T.ColorNumber 11)) - -color256_f_yellow_bright :: Foreground256 -color256_f_yellow_bright = Foreground256 (Just (T.ColorNumber 11)) - -color256_f_12 :: Foreground256 -color256_f_12 = Foreground256 (Just (T.ColorNumber 12)) - -color256_f_blue_bright :: Foreground256 -color256_f_blue_bright = Foreground256 (Just (T.ColorNumber 12)) - -color256_f_13 :: Foreground256 -color256_f_13 = Foreground256 (Just (T.ColorNumber 13)) - -color256_f_magenta_bright :: Foreground256 -color256_f_magenta_bright = Foreground256 (Just (T.ColorNumber 13)) - -color256_f_14 :: Foreground256 -color256_f_14 = Foreground256 (Just (T.ColorNumber 14)) - -color256_f_cyan_bright :: Foreground256 -color256_f_cyan_bright = Foreground256 (Just (T.ColorNumber 14)) - -color256_f_15 :: Foreground256 -color256_f_15 = Foreground256 (Just (T.ColorNumber 15)) - -color256_f_white_bright :: Foreground256 -color256_f_white_bright = Foreground256 (Just (T.ColorNumber 15)) - -color256_f_16 :: Foreground256 -color256_f_16 = Foreground256 (Just (T.ColorNumber 16)) - -color256_f_17 :: Foreground256 -color256_f_17 = Foreground256 (Just (T.ColorNumber 17)) - -color256_f_18 :: Foreground256 -color256_f_18 = Foreground256 (Just (T.ColorNumber 18)) - -color256_f_19 :: Foreground256 -color256_f_19 = Foreground256 (Just (T.ColorNumber 19)) - -color256_f_20 :: Foreground256 -color256_f_20 = Foreground256 (Just (T.ColorNumber 20)) - -color256_f_21 :: Foreground256 -color256_f_21 = Foreground256 (Just (T.ColorNumber 21)) - -color256_f_22 :: Foreground256 -color256_f_22 = Foreground256 (Just (T.ColorNumber 22)) - -color256_f_23 :: Foreground256 -color256_f_23 = Foreground256 (Just (T.ColorNumber 23)) - -color256_f_24 :: Foreground256 -color256_f_24 = Foreground256 (Just (T.ColorNumber 24)) - -color256_f_25 :: Foreground256 -color256_f_25 = Foreground256 (Just (T.ColorNumber 25)) - -color256_f_26 :: Foreground256 -color256_f_26 = Foreground256 (Just (T.ColorNumber 26)) - -color256_f_27 :: Foreground256 -color256_f_27 = Foreground256 (Just (T.ColorNumber 27)) - -color256_f_28 :: Foreground256 -color256_f_28 = Foreground256 (Just (T.ColorNumber 28)) - -color256_f_29 :: Foreground256 -color256_f_29 = Foreground256 (Just (T.ColorNumber 29)) - -color256_f_30 :: Foreground256 -color256_f_30 = Foreground256 (Just (T.ColorNumber 30)) - -color256_f_31 :: Foreground256 -color256_f_31 = Foreground256 (Just (T.ColorNumber 31)) - -color256_f_32 :: Foreground256 -color256_f_32 = Foreground256 (Just (T.ColorNumber 32)) - -color256_f_33 :: Foreground256 -color256_f_33 = Foreground256 (Just (T.ColorNumber 33)) - -color256_f_34 :: Foreground256 -color256_f_34 = Foreground256 (Just (T.ColorNumber 34)) - -color256_f_35 :: Foreground256 -color256_f_35 = Foreground256 (Just (T.ColorNumber 35)) - -color256_f_36 :: Foreground256 -color256_f_36 = Foreground256 (Just (T.ColorNumber 36)) - -color256_f_37 :: Foreground256 -color256_f_37 = Foreground256 (Just (T.ColorNumber 37)) - -color256_f_38 :: Foreground256 -color256_f_38 = Foreground256 (Just (T.ColorNumber 38)) - -color256_f_39 :: Foreground256 -color256_f_39 = Foreground256 (Just (T.ColorNumber 39)) - -color256_f_40 :: Foreground256 -color256_f_40 = Foreground256 (Just (T.ColorNumber 40)) - -color256_f_41 :: Foreground256 -color256_f_41 = Foreground256 (Just (T.ColorNumber 41)) - -color256_f_42 :: Foreground256 -color256_f_42 = Foreground256 (Just (T.ColorNumber 42)) - -color256_f_43 :: Foreground256 -color256_f_43 = Foreground256 (Just (T.ColorNumber 43)) - -color256_f_44 :: Foreground256 -color256_f_44 = Foreground256 (Just (T.ColorNumber 44)) - -color256_f_45 :: Foreground256 -color256_f_45 = Foreground256 (Just (T.ColorNumber 45)) - -color256_f_46 :: Foreground256 -color256_f_46 = Foreground256 (Just (T.ColorNumber 46)) - -color256_f_47 :: Foreground256 -color256_f_47 = Foreground256 (Just (T.ColorNumber 47)) - -color256_f_48 :: Foreground256 -color256_f_48 = Foreground256 (Just (T.ColorNumber 48)) - -color256_f_49 :: Foreground256 -color256_f_49 = Foreground256 (Just (T.ColorNumber 49)) - -color256_f_50 :: Foreground256 -color256_f_50 = Foreground256 (Just (T.ColorNumber 50)) - -color256_f_51 :: Foreground256 -color256_f_51 = Foreground256 (Just (T.ColorNumber 51)) - -color256_f_52 :: Foreground256 -color256_f_52 = Foreground256 (Just (T.ColorNumber 52)) - -color256_f_53 :: Foreground256 -color256_f_53 = Foreground256 (Just (T.ColorNumber 53)) - -color256_f_54 :: Foreground256 -color256_f_54 = Foreground256 (Just (T.ColorNumber 54)) - -color256_f_55 :: Foreground256 -color256_f_55 = Foreground256 (Just (T.ColorNumber 55)) - -color256_f_56 :: Foreground256 -color256_f_56 = Foreground256 (Just (T.ColorNumber 56)) - -color256_f_57 :: Foreground256 -color256_f_57 = Foreground256 (Just (T.ColorNumber 57)) - -color256_f_58 :: Foreground256 -color256_f_58 = Foreground256 (Just (T.ColorNumber 58)) - -color256_f_59 :: Foreground256 -color256_f_59 = Foreground256 (Just (T.ColorNumber 59)) - -color256_f_60 :: Foreground256 -color256_f_60 = Foreground256 (Just (T.ColorNumber 60)) - -color256_f_61 :: Foreground256 -color256_f_61 = Foreground256 (Just (T.ColorNumber 61)) - -color256_f_62 :: Foreground256 -color256_f_62 = Foreground256 (Just (T.ColorNumber 62)) - -color256_f_63 :: Foreground256 -color256_f_63 = Foreground256 (Just (T.ColorNumber 63)) - -color256_f_64 :: Foreground256 -color256_f_64 = Foreground256 (Just (T.ColorNumber 64)) - -color256_f_65 :: Foreground256 -color256_f_65 = Foreground256 (Just (T.ColorNumber 65)) - -color256_f_66 :: Foreground256 -color256_f_66 = Foreground256 (Just (T.ColorNumber 66)) - -color256_f_67 :: Foreground256 -color256_f_67 = Foreground256 (Just (T.ColorNumber 67)) - -color256_f_68 :: Foreground256 -color256_f_68 = Foreground256 (Just (T.ColorNumber 68)) - -color256_f_69 :: Foreground256 -color256_f_69 = Foreground256 (Just (T.ColorNumber 69)) - -color256_f_70 :: Foreground256 -color256_f_70 = Foreground256 (Just (T.ColorNumber 70)) - -color256_f_71 :: Foreground256 -color256_f_71 = Foreground256 (Just (T.ColorNumber 71)) - -color256_f_72 :: Foreground256 -color256_f_72 = Foreground256 (Just (T.ColorNumber 72)) - -color256_f_73 :: Foreground256 -color256_f_73 = Foreground256 (Just (T.ColorNumber 73)) - -color256_f_74 :: Foreground256 -color256_f_74 = Foreground256 (Just (T.ColorNumber 74)) - -color256_f_75 :: Foreground256 -color256_f_75 = Foreground256 (Just (T.ColorNumber 75)) - -color256_f_76 :: Foreground256 -color256_f_76 = Foreground256 (Just (T.ColorNumber 76)) - -color256_f_77 :: Foreground256 -color256_f_77 = Foreground256 (Just (T.ColorNumber 77)) - -color256_f_78 :: Foreground256 -color256_f_78 = Foreground256 (Just (T.ColorNumber 78)) - -color256_f_79 :: Foreground256 -color256_f_79 = Foreground256 (Just (T.ColorNumber 79)) - -color256_f_80 :: Foreground256 -color256_f_80 = Foreground256 (Just (T.ColorNumber 80)) - -color256_f_81 :: Foreground256 -color256_f_81 = Foreground256 (Just (T.ColorNumber 81)) - -color256_f_82 :: Foreground256 -color256_f_82 = Foreground256 (Just (T.ColorNumber 82)) - -color256_f_83 :: Foreground256 -color256_f_83 = Foreground256 (Just (T.ColorNumber 83)) - -color256_f_84 :: Foreground256 -color256_f_84 = Foreground256 (Just (T.ColorNumber 84)) - -color256_f_85 :: Foreground256 -color256_f_85 = Foreground256 (Just (T.ColorNumber 85)) - -color256_f_86 :: Foreground256 -color256_f_86 = Foreground256 (Just (T.ColorNumber 86)) - -color256_f_87 :: Foreground256 -color256_f_87 = Foreground256 (Just (T.ColorNumber 87)) - -color256_f_88 :: Foreground256 -color256_f_88 = Foreground256 (Just (T.ColorNumber 88)) - -color256_f_89 :: Foreground256 -color256_f_89 = Foreground256 (Just (T.ColorNumber 89)) - -color256_f_90 :: Foreground256 -color256_f_90 = Foreground256 (Just (T.ColorNumber 90)) - -color256_f_91 :: Foreground256 -color256_f_91 = Foreground256 (Just (T.ColorNumber 91)) - -color256_f_92 :: Foreground256 -color256_f_92 = Foreground256 (Just (T.ColorNumber 92)) - -color256_f_93 :: Foreground256 -color256_f_93 = Foreground256 (Just (T.ColorNumber 93)) - -color256_f_94 :: Foreground256 -color256_f_94 = Foreground256 (Just (T.ColorNumber 94)) - -color256_f_95 :: Foreground256 -color256_f_95 = Foreground256 (Just (T.ColorNumber 95)) - -color256_f_96 :: Foreground256 -color256_f_96 = Foreground256 (Just (T.ColorNumber 96)) - -color256_f_97 :: Foreground256 -color256_f_97 = Foreground256 (Just (T.ColorNumber 97)) - -color256_f_98 :: Foreground256 -color256_f_98 = Foreground256 (Just (T.ColorNumber 98)) - -color256_f_99 :: Foreground256 -color256_f_99 = Foreground256 (Just (T.ColorNumber 99)) - -color256_f_100 :: Foreground256 -color256_f_100 = Foreground256 (Just (T.ColorNumber 100)) - -color256_f_101 :: Foreground256 -color256_f_101 = Foreground256 (Just (T.ColorNumber 101)) - -color256_f_102 :: Foreground256 -color256_f_102 = Foreground256 (Just (T.ColorNumber 102)) - -color256_f_103 :: Foreground256 -color256_f_103 = Foreground256 (Just (T.ColorNumber 103)) - -color256_f_104 :: Foreground256 -color256_f_104 = Foreground256 (Just (T.ColorNumber 104)) - -color256_f_105 :: Foreground256 -color256_f_105 = Foreground256 (Just (T.ColorNumber 105)) - -color256_f_106 :: Foreground256 -color256_f_106 = Foreground256 (Just (T.ColorNumber 106)) - -color256_f_107 :: Foreground256 -color256_f_107 = Foreground256 (Just (T.ColorNumber 107)) - -color256_f_108 :: Foreground256 -color256_f_108 = Foreground256 (Just (T.ColorNumber 108)) - -color256_f_109 :: Foreground256 -color256_f_109 = Foreground256 (Just (T.ColorNumber 109)) - -color256_f_110 :: Foreground256 -color256_f_110 = Foreground256 (Just (T.ColorNumber 110)) - -color256_f_111 :: Foreground256 -color256_f_111 = Foreground256 (Just (T.ColorNumber 111)) - -color256_f_112 :: Foreground256 -color256_f_112 = Foreground256 (Just (T.ColorNumber 112)) - -color256_f_113 :: Foreground256 -color256_f_113 = Foreground256 (Just (T.ColorNumber 113)) - -color256_f_114 :: Foreground256 -color256_f_114 = Foreground256 (Just (T.ColorNumber 114)) - -color256_f_115 :: Foreground256 -color256_f_115 = Foreground256 (Just (T.ColorNumber 115)) - -color256_f_116 :: Foreground256 -color256_f_116 = Foreground256 (Just (T.ColorNumber 116)) - -color256_f_117 :: Foreground256 -color256_f_117 = Foreground256 (Just (T.ColorNumber 117)) - -color256_f_118 :: Foreground256 -color256_f_118 = Foreground256 (Just (T.ColorNumber 118)) - -color256_f_119 :: Foreground256 -color256_f_119 = Foreground256 (Just (T.ColorNumber 119)) - -color256_f_120 :: Foreground256 -color256_f_120 = Foreground256 (Just (T.ColorNumber 120)) - -color256_f_121 :: Foreground256 -color256_f_121 = Foreground256 (Just (T.ColorNumber 121)) - -color256_f_122 :: Foreground256 -color256_f_122 = Foreground256 (Just (T.ColorNumber 122)) - -color256_f_123 :: Foreground256 -color256_f_123 = Foreground256 (Just (T.ColorNumber 123)) - -color256_f_124 :: Foreground256 -color256_f_124 = Foreground256 (Just (T.ColorNumber 124)) - -color256_f_125 :: Foreground256 -color256_f_125 = Foreground256 (Just (T.ColorNumber 125)) - -color256_f_126 :: Foreground256 -color256_f_126 = Foreground256 (Just (T.ColorNumber 126)) - -color256_f_127 :: Foreground256 -color256_f_127 = Foreground256 (Just (T.ColorNumber 127)) - -color256_f_128 :: Foreground256 -color256_f_128 = Foreground256 (Just (T.ColorNumber 128)) - -color256_f_129 :: Foreground256 -color256_f_129 = Foreground256 (Just (T.ColorNumber 129)) - -color256_f_130 :: Foreground256 -color256_f_130 = Foreground256 (Just (T.ColorNumber 130)) - -color256_f_131 :: Foreground256 -color256_f_131 = Foreground256 (Just (T.ColorNumber 131)) - -color256_f_132 :: Foreground256 -color256_f_132 = Foreground256 (Just (T.ColorNumber 132)) - -color256_f_133 :: Foreground256 -color256_f_133 = Foreground256 (Just (T.ColorNumber 133)) - -color256_f_134 :: Foreground256 -color256_f_134 = Foreground256 (Just (T.ColorNumber 134)) - -color256_f_135 :: Foreground256 -color256_f_135 = Foreground256 (Just (T.ColorNumber 135)) - -color256_f_136 :: Foreground256 -color256_f_136 = Foreground256 (Just (T.ColorNumber 136)) - -color256_f_137 :: Foreground256 -color256_f_137 = Foreground256 (Just (T.ColorNumber 137)) - -color256_f_138 :: Foreground256 -color256_f_138 = Foreground256 (Just (T.ColorNumber 138)) - -color256_f_139 :: Foreground256 -color256_f_139 = Foreground256 (Just (T.ColorNumber 139)) - -color256_f_140 :: Foreground256 -color256_f_140 = Foreground256 (Just (T.ColorNumber 140)) - -color256_f_141 :: Foreground256 -color256_f_141 = Foreground256 (Just (T.ColorNumber 141)) - -color256_f_142 :: Foreground256 -color256_f_142 = Foreground256 (Just (T.ColorNumber 142)) - -color256_f_143 :: Foreground256 -color256_f_143 = Foreground256 (Just (T.ColorNumber 143)) - -color256_f_144 :: Foreground256 -color256_f_144 = Foreground256 (Just (T.ColorNumber 144)) - -color256_f_145 :: Foreground256 -color256_f_145 = Foreground256 (Just (T.ColorNumber 145)) - -color256_f_146 :: Foreground256 -color256_f_146 = Foreground256 (Just (T.ColorNumber 146)) - -color256_f_147 :: Foreground256 -color256_f_147 = Foreground256 (Just (T.ColorNumber 147)) - -color256_f_148 :: Foreground256 -color256_f_148 = Foreground256 (Just (T.ColorNumber 148)) - -color256_f_149 :: Foreground256 -color256_f_149 = Foreground256 (Just (T.ColorNumber 149)) - -color256_f_150 :: Foreground256 -color256_f_150 = Foreground256 (Just (T.ColorNumber 150)) - -color256_f_151 :: Foreground256 -color256_f_151 = Foreground256 (Just (T.ColorNumber 151)) - -color256_f_152 :: Foreground256 -color256_f_152 = Foreground256 (Just (T.ColorNumber 152)) - -color256_f_153 :: Foreground256 -color256_f_153 = Foreground256 (Just (T.ColorNumber 153)) - -color256_f_154 :: Foreground256 -color256_f_154 = Foreground256 (Just (T.ColorNumber 154)) - -color256_f_155 :: Foreground256 -color256_f_155 = Foreground256 (Just (T.ColorNumber 155)) - -color256_f_156 :: Foreground256 -color256_f_156 = Foreground256 (Just (T.ColorNumber 156)) - -color256_f_157 :: Foreground256 -color256_f_157 = Foreground256 (Just (T.ColorNumber 157)) - -color256_f_158 :: Foreground256 -color256_f_158 = Foreground256 (Just (T.ColorNumber 158)) - -color256_f_159 :: Foreground256 -color256_f_159 = Foreground256 (Just (T.ColorNumber 159)) - -color256_f_160 :: Foreground256 -color256_f_160 = Foreground256 (Just (T.ColorNumber 160)) - -color256_f_161 :: Foreground256 -color256_f_161 = Foreground256 (Just (T.ColorNumber 161)) - -color256_f_162 :: Foreground256 -color256_f_162 = Foreground256 (Just (T.ColorNumber 162)) - -color256_f_163 :: Foreground256 -color256_f_163 = Foreground256 (Just (T.ColorNumber 163)) - -color256_f_164 :: Foreground256 -color256_f_164 = Foreground256 (Just (T.ColorNumber 164)) - -color256_f_165 :: Foreground256 -color256_f_165 = Foreground256 (Just (T.ColorNumber 165)) - -color256_f_166 :: Foreground256 -color256_f_166 = Foreground256 (Just (T.ColorNumber 166)) - -color256_f_167 :: Foreground256 -color256_f_167 = Foreground256 (Just (T.ColorNumber 167)) - -color256_f_168 :: Foreground256 -color256_f_168 = Foreground256 (Just (T.ColorNumber 168)) - -color256_f_169 :: Foreground256 -color256_f_169 = Foreground256 (Just (T.ColorNumber 169)) - -color256_f_170 :: Foreground256 -color256_f_170 = Foreground256 (Just (T.ColorNumber 170)) - -color256_f_171 :: Foreground256 -color256_f_171 = Foreground256 (Just (T.ColorNumber 171)) - -color256_f_172 :: Foreground256 -color256_f_172 = Foreground256 (Just (T.ColorNumber 172)) - -color256_f_173 :: Foreground256 -color256_f_173 = Foreground256 (Just (T.ColorNumber 173)) - -color256_f_174 :: Foreground256 -color256_f_174 = Foreground256 (Just (T.ColorNumber 174)) - -color256_f_175 :: Foreground256 -color256_f_175 = Foreground256 (Just (T.ColorNumber 175)) - -color256_f_176 :: Foreground256 -color256_f_176 = Foreground256 (Just (T.ColorNumber 176)) - -color256_f_177 :: Foreground256 -color256_f_177 = Foreground256 (Just (T.ColorNumber 177)) - -color256_f_178 :: Foreground256 -color256_f_178 = Foreground256 (Just (T.ColorNumber 178)) - -color256_f_179 :: Foreground256 -color256_f_179 = Foreground256 (Just (T.ColorNumber 179)) - -color256_f_180 :: Foreground256 -color256_f_180 = Foreground256 (Just (T.ColorNumber 180)) - -color256_f_181 :: Foreground256 -color256_f_181 = Foreground256 (Just (T.ColorNumber 181)) - -color256_f_182 :: Foreground256 -color256_f_182 = Foreground256 (Just (T.ColorNumber 182)) - -color256_f_183 :: Foreground256 -color256_f_183 = Foreground256 (Just (T.ColorNumber 183)) - -color256_f_184 :: Foreground256 -color256_f_184 = Foreground256 (Just (T.ColorNumber 184)) - -color256_f_185 :: Foreground256 -color256_f_185 = Foreground256 (Just (T.ColorNumber 185)) - -color256_f_186 :: Foreground256 -color256_f_186 = Foreground256 (Just (T.ColorNumber 186)) - -color256_f_187 :: Foreground256 -color256_f_187 = Foreground256 (Just (T.ColorNumber 187)) - -color256_f_188 :: Foreground256 -color256_f_188 = Foreground256 (Just (T.ColorNumber 188)) - -color256_f_189 :: Foreground256 -color256_f_189 = Foreground256 (Just (T.ColorNumber 189)) - -color256_f_190 :: Foreground256 -color256_f_190 = Foreground256 (Just (T.ColorNumber 190)) - -color256_f_191 :: Foreground256 -color256_f_191 = Foreground256 (Just (T.ColorNumber 191)) - -color256_f_192 :: Foreground256 -color256_f_192 = Foreground256 (Just (T.ColorNumber 192)) - -color256_f_193 :: Foreground256 -color256_f_193 = Foreground256 (Just (T.ColorNumber 193)) - -color256_f_194 :: Foreground256 -color256_f_194 = Foreground256 (Just (T.ColorNumber 194)) - -color256_f_195 :: Foreground256 -color256_f_195 = Foreground256 (Just (T.ColorNumber 195)) - -color256_f_196 :: Foreground256 -color256_f_196 = Foreground256 (Just (T.ColorNumber 196)) - -color256_f_197 :: Foreground256 -color256_f_197 = Foreground256 (Just (T.ColorNumber 197)) - -color256_f_198 :: Foreground256 -color256_f_198 = Foreground256 (Just (T.ColorNumber 198)) - -color256_f_199 :: Foreground256 -color256_f_199 = Foreground256 (Just (T.ColorNumber 199)) - -color256_f_200 :: Foreground256 -color256_f_200 = Foreground256 (Just (T.ColorNumber 200)) - -color256_f_201 :: Foreground256 -color256_f_201 = Foreground256 (Just (T.ColorNumber 201)) - -color256_f_202 :: Foreground256 -color256_f_202 = Foreground256 (Just (T.ColorNumber 202)) - -color256_f_203 :: Foreground256 -color256_f_203 = Foreground256 (Just (T.ColorNumber 203)) - -color256_f_204 :: Foreground256 -color256_f_204 = Foreground256 (Just (T.ColorNumber 204)) - -color256_f_205 :: Foreground256 -color256_f_205 = Foreground256 (Just (T.ColorNumber 205)) - -color256_f_206 :: Foreground256 -color256_f_206 = Foreground256 (Just (T.ColorNumber 206)) - -color256_f_207 :: Foreground256 -color256_f_207 = Foreground256 (Just (T.ColorNumber 207)) - -color256_f_208 :: Foreground256 -color256_f_208 = Foreground256 (Just (T.ColorNumber 208)) - -color256_f_209 :: Foreground256 -color256_f_209 = Foreground256 (Just (T.ColorNumber 209)) - -color256_f_210 :: Foreground256 -color256_f_210 = Foreground256 (Just (T.ColorNumber 210)) - -color256_f_211 :: Foreground256 -color256_f_211 = Foreground256 (Just (T.ColorNumber 211)) - -color256_f_212 :: Foreground256 -color256_f_212 = Foreground256 (Just (T.ColorNumber 212)) - -color256_f_213 :: Foreground256 -color256_f_213 = Foreground256 (Just (T.ColorNumber 213)) - -color256_f_214 :: Foreground256 -color256_f_214 = Foreground256 (Just (T.ColorNumber 214)) - -color256_f_215 :: Foreground256 -color256_f_215 = Foreground256 (Just (T.ColorNumber 215)) - -color256_f_216 :: Foreground256 -color256_f_216 = Foreground256 (Just (T.ColorNumber 216)) - -color256_f_217 :: Foreground256 -color256_f_217 = Foreground256 (Just (T.ColorNumber 217)) - -color256_f_218 :: Foreground256 -color256_f_218 = Foreground256 (Just (T.ColorNumber 218)) - -color256_f_219 :: Foreground256 -color256_f_219 = Foreground256 (Just (T.ColorNumber 219)) - -color256_f_220 :: Foreground256 -color256_f_220 = Foreground256 (Just (T.ColorNumber 220)) - -color256_f_221 :: Foreground256 -color256_f_221 = Foreground256 (Just (T.ColorNumber 221)) - -color256_f_222 :: Foreground256 -color256_f_222 = Foreground256 (Just (T.ColorNumber 222)) - -color256_f_223 :: Foreground256 -color256_f_223 = Foreground256 (Just (T.ColorNumber 223)) - -color256_f_224 :: Foreground256 -color256_f_224 = Foreground256 (Just (T.ColorNumber 224)) - -color256_f_225 :: Foreground256 -color256_f_225 = Foreground256 (Just (T.ColorNumber 225)) - -color256_f_226 :: Foreground256 -color256_f_226 = Foreground256 (Just (T.ColorNumber 226)) - -color256_f_227 :: Foreground256 -color256_f_227 = Foreground256 (Just (T.ColorNumber 227)) - -color256_f_228 :: Foreground256 -color256_f_228 = Foreground256 (Just (T.ColorNumber 228)) - -color256_f_229 :: Foreground256 -color256_f_229 = Foreground256 (Just (T.ColorNumber 229)) - -color256_f_230 :: Foreground256 -color256_f_230 = Foreground256 (Just (T.ColorNumber 230)) - -color256_f_231 :: Foreground256 -color256_f_231 = Foreground256 (Just (T.ColorNumber 231)) - -color256_f_232 :: Foreground256 -color256_f_232 = Foreground256 (Just (T.ColorNumber 232)) - -color256_f_233 :: Foreground256 -color256_f_233 = Foreground256 (Just (T.ColorNumber 233)) - -color256_f_234 :: Foreground256 -color256_f_234 = Foreground256 (Just (T.ColorNumber 234)) - -color256_f_235 :: Foreground256 -color256_f_235 = Foreground256 (Just (T.ColorNumber 235)) - -color256_f_236 :: Foreground256 -color256_f_236 = Foreground256 (Just (T.ColorNumber 236)) - -color256_f_237 :: Foreground256 -color256_f_237 = Foreground256 (Just (T.ColorNumber 237)) - -color256_f_238 :: Foreground256 -color256_f_238 = Foreground256 (Just (T.ColorNumber 238)) - -color256_f_239 :: Foreground256 -color256_f_239 = Foreground256 (Just (T.ColorNumber 239)) - -color256_f_240 :: Foreground256 -color256_f_240 = Foreground256 (Just (T.ColorNumber 240)) - -color256_f_241 :: Foreground256 -color256_f_241 = Foreground256 (Just (T.ColorNumber 241)) - -color256_f_242 :: Foreground256 -color256_f_242 = Foreground256 (Just (T.ColorNumber 242)) - -color256_f_243 :: Foreground256 -color256_f_243 = Foreground256 (Just (T.ColorNumber 243)) - -color256_f_244 :: Foreground256 -color256_f_244 = Foreground256 (Just (T.ColorNumber 244)) - -color256_f_245 :: Foreground256 -color256_f_245 = Foreground256 (Just (T.ColorNumber 245)) - -color256_f_246 :: Foreground256 -color256_f_246 = Foreground256 (Just (T.ColorNumber 246)) - -color256_f_247 :: Foreground256 -color256_f_247 = Foreground256 (Just (T.ColorNumber 247)) - -color256_f_248 :: Foreground256 -color256_f_248 = Foreground256 (Just (T.ColorNumber 248)) - -color256_f_249 :: Foreground256 -color256_f_249 = Foreground256 (Just (T.ColorNumber 249)) - -color256_f_250 :: Foreground256 -color256_f_250 = Foreground256 (Just (T.ColorNumber 250)) - -color256_f_251 :: Foreground256 -color256_f_251 = Foreground256 (Just (T.ColorNumber 251)) - -color256_f_252 :: Foreground256 -color256_f_252 = Foreground256 (Just (T.ColorNumber 252)) - -color256_f_253 :: Foreground256 -color256_f_253 = Foreground256 (Just (T.ColorNumber 253)) - -color256_f_254 :: Foreground256 -color256_f_254 = Foreground256 (Just (T.ColorNumber 254)) - -color256_f_255 :: Foreground256 -color256_f_255 = Foreground256 (Just (T.ColorNumber 255)) - -color256_b_default :: Background256 -color256_b_default = Background256 Nothing - -color256_b_0 :: Background256 -color256_b_0 = Background256 (Just (T.ColorNumber 0)) - -color256_b_black :: Background256 -color256_b_black = Background256 (Just (T.ColorNumber 0)) - -color256_b_1 :: Background256 -color256_b_1 = Background256 (Just (T.ColorNumber 1)) - -color256_b_red :: Background256 -color256_b_red = Background256 (Just (T.ColorNumber 1)) - -color256_b_2 :: Background256 -color256_b_2 = Background256 (Just (T.ColorNumber 2)) - -color256_b_green :: Background256 -color256_b_green = Background256 (Just (T.ColorNumber 2)) - -color256_b_3 :: Background256 -color256_b_3 = Background256 (Just (T.ColorNumber 3)) - -color256_b_yellow :: Background256 -color256_b_yellow = Background256 (Just (T.ColorNumber 3)) - -color256_b_4 :: Background256 -color256_b_4 = Background256 (Just (T.ColorNumber 4)) - -color256_b_blue :: Background256 -color256_b_blue = Background256 (Just (T.ColorNumber 4)) - -color256_b_5 :: Background256 -color256_b_5 = Background256 (Just (T.ColorNumber 5)) - -color256_b_magenta :: Background256 -color256_b_magenta = Background256 (Just (T.ColorNumber 5)) - -color256_b_6 :: Background256 -color256_b_6 = Background256 (Just (T.ColorNumber 6)) - -color256_b_cyan :: Background256 -color256_b_cyan = Background256 (Just (T.ColorNumber 6)) - -color256_b_7 :: Background256 -color256_b_7 = Background256 (Just (T.ColorNumber 7)) - -color256_b_white :: Background256 -color256_b_white = Background256 (Just (T.ColorNumber 7)) - -color256_b_8 :: Background256 -color256_b_8 = Background256 (Just (T.ColorNumber 8)) - -color256_b_grey :: Background256 -color256_b_grey = Background256 (Just (T.ColorNumber 8)) - -color256_b_9 :: Background256 -color256_b_9 = Background256 (Just (T.ColorNumber 9)) - -color256_b_red_bright :: Background256 -color256_b_red_bright = Background256 (Just (T.ColorNumber 9)) - -color256_b_10 :: Background256 -color256_b_10 = Background256 (Just (T.ColorNumber 10)) - -color256_b_green_bright :: Background256 -color256_b_green_bright = Background256 (Just (T.ColorNumber 10)) - -color256_b_11 :: Background256 -color256_b_11 = Background256 (Just (T.ColorNumber 11)) - -color256_b_yellow_bright :: Background256 -color256_b_yellow_bright = Background256 (Just (T.ColorNumber 11)) - -color256_b_12 :: Background256 -color256_b_12 = Background256 (Just (T.ColorNumber 12)) - -color256_b_blue_bright :: Background256 -color256_b_blue_bright = Background256 (Just (T.ColorNumber 12)) - -color256_b_13 :: Background256 -color256_b_13 = Background256 (Just (T.ColorNumber 13)) - -color256_b_magenta_bright :: Background256 -color256_b_magenta_bright = Background256 (Just (T.ColorNumber 13)) - -color256_b_14 :: Background256 -color256_b_14 = Background256 (Just (T.ColorNumber 14)) - -color256_b_cyan_bright :: Background256 -color256_b_cyan_bright = Background256 (Just (T.ColorNumber 14)) - -color256_b_15 :: Background256 -color256_b_15 = Background256 (Just (T.ColorNumber 15)) - -color256_b_white_bright :: Background256 -color256_b_white_bright = Background256 (Just (T.ColorNumber 15)) - -color256_b_16 :: Background256 -color256_b_16 = Background256 (Just (T.ColorNumber 16)) - -color256_b_17 :: Background256 -color256_b_17 = Background256 (Just (T.ColorNumber 17)) - -color256_b_18 :: Background256 -color256_b_18 = Background256 (Just (T.ColorNumber 18)) - -color256_b_19 :: Background256 -color256_b_19 = Background256 (Just (T.ColorNumber 19)) - -color256_b_20 :: Background256 -color256_b_20 = Background256 (Just (T.ColorNumber 20)) - -color256_b_21 :: Background256 -color256_b_21 = Background256 (Just (T.ColorNumber 21)) - -color256_b_22 :: Background256 -color256_b_22 = Background256 (Just (T.ColorNumber 22)) - -color256_b_23 :: Background256 -color256_b_23 = Background256 (Just (T.ColorNumber 23)) - -color256_b_24 :: Background256 -color256_b_24 = Background256 (Just (T.ColorNumber 24)) - -color256_b_25 :: Background256 -color256_b_25 = Background256 (Just (T.ColorNumber 25)) - -color256_b_26 :: Background256 -color256_b_26 = Background256 (Just (T.ColorNumber 26)) - -color256_b_27 :: Background256 -color256_b_27 = Background256 (Just (T.ColorNumber 27)) - -color256_b_28 :: Background256 -color256_b_28 = Background256 (Just (T.ColorNumber 28)) - -color256_b_29 :: Background256 -color256_b_29 = Background256 (Just (T.ColorNumber 29)) - -color256_b_30 :: Background256 -color256_b_30 = Background256 (Just (T.ColorNumber 30)) - -color256_b_31 :: Background256 -color256_b_31 = Background256 (Just (T.ColorNumber 31)) - -color256_b_32 :: Background256 -color256_b_32 = Background256 (Just (T.ColorNumber 32)) - -color256_b_33 :: Background256 -color256_b_33 = Background256 (Just (T.ColorNumber 33)) - -color256_b_34 :: Background256 -color256_b_34 = Background256 (Just (T.ColorNumber 34)) - -color256_b_35 :: Background256 -color256_b_35 = Background256 (Just (T.ColorNumber 35)) - -color256_b_36 :: Background256 -color256_b_36 = Background256 (Just (T.ColorNumber 36)) - -color256_b_37 :: Background256 -color256_b_37 = Background256 (Just (T.ColorNumber 37)) - -color256_b_38 :: Background256 -color256_b_38 = Background256 (Just (T.ColorNumber 38)) - -color256_b_39 :: Background256 -color256_b_39 = Background256 (Just (T.ColorNumber 39)) - -color256_b_40 :: Background256 -color256_b_40 = Background256 (Just (T.ColorNumber 40)) - -color256_b_41 :: Background256 -color256_b_41 = Background256 (Just (T.ColorNumber 41)) - -color256_b_42 :: Background256 -color256_b_42 = Background256 (Just (T.ColorNumber 42)) - -color256_b_43 :: Background256 -color256_b_43 = Background256 (Just (T.ColorNumber 43)) - -color256_b_44 :: Background256 -color256_b_44 = Background256 (Just (T.ColorNumber 44)) - -color256_b_45 :: Background256 -color256_b_45 = Background256 (Just (T.ColorNumber 45)) - -color256_b_46 :: Background256 -color256_b_46 = Background256 (Just (T.ColorNumber 46)) - -color256_b_47 :: Background256 -color256_b_47 = Background256 (Just (T.ColorNumber 47)) - -color256_b_48 :: Background256 -color256_b_48 = Background256 (Just (T.ColorNumber 48)) - -color256_b_49 :: Background256 -color256_b_49 = Background256 (Just (T.ColorNumber 49)) - -color256_b_50 :: Background256 -color256_b_50 = Background256 (Just (T.ColorNumber 50)) - -color256_b_51 :: Background256 -color256_b_51 = Background256 (Just (T.ColorNumber 51)) - -color256_b_52 :: Background256 -color256_b_52 = Background256 (Just (T.ColorNumber 52)) - -color256_b_53 :: Background256 -color256_b_53 = Background256 (Just (T.ColorNumber 53)) - -color256_b_54 :: Background256 -color256_b_54 = Background256 (Just (T.ColorNumber 54)) - -color256_b_55 :: Background256 -color256_b_55 = Background256 (Just (T.ColorNumber 55)) - -color256_b_56 :: Background256 -color256_b_56 = Background256 (Just (T.ColorNumber 56)) - -color256_b_57 :: Background256 -color256_b_57 = Background256 (Just (T.ColorNumber 57)) - -color256_b_58 :: Background256 -color256_b_58 = Background256 (Just (T.ColorNumber 58)) - -color256_b_59 :: Background256 -color256_b_59 = Background256 (Just (T.ColorNumber 59)) - -color256_b_60 :: Background256 -color256_b_60 = Background256 (Just (T.ColorNumber 60)) - -color256_b_61 :: Background256 -color256_b_61 = Background256 (Just (T.ColorNumber 61)) - -color256_b_62 :: Background256 -color256_b_62 = Background256 (Just (T.ColorNumber 62)) - -color256_b_63 :: Background256 -color256_b_63 = Background256 (Just (T.ColorNumber 63)) - -color256_b_64 :: Background256 -color256_b_64 = Background256 (Just (T.ColorNumber 64)) - -color256_b_65 :: Background256 -color256_b_65 = Background256 (Just (T.ColorNumber 65)) - -color256_b_66 :: Background256 -color256_b_66 = Background256 (Just (T.ColorNumber 66)) - -color256_b_67 :: Background256 -color256_b_67 = Background256 (Just (T.ColorNumber 67)) - -color256_b_68 :: Background256 -color256_b_68 = Background256 (Just (T.ColorNumber 68)) - -color256_b_69 :: Background256 -color256_b_69 = Background256 (Just (T.ColorNumber 69)) - -color256_b_70 :: Background256 -color256_b_70 = Background256 (Just (T.ColorNumber 70)) - -color256_b_71 :: Background256 -color256_b_71 = Background256 (Just (T.ColorNumber 71)) - -color256_b_72 :: Background256 -color256_b_72 = Background256 (Just (T.ColorNumber 72)) - -color256_b_73 :: Background256 -color256_b_73 = Background256 (Just (T.ColorNumber 73)) - -color256_b_74 :: Background256 -color256_b_74 = Background256 (Just (T.ColorNumber 74)) - -color256_b_75 :: Background256 -color256_b_75 = Background256 (Just (T.ColorNumber 75)) - -color256_b_76 :: Background256 -color256_b_76 = Background256 (Just (T.ColorNumber 76)) - -color256_b_77 :: Background256 -color256_b_77 = Background256 (Just (T.ColorNumber 77)) - -color256_b_78 :: Background256 -color256_b_78 = Background256 (Just (T.ColorNumber 78)) - -color256_b_79 :: Background256 -color256_b_79 = Background256 (Just (T.ColorNumber 79)) - -color256_b_80 :: Background256 -color256_b_80 = Background256 (Just (T.ColorNumber 80)) - -color256_b_81 :: Background256 -color256_b_81 = Background256 (Just (T.ColorNumber 81)) - -color256_b_82 :: Background256 -color256_b_82 = Background256 (Just (T.ColorNumber 82)) - -color256_b_83 :: Background256 -color256_b_83 = Background256 (Just (T.ColorNumber 83)) - -color256_b_84 :: Background256 -color256_b_84 = Background256 (Just (T.ColorNumber 84)) - -color256_b_85 :: Background256 -color256_b_85 = Background256 (Just (T.ColorNumber 85)) - -color256_b_86 :: Background256 -color256_b_86 = Background256 (Just (T.ColorNumber 86)) - -color256_b_87 :: Background256 -color256_b_87 = Background256 (Just (T.ColorNumber 87)) - -color256_b_88 :: Background256 -color256_b_88 = Background256 (Just (T.ColorNumber 88)) - -color256_b_89 :: Background256 -color256_b_89 = Background256 (Just (T.ColorNumber 89)) - -color256_b_90 :: Background256 -color256_b_90 = Background256 (Just (T.ColorNumber 90)) - -color256_b_91 :: Background256 -color256_b_91 = Background256 (Just (T.ColorNumber 91)) - -color256_b_92 :: Background256 -color256_b_92 = Background256 (Just (T.ColorNumber 92)) - -color256_b_93 :: Background256 -color256_b_93 = Background256 (Just (T.ColorNumber 93)) - -color256_b_94 :: Background256 -color256_b_94 = Background256 (Just (T.ColorNumber 94)) - -color256_b_95 :: Background256 -color256_b_95 = Background256 (Just (T.ColorNumber 95)) - -color256_b_96 :: Background256 -color256_b_96 = Background256 (Just (T.ColorNumber 96)) - -color256_b_97 :: Background256 -color256_b_97 = Background256 (Just (T.ColorNumber 97)) - -color256_b_98 :: Background256 -color256_b_98 = Background256 (Just (T.ColorNumber 98)) - -color256_b_99 :: Background256 -color256_b_99 = Background256 (Just (T.ColorNumber 99)) - -color256_b_100 :: Background256 -color256_b_100 = Background256 (Just (T.ColorNumber 100)) - -color256_b_101 :: Background256 -color256_b_101 = Background256 (Just (T.ColorNumber 101)) - -color256_b_102 :: Background256 -color256_b_102 = Background256 (Just (T.ColorNumber 102)) - -color256_b_103 :: Background256 -color256_b_103 = Background256 (Just (T.ColorNumber 103)) - -color256_b_104 :: Background256 -color256_b_104 = Background256 (Just (T.ColorNumber 104)) - -color256_b_105 :: Background256 -color256_b_105 = Background256 (Just (T.ColorNumber 105)) - -color256_b_106 :: Background256 -color256_b_106 = Background256 (Just (T.ColorNumber 106)) - -color256_b_107 :: Background256 -color256_b_107 = Background256 (Just (T.ColorNumber 107)) - -color256_b_108 :: Background256 -color256_b_108 = Background256 (Just (T.ColorNumber 108)) - -color256_b_109 :: Background256 -color256_b_109 = Background256 (Just (T.ColorNumber 109)) - -color256_b_110 :: Background256 -color256_b_110 = Background256 (Just (T.ColorNumber 110)) - -color256_b_111 :: Background256 -color256_b_111 = Background256 (Just (T.ColorNumber 111)) - -color256_b_112 :: Background256 -color256_b_112 = Background256 (Just (T.ColorNumber 112)) - -color256_b_113 :: Background256 -color256_b_113 = Background256 (Just (T.ColorNumber 113)) - -color256_b_114 :: Background256 -color256_b_114 = Background256 (Just (T.ColorNumber 114)) - -color256_b_115 :: Background256 -color256_b_115 = Background256 (Just (T.ColorNumber 115)) - -color256_b_116 :: Background256 -color256_b_116 = Background256 (Just (T.ColorNumber 116)) - -color256_b_117 :: Background256 -color256_b_117 = Background256 (Just (T.ColorNumber 117)) - -color256_b_118 :: Background256 -color256_b_118 = Background256 (Just (T.ColorNumber 118)) - -color256_b_119 :: Background256 -color256_b_119 = Background256 (Just (T.ColorNumber 119)) - -color256_b_120 :: Background256 -color256_b_120 = Background256 (Just (T.ColorNumber 120)) - -color256_b_121 :: Background256 -color256_b_121 = Background256 (Just (T.ColorNumber 121)) - -color256_b_122 :: Background256 -color256_b_122 = Background256 (Just (T.ColorNumber 122)) - -color256_b_123 :: Background256 -color256_b_123 = Background256 (Just (T.ColorNumber 123)) - -color256_b_124 :: Background256 -color256_b_124 = Background256 (Just (T.ColorNumber 124)) - -color256_b_125 :: Background256 -color256_b_125 = Background256 (Just (T.ColorNumber 125)) - -color256_b_126 :: Background256 -color256_b_126 = Background256 (Just (T.ColorNumber 126)) - -color256_b_127 :: Background256 -color256_b_127 = Background256 (Just (T.ColorNumber 127)) - -color256_b_128 :: Background256 -color256_b_128 = Background256 (Just (T.ColorNumber 128)) - -color256_b_129 :: Background256 -color256_b_129 = Background256 (Just (T.ColorNumber 129)) - -color256_b_130 :: Background256 -color256_b_130 = Background256 (Just (T.ColorNumber 130)) - -color256_b_131 :: Background256 -color256_b_131 = Background256 (Just (T.ColorNumber 131)) - -color256_b_132 :: Background256 -color256_b_132 = Background256 (Just (T.ColorNumber 132)) - -color256_b_133 :: Background256 -color256_b_133 = Background256 (Just (T.ColorNumber 133)) - -color256_b_134 :: Background256 -color256_b_134 = Background256 (Just (T.ColorNumber 134)) - -color256_b_135 :: Background256 -color256_b_135 = Background256 (Just (T.ColorNumber 135)) - -color256_b_136 :: Background256 -color256_b_136 = Background256 (Just (T.ColorNumber 136)) - -color256_b_137 :: Background256 -color256_b_137 = Background256 (Just (T.ColorNumber 137)) - -color256_b_138 :: Background256 -color256_b_138 = Background256 (Just (T.ColorNumber 138)) - -color256_b_139 :: Background256 -color256_b_139 = Background256 (Just (T.ColorNumber 139)) - -color256_b_140 :: Background256 -color256_b_140 = Background256 (Just (T.ColorNumber 140)) - -color256_b_141 :: Background256 -color256_b_141 = Background256 (Just (T.ColorNumber 141)) - -color256_b_142 :: Background256 -color256_b_142 = Background256 (Just (T.ColorNumber 142)) - -color256_b_143 :: Background256 -color256_b_143 = Background256 (Just (T.ColorNumber 143)) - -color256_b_144 :: Background256 -color256_b_144 = Background256 (Just (T.ColorNumber 144)) - -color256_b_145 :: Background256 -color256_b_145 = Background256 (Just (T.ColorNumber 145)) - -color256_b_146 :: Background256 -color256_b_146 = Background256 (Just (T.ColorNumber 146)) - -color256_b_147 :: Background256 -color256_b_147 = Background256 (Just (T.ColorNumber 147)) - -color256_b_148 :: Background256 -color256_b_148 = Background256 (Just (T.ColorNumber 148)) - -color256_b_149 :: Background256 -color256_b_149 = Background256 (Just (T.ColorNumber 149)) - -color256_b_150 :: Background256 -color256_b_150 = Background256 (Just (T.ColorNumber 150)) - -color256_b_151 :: Background256 -color256_b_151 = Background256 (Just (T.ColorNumber 151)) - -color256_b_152 :: Background256 -color256_b_152 = Background256 (Just (T.ColorNumber 152)) - -color256_b_153 :: Background256 -color256_b_153 = Background256 (Just (T.ColorNumber 153)) - -color256_b_154 :: Background256 -color256_b_154 = Background256 (Just (T.ColorNumber 154)) - -color256_b_155 :: Background256 -color256_b_155 = Background256 (Just (T.ColorNumber 155)) - -color256_b_156 :: Background256 -color256_b_156 = Background256 (Just (T.ColorNumber 156)) - -color256_b_157 :: Background256 -color256_b_157 = Background256 (Just (T.ColorNumber 157)) - -color256_b_158 :: Background256 -color256_b_158 = Background256 (Just (T.ColorNumber 158)) - -color256_b_159 :: Background256 -color256_b_159 = Background256 (Just (T.ColorNumber 159)) - -color256_b_160 :: Background256 -color256_b_160 = Background256 (Just (T.ColorNumber 160)) - -color256_b_161 :: Background256 -color256_b_161 = Background256 (Just (T.ColorNumber 161)) - -color256_b_162 :: Background256 -color256_b_162 = Background256 (Just (T.ColorNumber 162)) - -color256_b_163 :: Background256 -color256_b_163 = Background256 (Just (T.ColorNumber 163)) - -color256_b_164 :: Background256 -color256_b_164 = Background256 (Just (T.ColorNumber 164)) - -color256_b_165 :: Background256 -color256_b_165 = Background256 (Just (T.ColorNumber 165)) - -color256_b_166 :: Background256 -color256_b_166 = Background256 (Just (T.ColorNumber 166)) - -color256_b_167 :: Background256 -color256_b_167 = Background256 (Just (T.ColorNumber 167)) - -color256_b_168 :: Background256 -color256_b_168 = Background256 (Just (T.ColorNumber 168)) - -color256_b_169 :: Background256 -color256_b_169 = Background256 (Just (T.ColorNumber 169)) - -color256_b_170 :: Background256 -color256_b_170 = Background256 (Just (T.ColorNumber 170)) - -color256_b_171 :: Background256 -color256_b_171 = Background256 (Just (T.ColorNumber 171)) - -color256_b_172 :: Background256 -color256_b_172 = Background256 (Just (T.ColorNumber 172)) - -color256_b_173 :: Background256 -color256_b_173 = Background256 (Just (T.ColorNumber 173)) - -color256_b_174 :: Background256 -color256_b_174 = Background256 (Just (T.ColorNumber 174)) - -color256_b_175 :: Background256 -color256_b_175 = Background256 (Just (T.ColorNumber 175)) - -color256_b_176 :: Background256 -color256_b_176 = Background256 (Just (T.ColorNumber 176)) - -color256_b_177 :: Background256 -color256_b_177 = Background256 (Just (T.ColorNumber 177)) - -color256_b_178 :: Background256 -color256_b_178 = Background256 (Just (T.ColorNumber 178)) - -color256_b_179 :: Background256 -color256_b_179 = Background256 (Just (T.ColorNumber 179)) - -color256_b_180 :: Background256 -color256_b_180 = Background256 (Just (T.ColorNumber 180)) - -color256_b_181 :: Background256 -color256_b_181 = Background256 (Just (T.ColorNumber 181)) - -color256_b_182 :: Background256 -color256_b_182 = Background256 (Just (T.ColorNumber 182)) - -color256_b_183 :: Background256 -color256_b_183 = Background256 (Just (T.ColorNumber 183)) - -color256_b_184 :: Background256 -color256_b_184 = Background256 (Just (T.ColorNumber 184)) - -color256_b_185 :: Background256 -color256_b_185 = Background256 (Just (T.ColorNumber 185)) - -color256_b_186 :: Background256 -color256_b_186 = Background256 (Just (T.ColorNumber 186)) - -color256_b_187 :: Background256 -color256_b_187 = Background256 (Just (T.ColorNumber 187)) - -color256_b_188 :: Background256 -color256_b_188 = Background256 (Just (T.ColorNumber 188)) - -color256_b_189 :: Background256 -color256_b_189 = Background256 (Just (T.ColorNumber 189)) - -color256_b_190 :: Background256 -color256_b_190 = Background256 (Just (T.ColorNumber 190)) - -color256_b_191 :: Background256 -color256_b_191 = Background256 (Just (T.ColorNumber 191)) - -color256_b_192 :: Background256 -color256_b_192 = Background256 (Just (T.ColorNumber 192)) - -color256_b_193 :: Background256 -color256_b_193 = Background256 (Just (T.ColorNumber 193)) - -color256_b_194 :: Background256 -color256_b_194 = Background256 (Just (T.ColorNumber 194)) - -color256_b_195 :: Background256 -color256_b_195 = Background256 (Just (T.ColorNumber 195)) - -color256_b_196 :: Background256 -color256_b_196 = Background256 (Just (T.ColorNumber 196)) - -color256_b_197 :: Background256 -color256_b_197 = Background256 (Just (T.ColorNumber 197)) - -color256_b_198 :: Background256 -color256_b_198 = Background256 (Just (T.ColorNumber 198)) - -color256_b_199 :: Background256 -color256_b_199 = Background256 (Just (T.ColorNumber 199)) - -color256_b_200 :: Background256 -color256_b_200 = Background256 (Just (T.ColorNumber 200)) - -color256_b_201 :: Background256 -color256_b_201 = Background256 (Just (T.ColorNumber 201)) - -color256_b_202 :: Background256 -color256_b_202 = Background256 (Just (T.ColorNumber 202)) - -color256_b_203 :: Background256 -color256_b_203 = Background256 (Just (T.ColorNumber 203)) - -color256_b_204 :: Background256 -color256_b_204 = Background256 (Just (T.ColorNumber 204)) - -color256_b_205 :: Background256 -color256_b_205 = Background256 (Just (T.ColorNumber 205)) - -color256_b_206 :: Background256 -color256_b_206 = Background256 (Just (T.ColorNumber 206)) - -color256_b_207 :: Background256 -color256_b_207 = Background256 (Just (T.ColorNumber 207)) - -color256_b_208 :: Background256 -color256_b_208 = Background256 (Just (T.ColorNumber 208)) - -color256_b_209 :: Background256 -color256_b_209 = Background256 (Just (T.ColorNumber 209)) - -color256_b_210 :: Background256 -color256_b_210 = Background256 (Just (T.ColorNumber 210)) - -color256_b_211 :: Background256 -color256_b_211 = Background256 (Just (T.ColorNumber 211)) - -color256_b_212 :: Background256 -color256_b_212 = Background256 (Just (T.ColorNumber 212)) - -color256_b_213 :: Background256 -color256_b_213 = Background256 (Just (T.ColorNumber 213)) - -color256_b_214 :: Background256 -color256_b_214 = Background256 (Just (T.ColorNumber 214)) - -color256_b_215 :: Background256 -color256_b_215 = Background256 (Just (T.ColorNumber 215)) - -color256_b_216 :: Background256 -color256_b_216 = Background256 (Just (T.ColorNumber 216)) - -color256_b_217 :: Background256 -color256_b_217 = Background256 (Just (T.ColorNumber 217)) - -color256_b_218 :: Background256 -color256_b_218 = Background256 (Just (T.ColorNumber 218)) - -color256_b_219 :: Background256 -color256_b_219 = Background256 (Just (T.ColorNumber 219)) - -color256_b_220 :: Background256 -color256_b_220 = Background256 (Just (T.ColorNumber 220)) - -color256_b_221 :: Background256 -color256_b_221 = Background256 (Just (T.ColorNumber 221)) - -color256_b_222 :: Background256 -color256_b_222 = Background256 (Just (T.ColorNumber 222)) - -color256_b_223 :: Background256 -color256_b_223 = Background256 (Just (T.ColorNumber 223)) - -color256_b_224 :: Background256 -color256_b_224 = Background256 (Just (T.ColorNumber 224)) - -color256_b_225 :: Background256 -color256_b_225 = Background256 (Just (T.ColorNumber 225)) - -color256_b_226 :: Background256 -color256_b_226 = Background256 (Just (T.ColorNumber 226)) - -color256_b_227 :: Background256 -color256_b_227 = Background256 (Just (T.ColorNumber 227)) - -color256_b_228 :: Background256 -color256_b_228 = Background256 (Just (T.ColorNumber 228)) - -color256_b_229 :: Background256 -color256_b_229 = Background256 (Just (T.ColorNumber 229)) - -color256_b_230 :: Background256 -color256_b_230 = Background256 (Just (T.ColorNumber 230)) - -color256_b_231 :: Background256 -color256_b_231 = Background256 (Just (T.ColorNumber 231)) - -color256_b_232 :: Background256 -color256_b_232 = Background256 (Just (T.ColorNumber 232)) - -color256_b_233 :: Background256 -color256_b_233 = Background256 (Just (T.ColorNumber 233)) - -color256_b_234 :: Background256 -color256_b_234 = Background256 (Just (T.ColorNumber 234)) - -color256_b_235 :: Background256 -color256_b_235 = Background256 (Just (T.ColorNumber 235)) - -color256_b_236 :: Background256 -color256_b_236 = Background256 (Just (T.ColorNumber 236)) - -color256_b_237 :: Background256 -color256_b_237 = Background256 (Just (T.ColorNumber 237)) - -color256_b_238 :: Background256 -color256_b_238 = Background256 (Just (T.ColorNumber 238)) - -color256_b_239 :: Background256 -color256_b_239 = Background256 (Just (T.ColorNumber 239)) - -color256_b_240 :: Background256 -color256_b_240 = Background256 (Just (T.ColorNumber 240)) - -color256_b_241 :: Background256 -color256_b_241 = Background256 (Just (T.ColorNumber 241)) - -color256_b_242 :: Background256 -color256_b_242 = Background256 (Just (T.ColorNumber 242)) - -color256_b_243 :: Background256 -color256_b_243 = Background256 (Just (T.ColorNumber 243)) - -color256_b_244 :: Background256 -color256_b_244 = Background256 (Just (T.ColorNumber 244)) - -color256_b_245 :: Background256 -color256_b_245 = Background256 (Just (T.ColorNumber 245)) - -color256_b_246 :: Background256 -color256_b_246 = Background256 (Just (T.ColorNumber 246)) - -color256_b_247 :: Background256 -color256_b_247 = Background256 (Just (T.ColorNumber 247)) - -color256_b_248 :: Background256 -color256_b_248 = Background256 (Just (T.ColorNumber 248)) - -color256_b_249 :: Background256 -color256_b_249 = Background256 (Just (T.ColorNumber 249)) - -color256_b_250 :: Background256 -color256_b_250 = Background256 (Just (T.ColorNumber 250)) - -color256_b_251 :: Background256 -color256_b_251 = Background256 (Just (T.ColorNumber 251)) - -color256_b_252 :: Background256 -color256_b_252 = Background256 (Just (T.ColorNumber 252)) - -color256_b_253 :: Background256 -color256_b_253 = Background256 (Just (T.ColorNumber 253)) - -color256_b_254 :: Background256 -color256_b_254 = Background256 (Just (T.ColorNumber 254)) - -color256_b_255 :: Background256 -color256_b_255 = Background256 (Just (T.ColorNumber 255)) +{-# LANGUAGE TemplateHaskell #-} +-- | 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 + , M.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 + + -- ** Lenses + , scBold + , scUnderline + , scFlash + , scInverse + , foreground8 + , background8 + , common8 + , foreground256 + , background256 + , common256 + , textSpec + , text + + ) where + + +-- # Imports + +import Control.Lens +import qualified Data.String as Str +import Data.Monoid (Monoid, mempty, mconcat, (<>), Last(..)) +import qualified Data.Monoid as M +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 :: M.Last Bool + , _scUnderline :: M.Last Bool + , _scFlash :: M.Last Bool + , _scInverse :: M.Last Bool + } deriving (Show, Eq, Ord) + +makeLenses ''StyleCommon + +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) + +makeLenses ''Style8 + +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) + +makeLenses ''Style256 + +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) + +makeLenses ''TextSpec + +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) + +makeLenses ''Chunk + +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 + $ s ^. scUnderline . unwrapped + , T.reverseAttr = fromMaybe False + $ s ^. scInverse . unwrapped + , T.blinkAttr = fromMaybe False + $ s ^. scFlash . unwrapped + , T.dimAttr = False + , T.boldAttr = fromMaybe False + $ s ^. scBold . unwrapped + , 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 $ ( f256 ^. unwrapped + , b256 ^. unwrapped + , c256) + | cols >= 8 -> Just ( f8 ^. unwrapped + , b8 ^. unwrapped + , 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 = mempty & textSpec . style8 . common8 + . scBold . unwrapped .~ Just True + +bold8off :: Chunk +bold8off = mempty & textSpec . style8 . common8 + . scBold . unwrapped .~ Just False + +underline8 :: Chunk +underline8 = mempty & textSpec . style8 . common8 + . scUnderline . unwrapped .~ Just True + +underline8off :: Chunk +underline8off = mempty & textSpec . style8 . common8 + . scUnderline . unwrapped .~ Just False + +flash8 :: Chunk +flash8 = mempty & textSpec . style8 . common8 + . scFlash . unwrapped .~ Just True + +flash8off :: Chunk +flash8off = mempty & textSpec . style8 . common8 + . scFlash . unwrapped .~ Just False + +inverse8 :: Chunk +inverse8 = mempty & textSpec . style8 . common8 + . scInverse . unwrapped .~ Just True + +inverse8off :: Chunk +inverse8off = mempty & textSpec . style8 . common8 + . scInverse . unwrapped .~ Just False + +underline256 :: Chunk +underline256 = mempty & textSpec . style256 . common256 + . scUnderline . unwrapped .~ Just True + +underline256off :: Chunk +underline256off = mempty & textSpec . style256 . common256 + . scUnderline . unwrapped .~ Just False + +bold256 :: Chunk +bold256 = mempty & textSpec . style256 . common256 + . scBold . unwrapped .~ Just True + +bold256off :: Chunk +bold256off = mempty & textSpec . style256 . common256 + . scBold . unwrapped .~ Just False + +inverse256 :: Chunk +inverse256 = mempty & textSpec . style256 . common256 + . scInverse . unwrapped .~ Just True + +inverse256off :: Chunk +inverse256off = mempty & textSpec . style256 . common256 + . scInverse . unwrapped .~ Just False + +flash256 :: Chunk +flash256 = mempty & textSpec . style256 . common256 + . scFlash . unwrapped .~ Just True + +flash256off :: Chunk +flash256off = mempty & textSpec . style256 . common256 + . scFlash . unwrapped .~ Just False + +-- +-- 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 +-- + +c8_f_default :: Chunk +c8_f_default = mempty & textSpec . style8 . foreground8 + . unwrapped .~ (Just Nothing) + + +c8_f_black :: Chunk +c8_f_black = mempty & textSpec . style8 . foreground8 + . unwrapped .~ (Just (Just T.Black)) + +c8_f_red :: Chunk +c8_f_red = mempty & textSpec . style8 . foreground8 + . unwrapped .~ (Just (Just T.Red)) + +c8_f_green :: Chunk +c8_f_green = mempty & textSpec . style8 . foreground8 + . unwrapped .~ (Just (Just T.Green)) + +c8_f_yellow :: Chunk +c8_f_yellow = mempty & textSpec . style8 . foreground8 + . unwrapped .~ (Just (Just T.Yellow)) + +c8_f_blue :: Chunk +c8_f_blue = mempty & textSpec . style8 . foreground8 + . unwrapped .~ (Just (Just T.Blue)) + +c8_f_magenta :: Chunk +c8_f_magenta = mempty & textSpec . style8 . foreground8 + . unwrapped .~ (Just (Just T.Magenta)) + +c8_f_cyan :: Chunk +c8_f_cyan = mempty & textSpec . style8 . foreground8 + . unwrapped .~ (Just (Just T.Cyan)) + +c8_f_white :: Chunk +c8_f_white = mempty & textSpec . style8 . foreground8 + . unwrapped .~ (Just (Just T.White)) + + +c8_b_default :: Chunk +c8_b_default = mempty & textSpec . style8 . background8 + . unwrapped .~ (Just Nothing) + +c8_b_black :: Chunk +c8_b_black = mempty & textSpec . style8 . background8 + . unwrapped .~ (Just (Just T.Black)) + +c8_b_red :: Chunk +c8_b_red = mempty & textSpec . style8 . background8 + . unwrapped .~ (Just (Just T.Red)) + +c8_b_green :: Chunk +c8_b_green = mempty & textSpec . style8 . background8 + . unwrapped .~ (Just (Just T.Green)) + +c8_b_yellow :: Chunk +c8_b_yellow = mempty & textSpec . style8 . background8 + . unwrapped .~ (Just (Just T.Yellow)) + +c8_b_blue :: Chunk +c8_b_blue = mempty & textSpec . style8 . background8 + . unwrapped .~ (Just (Just T.Blue)) + +c8_b_magenta :: Chunk +c8_b_magenta = mempty & textSpec . style8 . background8 + . unwrapped .~ (Just (Just T.Magenta)) + +c8_b_cyan :: Chunk +c8_b_cyan = mempty & textSpec . style8 . background8 + . unwrapped .~ (Just (Just T.Cyan)) + +c8_b_white :: Chunk +c8_b_white = mempty & textSpec . style8 . background8 + . unwrapped .~ (Just (Just T.White)) + + +c256_f_default :: Chunk +c256_f_default = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just Nothing) + + +c256_f_0 :: Chunk +c256_f_0 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 0))) + +c256_f_black :: Chunk +c256_f_black = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 0))) + +c256_f_1 :: Chunk +c256_f_1 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 1))) + +c256_f_red :: Chunk +c256_f_red = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 1))) + +c256_f_2 :: Chunk +c256_f_2 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 2))) + +c256_f_green :: Chunk +c256_f_green = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 2))) + +c256_f_3 :: Chunk +c256_f_3 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 3))) + +c256_f_yellow :: Chunk +c256_f_yellow = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 3))) + +c256_f_4 :: Chunk +c256_f_4 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 4))) + +c256_f_blue :: Chunk +c256_f_blue = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 4))) + +c256_f_5 :: Chunk +c256_f_5 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 5))) + +c256_f_magenta :: Chunk +c256_f_magenta = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 5))) + +c256_f_6 :: Chunk +c256_f_6 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 6))) + +c256_f_cyan :: Chunk +c256_f_cyan = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 6))) + +c256_f_7 :: Chunk +c256_f_7 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 7))) + +c256_f_white :: Chunk +c256_f_white = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 7))) + +c256_f_8 :: Chunk +c256_f_8 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 8))) + +c256_f_grey :: Chunk +c256_f_grey = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 8))) + +c256_f_9 :: Chunk +c256_f_9 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 9))) + +c256_f_red_bright :: Chunk +c256_f_red_bright = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 9))) + +c256_f_10 :: Chunk +c256_f_10 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 10))) + +c256_f_green_bright :: Chunk +c256_f_green_bright = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 10))) + +c256_f_11 :: Chunk +c256_f_11 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 11))) + +c256_f_yellow_bright :: Chunk +c256_f_yellow_bright = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 11))) + +c256_f_12 :: Chunk +c256_f_12 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 12))) + +c256_f_blue_bright :: Chunk +c256_f_blue_bright = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 12))) + +c256_f_13 :: Chunk +c256_f_13 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 13))) + +c256_f_magenta_bright :: Chunk +c256_f_magenta_bright = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 13))) + +c256_f_14 :: Chunk +c256_f_14 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 14))) + +c256_f_cyan_bright :: Chunk +c256_f_cyan_bright = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 14))) + +c256_f_15 :: Chunk +c256_f_15 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 15))) + +c256_f_white_bright :: Chunk +c256_f_white_bright = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 15))) + +c256_f_16 :: Chunk +c256_f_16 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 16))) + +c256_f_17 :: Chunk +c256_f_17 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 17))) + +c256_f_18 :: Chunk +c256_f_18 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 18))) + +c256_f_19 :: Chunk +c256_f_19 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 19))) + +c256_f_20 :: Chunk +c256_f_20 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 20))) + +c256_f_21 :: Chunk +c256_f_21 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 21))) + +c256_f_22 :: Chunk +c256_f_22 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 22))) + +c256_f_23 :: Chunk +c256_f_23 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 23))) + +c256_f_24 :: Chunk +c256_f_24 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 24))) + +c256_f_25 :: Chunk +c256_f_25 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 25))) + +c256_f_26 :: Chunk +c256_f_26 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 26))) + +c256_f_27 :: Chunk +c256_f_27 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 27))) + +c256_f_28 :: Chunk +c256_f_28 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 28))) + +c256_f_29 :: Chunk +c256_f_29 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 29))) + +c256_f_30 :: Chunk +c256_f_30 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 30))) + +c256_f_31 :: Chunk +c256_f_31 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 31))) + +c256_f_32 :: Chunk +c256_f_32 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 32))) + +c256_f_33 :: Chunk +c256_f_33 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 33))) + +c256_f_34 :: Chunk +c256_f_34 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 34))) + +c256_f_35 :: Chunk +c256_f_35 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 35))) + +c256_f_36 :: Chunk +c256_f_36 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 36))) + +c256_f_37 :: Chunk +c256_f_37 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 37))) + +c256_f_38 :: Chunk +c256_f_38 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 38))) + +c256_f_39 :: Chunk +c256_f_39 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 39))) + +c256_f_40 :: Chunk +c256_f_40 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 40))) + +c256_f_41 :: Chunk +c256_f_41 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 41))) + +c256_f_42 :: Chunk +c256_f_42 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 42))) + +c256_f_43 :: Chunk +c256_f_43 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 43))) + +c256_f_44 :: Chunk +c256_f_44 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 44))) + +c256_f_45 :: Chunk +c256_f_45 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 45))) + +c256_f_46 :: Chunk +c256_f_46 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 46))) + +c256_f_47 :: Chunk +c256_f_47 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 47))) + +c256_f_48 :: Chunk +c256_f_48 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 48))) + +c256_f_49 :: Chunk +c256_f_49 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 49))) + +c256_f_50 :: Chunk +c256_f_50 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 50))) + +c256_f_51 :: Chunk +c256_f_51 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 51))) + +c256_f_52 :: Chunk +c256_f_52 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 52))) + +c256_f_53 :: Chunk +c256_f_53 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 53))) + +c256_f_54 :: Chunk +c256_f_54 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 54))) + +c256_f_55 :: Chunk +c256_f_55 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 55))) + +c256_f_56 :: Chunk +c256_f_56 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 56))) + +c256_f_57 :: Chunk +c256_f_57 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 57))) + +c256_f_58 :: Chunk +c256_f_58 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 58))) + +c256_f_59 :: Chunk +c256_f_59 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 59))) + +c256_f_60 :: Chunk +c256_f_60 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 60))) + +c256_f_61 :: Chunk +c256_f_61 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 61))) + +c256_f_62 :: Chunk +c256_f_62 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 62))) + +c256_f_63 :: Chunk +c256_f_63 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 63))) + +c256_f_64 :: Chunk +c256_f_64 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 64))) + +c256_f_65 :: Chunk +c256_f_65 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 65))) + +c256_f_66 :: Chunk +c256_f_66 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 66))) + +c256_f_67 :: Chunk +c256_f_67 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 67))) + +c256_f_68 :: Chunk +c256_f_68 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 68))) + +c256_f_69 :: Chunk +c256_f_69 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 69))) + +c256_f_70 :: Chunk +c256_f_70 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 70))) + +c256_f_71 :: Chunk +c256_f_71 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 71))) + +c256_f_72 :: Chunk +c256_f_72 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 72))) + +c256_f_73 :: Chunk +c256_f_73 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 73))) + +c256_f_74 :: Chunk +c256_f_74 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 74))) + +c256_f_75 :: Chunk +c256_f_75 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 75))) + +c256_f_76 :: Chunk +c256_f_76 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 76))) + +c256_f_77 :: Chunk +c256_f_77 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 77))) + +c256_f_78 :: Chunk +c256_f_78 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 78))) + +c256_f_79 :: Chunk +c256_f_79 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 79))) + +c256_f_80 :: Chunk +c256_f_80 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 80))) + +c256_f_81 :: Chunk +c256_f_81 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 81))) + +c256_f_82 :: Chunk +c256_f_82 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 82))) + +c256_f_83 :: Chunk +c256_f_83 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 83))) + +c256_f_84 :: Chunk +c256_f_84 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 84))) + +c256_f_85 :: Chunk +c256_f_85 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 85))) + +c256_f_86 :: Chunk +c256_f_86 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 86))) + +c256_f_87 :: Chunk +c256_f_87 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 87))) + +c256_f_88 :: Chunk +c256_f_88 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 88))) + +c256_f_89 :: Chunk +c256_f_89 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 89))) + +c256_f_90 :: Chunk +c256_f_90 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 90))) + +c256_f_91 :: Chunk +c256_f_91 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 91))) + +c256_f_92 :: Chunk +c256_f_92 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 92))) + +c256_f_93 :: Chunk +c256_f_93 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 93))) + +c256_f_94 :: Chunk +c256_f_94 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 94))) + +c256_f_95 :: Chunk +c256_f_95 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 95))) + +c256_f_96 :: Chunk +c256_f_96 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 96))) + +c256_f_97 :: Chunk +c256_f_97 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 97))) + +c256_f_98 :: Chunk +c256_f_98 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 98))) + +c256_f_99 :: Chunk +c256_f_99 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 99))) + +c256_f_100 :: Chunk +c256_f_100 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 100))) + +c256_f_101 :: Chunk +c256_f_101 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 101))) + +c256_f_102 :: Chunk +c256_f_102 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 102))) + +c256_f_103 :: Chunk +c256_f_103 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 103))) + +c256_f_104 :: Chunk +c256_f_104 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 104))) + +c256_f_105 :: Chunk +c256_f_105 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 105))) + +c256_f_106 :: Chunk +c256_f_106 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 106))) + +c256_f_107 :: Chunk +c256_f_107 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 107))) + +c256_f_108 :: Chunk +c256_f_108 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 108))) + +c256_f_109 :: Chunk +c256_f_109 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 109))) + +c256_f_110 :: Chunk +c256_f_110 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 110))) + +c256_f_111 :: Chunk +c256_f_111 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 111))) + +c256_f_112 :: Chunk +c256_f_112 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 112))) + +c256_f_113 :: Chunk +c256_f_113 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 113))) + +c256_f_114 :: Chunk +c256_f_114 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 114))) + +c256_f_115 :: Chunk +c256_f_115 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 115))) + +c256_f_116 :: Chunk +c256_f_116 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 116))) + +c256_f_117 :: Chunk +c256_f_117 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 117))) + +c256_f_118 :: Chunk +c256_f_118 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 118))) + +c256_f_119 :: Chunk +c256_f_119 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 119))) + +c256_f_120 :: Chunk +c256_f_120 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 120))) + +c256_f_121 :: Chunk +c256_f_121 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 121))) + +c256_f_122 :: Chunk +c256_f_122 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 122))) + +c256_f_123 :: Chunk +c256_f_123 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 123))) + +c256_f_124 :: Chunk +c256_f_124 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 124))) + +c256_f_125 :: Chunk +c256_f_125 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 125))) + +c256_f_126 :: Chunk +c256_f_126 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 126))) + +c256_f_127 :: Chunk +c256_f_127 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 127))) + +c256_f_128 :: Chunk +c256_f_128 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 128))) + +c256_f_129 :: Chunk +c256_f_129 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 129))) + +c256_f_130 :: Chunk +c256_f_130 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 130))) + +c256_f_131 :: Chunk +c256_f_131 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 131))) + +c256_f_132 :: Chunk +c256_f_132 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 132))) + +c256_f_133 :: Chunk +c256_f_133 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 133))) + +c256_f_134 :: Chunk +c256_f_134 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 134))) + +c256_f_135 :: Chunk +c256_f_135 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 135))) + +c256_f_136 :: Chunk +c256_f_136 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 136))) + +c256_f_137 :: Chunk +c256_f_137 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 137))) + +c256_f_138 :: Chunk +c256_f_138 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 138))) + +c256_f_139 :: Chunk +c256_f_139 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 139))) + +c256_f_140 :: Chunk +c256_f_140 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 140))) + +c256_f_141 :: Chunk +c256_f_141 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 141))) + +c256_f_142 :: Chunk +c256_f_142 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 142))) + +c256_f_143 :: Chunk +c256_f_143 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 143))) + +c256_f_144 :: Chunk +c256_f_144 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 144))) + +c256_f_145 :: Chunk +c256_f_145 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 145))) + +c256_f_146 :: Chunk +c256_f_146 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 146))) + +c256_f_147 :: Chunk +c256_f_147 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 147))) + +c256_f_148 :: Chunk +c256_f_148 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 148))) + +c256_f_149 :: Chunk +c256_f_149 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 149))) + +c256_f_150 :: Chunk +c256_f_150 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 150))) + +c256_f_151 :: Chunk +c256_f_151 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 151))) + +c256_f_152 :: Chunk +c256_f_152 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 152))) + +c256_f_153 :: Chunk +c256_f_153 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 153))) + +c256_f_154 :: Chunk +c256_f_154 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 154))) + +c256_f_155 :: Chunk +c256_f_155 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 155))) + +c256_f_156 :: Chunk +c256_f_156 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 156))) + +c256_f_157 :: Chunk +c256_f_157 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 157))) + +c256_f_158 :: Chunk +c256_f_158 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 158))) + +c256_f_159 :: Chunk +c256_f_159 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 159))) + +c256_f_160 :: Chunk +c256_f_160 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 160))) + +c256_f_161 :: Chunk +c256_f_161 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 161))) + +c256_f_162 :: Chunk +c256_f_162 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 162))) + +c256_f_163 :: Chunk +c256_f_163 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 163))) + +c256_f_164 :: Chunk +c256_f_164 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 164))) + +c256_f_165 :: Chunk +c256_f_165 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 165))) + +c256_f_166 :: Chunk +c256_f_166 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 166))) + +c256_f_167 :: Chunk +c256_f_167 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 167))) + +c256_f_168 :: Chunk +c256_f_168 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 168))) + +c256_f_169 :: Chunk +c256_f_169 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 169))) + +c256_f_170 :: Chunk +c256_f_170 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 170))) + +c256_f_171 :: Chunk +c256_f_171 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 171))) + +c256_f_172 :: Chunk +c256_f_172 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 172))) + +c256_f_173 :: Chunk +c256_f_173 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 173))) + +c256_f_174 :: Chunk +c256_f_174 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 174))) + +c256_f_175 :: Chunk +c256_f_175 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 175))) + +c256_f_176 :: Chunk +c256_f_176 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 176))) + +c256_f_177 :: Chunk +c256_f_177 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 177))) + +c256_f_178 :: Chunk +c256_f_178 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 178))) + +c256_f_179 :: Chunk +c256_f_179 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 179))) + +c256_f_180 :: Chunk +c256_f_180 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 180))) + +c256_f_181 :: Chunk +c256_f_181 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 181))) + +c256_f_182 :: Chunk +c256_f_182 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 182))) + +c256_f_183 :: Chunk +c256_f_183 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 183))) + +c256_f_184 :: Chunk +c256_f_184 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 184))) + +c256_f_185 :: Chunk +c256_f_185 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 185))) + +c256_f_186 :: Chunk +c256_f_186 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 186))) + +c256_f_187 :: Chunk +c256_f_187 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 187))) + +c256_f_188 :: Chunk +c256_f_188 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 188))) + +c256_f_189 :: Chunk +c256_f_189 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 189))) + +c256_f_190 :: Chunk +c256_f_190 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 190))) + +c256_f_191 :: Chunk +c256_f_191 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 191))) + +c256_f_192 :: Chunk +c256_f_192 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 192))) + +c256_f_193 :: Chunk +c256_f_193 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 193))) + +c256_f_194 :: Chunk +c256_f_194 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 194))) + +c256_f_195 :: Chunk +c256_f_195 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 195))) + +c256_f_196 :: Chunk +c256_f_196 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 196))) + +c256_f_197 :: Chunk +c256_f_197 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 197))) + +c256_f_198 :: Chunk +c256_f_198 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 198))) + +c256_f_199 :: Chunk +c256_f_199 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 199))) + +c256_f_200 :: Chunk +c256_f_200 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 200))) + +c256_f_201 :: Chunk +c256_f_201 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 201))) + +c256_f_202 :: Chunk +c256_f_202 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 202))) + +c256_f_203 :: Chunk +c256_f_203 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 203))) + +c256_f_204 :: Chunk +c256_f_204 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 204))) + +c256_f_205 :: Chunk +c256_f_205 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 205))) + +c256_f_206 :: Chunk +c256_f_206 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 206))) + +c256_f_207 :: Chunk +c256_f_207 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 207))) + +c256_f_208 :: Chunk +c256_f_208 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 208))) + +c256_f_209 :: Chunk +c256_f_209 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 209))) + +c256_f_210 :: Chunk +c256_f_210 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 210))) + +c256_f_211 :: Chunk +c256_f_211 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 211))) + +c256_f_212 :: Chunk +c256_f_212 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 212))) + +c256_f_213 :: Chunk +c256_f_213 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 213))) + +c256_f_214 :: Chunk +c256_f_214 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 214))) + +c256_f_215 :: Chunk +c256_f_215 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 215))) + +c256_f_216 :: Chunk +c256_f_216 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 216))) + +c256_f_217 :: Chunk +c256_f_217 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 217))) + +c256_f_218 :: Chunk +c256_f_218 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 218))) + +c256_f_219 :: Chunk +c256_f_219 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 219))) + +c256_f_220 :: Chunk +c256_f_220 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 220))) + +c256_f_221 :: Chunk +c256_f_221 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 221))) + +c256_f_222 :: Chunk +c256_f_222 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 222))) + +c256_f_223 :: Chunk +c256_f_223 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 223))) + +c256_f_224 :: Chunk +c256_f_224 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 224))) + +c256_f_225 :: Chunk +c256_f_225 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 225))) + +c256_f_226 :: Chunk +c256_f_226 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 226))) + +c256_f_227 :: Chunk +c256_f_227 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 227))) + +c256_f_228 :: Chunk +c256_f_228 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 228))) + +c256_f_229 :: Chunk +c256_f_229 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 229))) + +c256_f_230 :: Chunk +c256_f_230 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 230))) + +c256_f_231 :: Chunk +c256_f_231 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 231))) + +c256_f_232 :: Chunk +c256_f_232 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 232))) + +c256_f_233 :: Chunk +c256_f_233 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 233))) + +c256_f_234 :: Chunk +c256_f_234 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 234))) + +c256_f_235 :: Chunk +c256_f_235 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 235))) + +c256_f_236 :: Chunk +c256_f_236 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 236))) + +c256_f_237 :: Chunk +c256_f_237 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 237))) + +c256_f_238 :: Chunk +c256_f_238 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 238))) + +c256_f_239 :: Chunk +c256_f_239 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 239))) + +c256_f_240 :: Chunk +c256_f_240 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 240))) + +c256_f_241 :: Chunk +c256_f_241 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 241))) + +c256_f_242 :: Chunk +c256_f_242 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 242))) + +c256_f_243 :: Chunk +c256_f_243 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 243))) + +c256_f_244 :: Chunk +c256_f_244 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 244))) + +c256_f_245 :: Chunk +c256_f_245 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 245))) + +c256_f_246 :: Chunk +c256_f_246 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 246))) + +c256_f_247 :: Chunk +c256_f_247 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 247))) + +c256_f_248 :: Chunk +c256_f_248 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 248))) + +c256_f_249 :: Chunk +c256_f_249 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 249))) + +c256_f_250 :: Chunk +c256_f_250 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 250))) + +c256_f_251 :: Chunk +c256_f_251 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 251))) + +c256_f_252 :: Chunk +c256_f_252 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 252))) + +c256_f_253 :: Chunk +c256_f_253 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 253))) + +c256_f_254 :: Chunk +c256_f_254 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 254))) + +c256_f_255 :: Chunk +c256_f_255 = mempty & textSpec . style256 . foreground256 + . unwrapped .~ (Just (Just (T.ColorNumber 255))) + + +c256_b_default :: Chunk +c256_b_default = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just Nothing) + +c256_b_0 :: Chunk +c256_b_0 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 0))) + +c256_b_black :: Chunk +c256_b_black = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 0))) + +c256_b_1 :: Chunk +c256_b_1 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 1))) + +c256_b_red :: Chunk +c256_b_red = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 1))) + +c256_b_2 :: Chunk +c256_b_2 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 2))) + +c256_b_green :: Chunk +c256_b_green = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 2))) + +c256_b_3 :: Chunk +c256_b_3 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 3))) + +c256_b_yellow :: Chunk +c256_b_yellow = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 3))) + +c256_b_4 :: Chunk +c256_b_4 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 4))) + +c256_b_blue :: Chunk +c256_b_blue = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 4))) + +c256_b_5 :: Chunk +c256_b_5 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 5))) + +c256_b_magenta :: Chunk +c256_b_magenta = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 5))) + +c256_b_6 :: Chunk +c256_b_6 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 6))) + +c256_b_cyan :: Chunk +c256_b_cyan = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 6))) + +c256_b_7 :: Chunk +c256_b_7 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 7))) + +c256_b_white :: Chunk +c256_b_white = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 7))) + +c256_b_8 :: Chunk +c256_b_8 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 8))) + +c256_b_grey :: Chunk +c256_b_grey = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 8))) + +c256_b_9 :: Chunk +c256_b_9 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 9))) + +c256_b_red_bright :: Chunk +c256_b_red_bright = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 9))) + +c256_b_10 :: Chunk +c256_b_10 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 10))) + +c256_b_green_bright :: Chunk +c256_b_green_bright = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 10))) + +c256_b_11 :: Chunk +c256_b_11 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 11))) + +c256_b_yellow_bright :: Chunk +c256_b_yellow_bright = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 11))) + +c256_b_12 :: Chunk +c256_b_12 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 12))) + +c256_b_blue_bright :: Chunk +c256_b_blue_bright = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 12))) + +c256_b_13 :: Chunk +c256_b_13 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 13))) + +c256_b_magenta_bright :: Chunk +c256_b_magenta_bright = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 13))) + +c256_b_14 :: Chunk +c256_b_14 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 14))) + +c256_b_cyan_bright :: Chunk +c256_b_cyan_bright = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 14))) + +c256_b_15 :: Chunk +c256_b_15 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 15))) + +c256_b_white_bright :: Chunk +c256_b_white_bright = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 15))) + +c256_b_16 :: Chunk +c256_b_16 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 16))) + +c256_b_17 :: Chunk +c256_b_17 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 17))) + +c256_b_18 :: Chunk +c256_b_18 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 18))) + +c256_b_19 :: Chunk +c256_b_19 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 19))) + +c256_b_20 :: Chunk +c256_b_20 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 20))) + +c256_b_21 :: Chunk +c256_b_21 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 21))) + +c256_b_22 :: Chunk +c256_b_22 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 22))) + +c256_b_23 :: Chunk +c256_b_23 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 23))) + +c256_b_24 :: Chunk +c256_b_24 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 24))) + +c256_b_25 :: Chunk +c256_b_25 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 25))) + +c256_b_26 :: Chunk +c256_b_26 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 26))) + +c256_b_27 :: Chunk +c256_b_27 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 27))) + +c256_b_28 :: Chunk +c256_b_28 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 28))) + +c256_b_29 :: Chunk +c256_b_29 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 29))) + +c256_b_30 :: Chunk +c256_b_30 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 30))) + +c256_b_31 :: Chunk +c256_b_31 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 31))) + +c256_b_32 :: Chunk +c256_b_32 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 32))) + +c256_b_33 :: Chunk +c256_b_33 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 33))) + +c256_b_34 :: Chunk +c256_b_34 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 34))) + +c256_b_35 :: Chunk +c256_b_35 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 35))) + +c256_b_36 :: Chunk +c256_b_36 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 36))) + +c256_b_37 :: Chunk +c256_b_37 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 37))) + +c256_b_38 :: Chunk +c256_b_38 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 38))) + +c256_b_39 :: Chunk +c256_b_39 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 39))) + +c256_b_40 :: Chunk +c256_b_40 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 40))) + +c256_b_41 :: Chunk +c256_b_41 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 41))) + +c256_b_42 :: Chunk +c256_b_42 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 42))) + +c256_b_43 :: Chunk +c256_b_43 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 43))) + +c256_b_44 :: Chunk +c256_b_44 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 44))) + +c256_b_45 :: Chunk +c256_b_45 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 45))) + +c256_b_46 :: Chunk +c256_b_46 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 46))) + +c256_b_47 :: Chunk +c256_b_47 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 47))) + +c256_b_48 :: Chunk +c256_b_48 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 48))) + +c256_b_49 :: Chunk +c256_b_49 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 49))) + +c256_b_50 :: Chunk +c256_b_50 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 50))) + +c256_b_51 :: Chunk +c256_b_51 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 51))) + +c256_b_52 :: Chunk +c256_b_52 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 52))) + +c256_b_53 :: Chunk +c256_b_53 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 53))) + +c256_b_54 :: Chunk +c256_b_54 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 54))) + +c256_b_55 :: Chunk +c256_b_55 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 55))) + +c256_b_56 :: Chunk +c256_b_56 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 56))) + +c256_b_57 :: Chunk +c256_b_57 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 57))) + +c256_b_58 :: Chunk +c256_b_58 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 58))) + +c256_b_59 :: Chunk +c256_b_59 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 59))) + +c256_b_60 :: Chunk +c256_b_60 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 60))) + +c256_b_61 :: Chunk +c256_b_61 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 61))) + +c256_b_62 :: Chunk +c256_b_62 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 62))) + +c256_b_63 :: Chunk +c256_b_63 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 63))) + +c256_b_64 :: Chunk +c256_b_64 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 64))) + +c256_b_65 :: Chunk +c256_b_65 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 65))) + +c256_b_66 :: Chunk +c256_b_66 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 66))) + +c256_b_67 :: Chunk +c256_b_67 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 67))) + +c256_b_68 :: Chunk +c256_b_68 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 68))) + +c256_b_69 :: Chunk +c256_b_69 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 69))) + +c256_b_70 :: Chunk +c256_b_70 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 70))) + +c256_b_71 :: Chunk +c256_b_71 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 71))) + +c256_b_72 :: Chunk +c256_b_72 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 72))) + +c256_b_73 :: Chunk +c256_b_73 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 73))) + +c256_b_74 :: Chunk +c256_b_74 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 74))) + +c256_b_75 :: Chunk +c256_b_75 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 75))) + +c256_b_76 :: Chunk +c256_b_76 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 76))) + +c256_b_77 :: Chunk +c256_b_77 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 77))) + +c256_b_78 :: Chunk +c256_b_78 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 78))) + +c256_b_79 :: Chunk +c256_b_79 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 79))) + +c256_b_80 :: Chunk +c256_b_80 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 80))) + +c256_b_81 :: Chunk +c256_b_81 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 81))) + +c256_b_82 :: Chunk +c256_b_82 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 82))) + +c256_b_83 :: Chunk +c256_b_83 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 83))) + +c256_b_84 :: Chunk +c256_b_84 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 84))) + +c256_b_85 :: Chunk +c256_b_85 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 85))) + +c256_b_86 :: Chunk +c256_b_86 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 86))) + +c256_b_87 :: Chunk +c256_b_87 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 87))) + +c256_b_88 :: Chunk +c256_b_88 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 88))) + +c256_b_89 :: Chunk +c256_b_89 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 89))) + +c256_b_90 :: Chunk +c256_b_90 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 90))) + +c256_b_91 :: Chunk +c256_b_91 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 91))) + +c256_b_92 :: Chunk +c256_b_92 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 92))) + +c256_b_93 :: Chunk +c256_b_93 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 93))) + +c256_b_94 :: Chunk +c256_b_94 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 94))) + +c256_b_95 :: Chunk +c256_b_95 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 95))) + +c256_b_96 :: Chunk +c256_b_96 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 96))) + +c256_b_97 :: Chunk +c256_b_97 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 97))) + +c256_b_98 :: Chunk +c256_b_98 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 98))) + +c256_b_99 :: Chunk +c256_b_99 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 99))) + +c256_b_100 :: Chunk +c256_b_100 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 100))) + +c256_b_101 :: Chunk +c256_b_101 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 101))) + +c256_b_102 :: Chunk +c256_b_102 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 102))) + +c256_b_103 :: Chunk +c256_b_103 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 103))) + +c256_b_104 :: Chunk +c256_b_104 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 104))) + +c256_b_105 :: Chunk +c256_b_105 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 105))) + +c256_b_106 :: Chunk +c256_b_106 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 106))) + +c256_b_107 :: Chunk +c256_b_107 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 107))) + +c256_b_108 :: Chunk +c256_b_108 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 108))) + +c256_b_109 :: Chunk +c256_b_109 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 109))) + +c256_b_110 :: Chunk +c256_b_110 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 110))) + +c256_b_111 :: Chunk +c256_b_111 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 111))) + +c256_b_112 :: Chunk +c256_b_112 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 112))) + +c256_b_113 :: Chunk +c256_b_113 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 113))) + +c256_b_114 :: Chunk +c256_b_114 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 114))) + +c256_b_115 :: Chunk +c256_b_115 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 115))) + +c256_b_116 :: Chunk +c256_b_116 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 116))) + +c256_b_117 :: Chunk +c256_b_117 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 117))) + +c256_b_118 :: Chunk +c256_b_118 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 118))) + +c256_b_119 :: Chunk +c256_b_119 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 119))) + +c256_b_120 :: Chunk +c256_b_120 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 120))) + +c256_b_121 :: Chunk +c256_b_121 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 121))) + +c256_b_122 :: Chunk +c256_b_122 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 122))) + +c256_b_123 :: Chunk +c256_b_123 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 123))) + +c256_b_124 :: Chunk +c256_b_124 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 124))) + +c256_b_125 :: Chunk +c256_b_125 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 125))) + +c256_b_126 :: Chunk +c256_b_126 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 126))) + +c256_b_127 :: Chunk +c256_b_127 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 127))) + +c256_b_128 :: Chunk +c256_b_128 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 128))) + +c256_b_129 :: Chunk +c256_b_129 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 129))) + +c256_b_130 :: Chunk +c256_b_130 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 130))) + +c256_b_131 :: Chunk +c256_b_131 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 131))) + +c256_b_132 :: Chunk +c256_b_132 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 132))) + +c256_b_133 :: Chunk +c256_b_133 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 133))) + +c256_b_134 :: Chunk +c256_b_134 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 134))) + +c256_b_135 :: Chunk +c256_b_135 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 135))) + +c256_b_136 :: Chunk +c256_b_136 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 136))) + +c256_b_137 :: Chunk +c256_b_137 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 137))) + +c256_b_138 :: Chunk +c256_b_138 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 138))) + +c256_b_139 :: Chunk +c256_b_139 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 139))) + +c256_b_140 :: Chunk +c256_b_140 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 140))) + +c256_b_141 :: Chunk +c256_b_141 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 141))) + +c256_b_142 :: Chunk +c256_b_142 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 142))) + +c256_b_143 :: Chunk +c256_b_143 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 143))) + +c256_b_144 :: Chunk +c256_b_144 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 144))) + +c256_b_145 :: Chunk +c256_b_145 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 145))) + +c256_b_146 :: Chunk +c256_b_146 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 146))) + +c256_b_147 :: Chunk +c256_b_147 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 147))) + +c256_b_148 :: Chunk +c256_b_148 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 148))) + +c256_b_149 :: Chunk +c256_b_149 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 149))) + +c256_b_150 :: Chunk +c256_b_150 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 150))) + +c256_b_151 :: Chunk +c256_b_151 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 151))) + +c256_b_152 :: Chunk +c256_b_152 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 152))) + +c256_b_153 :: Chunk +c256_b_153 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 153))) + +c256_b_154 :: Chunk +c256_b_154 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 154))) + +c256_b_155 :: Chunk +c256_b_155 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 155))) + +c256_b_156 :: Chunk +c256_b_156 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 156))) + +c256_b_157 :: Chunk +c256_b_157 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 157))) + +c256_b_158 :: Chunk +c256_b_158 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 158))) + +c256_b_159 :: Chunk +c256_b_159 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 159))) + +c256_b_160 :: Chunk +c256_b_160 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 160))) + +c256_b_161 :: Chunk +c256_b_161 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 161))) + +c256_b_162 :: Chunk +c256_b_162 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 162))) + +c256_b_163 :: Chunk +c256_b_163 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 163))) + +c256_b_164 :: Chunk +c256_b_164 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 164))) + +c256_b_165 :: Chunk +c256_b_165 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 165))) + +c256_b_166 :: Chunk +c256_b_166 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 166))) + +c256_b_167 :: Chunk +c256_b_167 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 167))) + +c256_b_168 :: Chunk +c256_b_168 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 168))) + +c256_b_169 :: Chunk +c256_b_169 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 169))) + +c256_b_170 :: Chunk +c256_b_170 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 170))) + +c256_b_171 :: Chunk +c256_b_171 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 171))) + +c256_b_172 :: Chunk +c256_b_172 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 172))) + +c256_b_173 :: Chunk +c256_b_173 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 173))) + +c256_b_174 :: Chunk +c256_b_174 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 174))) + +c256_b_175 :: Chunk +c256_b_175 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 175))) + +c256_b_176 :: Chunk +c256_b_176 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 176))) + +c256_b_177 :: Chunk +c256_b_177 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 177))) + +c256_b_178 :: Chunk +c256_b_178 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 178))) + +c256_b_179 :: Chunk +c256_b_179 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 179))) + +c256_b_180 :: Chunk +c256_b_180 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 180))) + +c256_b_181 :: Chunk +c256_b_181 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 181))) + +c256_b_182 :: Chunk +c256_b_182 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 182))) + +c256_b_183 :: Chunk +c256_b_183 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 183))) + +c256_b_184 :: Chunk +c256_b_184 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 184))) + +c256_b_185 :: Chunk +c256_b_185 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 185))) + +c256_b_186 :: Chunk +c256_b_186 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 186))) + +c256_b_187 :: Chunk +c256_b_187 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 187))) + +c256_b_188 :: Chunk +c256_b_188 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 188))) + +c256_b_189 :: Chunk +c256_b_189 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 189))) + +c256_b_190 :: Chunk +c256_b_190 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 190))) + +c256_b_191 :: Chunk +c256_b_191 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 191))) + +c256_b_192 :: Chunk +c256_b_192 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 192))) + +c256_b_193 :: Chunk +c256_b_193 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 193))) + +c256_b_194 :: Chunk +c256_b_194 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 194))) + +c256_b_195 :: Chunk +c256_b_195 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 195))) + +c256_b_196 :: Chunk +c256_b_196 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 196))) + +c256_b_197 :: Chunk +c256_b_197 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 197))) + +c256_b_198 :: Chunk +c256_b_198 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 198))) + +c256_b_199 :: Chunk +c256_b_199 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 199))) + +c256_b_200 :: Chunk +c256_b_200 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 200))) + +c256_b_201 :: Chunk +c256_b_201 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 201))) + +c256_b_202 :: Chunk +c256_b_202 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 202))) + +c256_b_203 :: Chunk +c256_b_203 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 203))) + +c256_b_204 :: Chunk +c256_b_204 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 204))) + +c256_b_205 :: Chunk +c256_b_205 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 205))) + +c256_b_206 :: Chunk +c256_b_206 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 206))) + +c256_b_207 :: Chunk +c256_b_207 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 207))) + +c256_b_208 :: Chunk +c256_b_208 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 208))) + +c256_b_209 :: Chunk +c256_b_209 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 209))) + +c256_b_210 :: Chunk +c256_b_210 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 210))) + +c256_b_211 :: Chunk +c256_b_211 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 211))) + +c256_b_212 :: Chunk +c256_b_212 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 212))) + +c256_b_213 :: Chunk +c256_b_213 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 213))) + +c256_b_214 :: Chunk +c256_b_214 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 214))) + +c256_b_215 :: Chunk +c256_b_215 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 215))) + +c256_b_216 :: Chunk +c256_b_216 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 216))) + +c256_b_217 :: Chunk +c256_b_217 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 217))) + +c256_b_218 :: Chunk +c256_b_218 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 218))) + +c256_b_219 :: Chunk +c256_b_219 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 219))) + +c256_b_220 :: Chunk +c256_b_220 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 220))) + +c256_b_221 :: Chunk +c256_b_221 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 221))) + +c256_b_222 :: Chunk +c256_b_222 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 222))) + +c256_b_223 :: Chunk +c256_b_223 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 223))) + +c256_b_224 :: Chunk +c256_b_224 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 224))) + +c256_b_225 :: Chunk +c256_b_225 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 225))) + +c256_b_226 :: Chunk +c256_b_226 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 226))) + +c256_b_227 :: Chunk +c256_b_227 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 227))) + +c256_b_228 :: Chunk +c256_b_228 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 228))) + +c256_b_229 :: Chunk +c256_b_229 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 229))) + +c256_b_230 :: Chunk +c256_b_230 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 230))) + +c256_b_231 :: Chunk +c256_b_231 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 231))) + +c256_b_232 :: Chunk +c256_b_232 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 232))) + +c256_b_233 :: Chunk +c256_b_233 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 233))) + +c256_b_234 :: Chunk +c256_b_234 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 234))) + +c256_b_235 :: Chunk +c256_b_235 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 235))) + +c256_b_236 :: Chunk +c256_b_236 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 236))) + +c256_b_237 :: Chunk +c256_b_237 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 237))) + +c256_b_238 :: Chunk +c256_b_238 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 238))) + +c256_b_239 :: Chunk +c256_b_239 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 239))) + +c256_b_240 :: Chunk +c256_b_240 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 240))) + +c256_b_241 :: Chunk +c256_b_241 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 241))) + +c256_b_242 :: Chunk +c256_b_242 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 242))) + +c256_b_243 :: Chunk +c256_b_243 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 243))) + +c256_b_244 :: Chunk +c256_b_244 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 244))) + +c256_b_245 :: Chunk +c256_b_245 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 245))) + +c256_b_246 :: Chunk +c256_b_246 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 246))) + +c256_b_247 :: Chunk +c256_b_247 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 247))) + +c256_b_248 :: Chunk +c256_b_248 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 248))) + +c256_b_249 :: Chunk +c256_b_249 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 249))) + +c256_b_250 :: Chunk +c256_b_250 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 250))) + +c256_b_251 :: Chunk +c256_b_251 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 251))) + +c256_b_252 :: Chunk +c256_b_252 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 252))) + +c256_b_253 :: Chunk +c256_b_253 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 253))) + +c256_b_254 :: Chunk +c256_b_254 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 254))) + +c256_b_255 :: Chunk +c256_b_255 = mempty & textSpec . style256 . background256 + . unwrapped .~ (Just (Just (T.ColorNumber 255))) diff --git a/rainbow.cabal b/rainbow.cabal --- a/rainbow.cabal +++ b/rainbow.cabal @@ -1,11 +1,20 @@ name: rainbow -version: 0.2.0.0 +version: 0.4.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 such as bold, underlining, etc. You pair each Text with a description of how it should appear. Rainbow works with both 8-color and 256-color terminals. + + . + + rainbow uses the terminfo package which, in turn, needs the full C + library for ncurses installed, including the development + headers. Before installing terminfo, you may need to install the + ncurses headers (for instance, on Debian systems, install the + libncurses5-dev package.) + homepage: http://github.com/massysett/rainbow license: BSD3 license-file: LICENSE @@ -26,6 +35,7 @@ build-depends: base ==4.6.* + , lens ==3.9.* , terminfo ==0.3.* , text ==0.11.*