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

module System.Console.Rainbow (

  -- * Terminal definitions
    Term(..)
  , termFromEnv
  , smartTermFromEnv

  -- * Chunks
  , Chunk(..)

  -- * Printing chunks
  , putChunks
  , hPutChunks

  -- ** Printing one chunk at a time

  -- | These functions make it easy to print one chunk at a time. Each
  -- function initializes the terminal once for each chunk, unlike the
  -- list-oriented functions, which only initialize the terminal
  -- once. (Initialization does not clear the screen; rather, it is a
  -- process that the terminfo library requires.) Thus there might be
  -- a performance penalty for using these functions to print large
  -- numbers of chunks. Or, there might not be--I have not benchmarked
  -- them.
  --
  -- These functions use the default terminal, obtained using
  -- 'termFromEnv'.
  , putChunk
  , putChunkLn
  , hPutChunk
  , hPutChunkLn

  -- * Effects for both 8 and 256 color terminals

  -- | These 'Chunk's affect both 8 and 256 color terminals:
  --
  -- > putChunkLn $ "bold on 8 and 256 color terminals" <> bold
  --
  -- There are also 'Chunk's to turn an effect off, such as
  -- 'boldOff'. Ordinarily you will not need these because each chunk
  -- starts with no effects, so you only need to turn on the effects
  -- you want. However the @off@ 'Chunk's are here if you need them.

  , bold, boldOff
  , underline, underlineOff
  , flash, flashOff
  , inverse, inverseOff

  -- * Effects for 8-color terminals only

  -- | These 'Chunk's affect 8-color terminals only.
  --
  -- > putChunkLn $ "Bold on 8 color terminal only" <> bold8

  , bold8, bold8off
  , underline8, underline8off
  , flash8, flash8off
  , inverse8, inverse8off

  -- * Effects for 256-color terminals only

  -- | These 'Chunk's affect 256-color terminals only.
  --
  -- > putChunkLn $ "Underlined on 256-color terminal, "
  -- >              <> "bold on 8-color terminal"
  -- >              <> underlined256 <> bold8

  , bold256, bold256off
  , underline256, underline256off
  , flash256, flash256off
  , inverse256, inverse256off

  -- * Colors for both 8 and 256 color terminals

  -- | These 'Chunk's affect both 8 and 256 color
  -- terminals.
  --
  -- > putChunkLn $ "Red on blue" <> f_red <> b_blue

  -- ** Foreground colors

  , f_default
  , f_black
  , f_red
  , f_green
  , f_yellow
  , f_blue
  , f_magenta
  , f_cyan
  , f_white

  -- ** Background colors

  , b_default
  , b_black
  , b_red
  , b_green
  , b_yellow
  , b_blue
  , b_magenta
  , b_cyan
  , b_white

   -- * Specific colors
   -- ** 8 color foreground colors
  , c8_f_default
  , c8_f_black
  , c8_f_red
  , c8_f_green
  , c8_f_yellow
  , c8_f_blue
  , c8_f_magenta
  , c8_f_cyan
  , c8_f_white

   -- ** 8 color background colors
  , c8_b_default
  , c8_b_black
  , c8_b_red
  , c8_b_green
  , c8_b_yellow
  , c8_b_blue
  , c8_b_magenta
  , c8_b_cyan
  , c8_b_white

   -- ** 256 color foreground colors

   -- | The color names assume a palette similar to the default one
   -- that xterm uses.
  , c256_f_default
  , c256_f_0
  , c256_f_black
  , c256_f_1
  , c256_f_red
  , c256_f_2
  , c256_f_green
  , c256_f_3
  , c256_f_yellow
  , c256_f_4
  , c256_f_blue
  , c256_f_5
  , c256_f_magenta
  , c256_f_6
  , c256_f_cyan
  , c256_f_7
  , c256_f_white
  , c256_f_8
  , c256_f_grey
  , c256_f_9
  , c256_f_red_bright
  , c256_f_10
  , c256_f_green_bright
  , c256_f_11
  , c256_f_yellow_bright
  , c256_f_12
  , c256_f_blue_bright
  , c256_f_13
  , c256_f_magenta_bright
  , c256_f_14
  , c256_f_cyan_bright
  , c256_f_15
  , c256_f_white_bright
  , c256_f_16
  , c256_f_17
  , c256_f_18
  , c256_f_19
  , c256_f_20
  , c256_f_21
  , c256_f_22
  , c256_f_23
  , c256_f_24
  , c256_f_25
  , c256_f_26
  , c256_f_27
  , c256_f_28
  , c256_f_29
  , c256_f_30
  , c256_f_31
  , c256_f_32
  , c256_f_33
  , c256_f_34
  , c256_f_35
  , c256_f_36
  , c256_f_37
  , c256_f_38
  , c256_f_39
  , c256_f_40
  , c256_f_41
  , c256_f_42
  , c256_f_43
  , c256_f_44
  , c256_f_45
  , c256_f_46
  , c256_f_47
  , c256_f_48
  , c256_f_49
  , c256_f_50
  , c256_f_51
  , c256_f_52
  , c256_f_53
  , c256_f_54
  , c256_f_55
  , c256_f_56
  , c256_f_57
  , c256_f_58
  , c256_f_59
  , c256_f_60
  , c256_f_61
  , c256_f_62
  , c256_f_63
  , c256_f_64
  , c256_f_65
  , c256_f_66
  , c256_f_67
  , c256_f_68
  , c256_f_69
  , c256_f_70
  , c256_f_71
  , c256_f_72
  , c256_f_73
  , c256_f_74
  , c256_f_75
  , c256_f_76
  , c256_f_77
  , c256_f_78
  , c256_f_79
  , c256_f_80
  , c256_f_81
  , c256_f_82
  , c256_f_83
  , c256_f_84
  , c256_f_85
  , c256_f_86
  , c256_f_87
  , c256_f_88
  , c256_f_89
  , c256_f_90
  , c256_f_91
  , c256_f_92
  , c256_f_93
  , c256_f_94
  , c256_f_95
  , c256_f_96
  , c256_f_97
  , c256_f_98
  , c256_f_99
  , c256_f_100
  , c256_f_101
  , c256_f_102
  , c256_f_103
  , c256_f_104
  , c256_f_105
  , c256_f_106
  , c256_f_107
  , c256_f_108
  , c256_f_109
  , c256_f_110
  , c256_f_111
  , c256_f_112
  , c256_f_113
  , c256_f_114
  , c256_f_115
  , c256_f_116
  , c256_f_117
  , c256_f_118
  , c256_f_119
  , c256_f_120
  , c256_f_121
  , c256_f_122
  , c256_f_123
  , c256_f_124
  , c256_f_125
  , c256_f_126
  , c256_f_127
  , c256_f_128
  , c256_f_129
  , c256_f_130
  , c256_f_131
  , c256_f_132
  , c256_f_133
  , c256_f_134
  , c256_f_135
  , c256_f_136
  , c256_f_137
  , c256_f_138
  , c256_f_139
  , c256_f_140
  , c256_f_141
  , c256_f_142
  , c256_f_143
  , c256_f_144
  , c256_f_145
  , c256_f_146
  , c256_f_147
  , c256_f_148
  , c256_f_149
  , c256_f_150
  , c256_f_151
  , c256_f_152
  , c256_f_153
  , c256_f_154
  , c256_f_155
  , c256_f_156
  , c256_f_157
  , c256_f_158
  , c256_f_159
  , c256_f_160
  , c256_f_161
  , c256_f_162
  , c256_f_163
  , c256_f_164
  , c256_f_165
  , c256_f_166
  , c256_f_167
  , c256_f_168
  , c256_f_169
  , c256_f_170
  , c256_f_171
  , c256_f_172
  , c256_f_173
  , c256_f_174
  , c256_f_175
  , c256_f_176
  , c256_f_177
  , c256_f_178
  , c256_f_179
  , c256_f_180
  , c256_f_181
  , c256_f_182
  , c256_f_183
  , c256_f_184
  , c256_f_185
  , c256_f_186
  , c256_f_187
  , c256_f_188
  , c256_f_189
  , c256_f_190
  , c256_f_191
  , c256_f_192
  , c256_f_193
  , c256_f_194
  , c256_f_195
  , c256_f_196
  , c256_f_197
  , c256_f_198
  , c256_f_199
  , c256_f_200
  , c256_f_201
  , c256_f_202
  , c256_f_203
  , c256_f_204
  , c256_f_205
  , c256_f_206
  , c256_f_207
  , c256_f_208
  , c256_f_209
  , c256_f_210
  , c256_f_211
  , c256_f_212
  , c256_f_213
  , c256_f_214
  , c256_f_215
  , c256_f_216
  , c256_f_217
  , c256_f_218
  , c256_f_219
  , c256_f_220
  , c256_f_221
  , c256_f_222
  , c256_f_223
  , c256_f_224
  , c256_f_225
  , c256_f_226
  , c256_f_227
  , c256_f_228
  , c256_f_229
  , c256_f_230
  , c256_f_231
  , c256_f_232
  , c256_f_233
  , c256_f_234
  , c256_f_235
  , c256_f_236
  , c256_f_237
  , c256_f_238
  , c256_f_239
  , c256_f_240
  , c256_f_241
  , c256_f_242
  , c256_f_243
  , c256_f_244
  , c256_f_245
  , c256_f_246
  , c256_f_247
  , c256_f_248
  , c256_f_249
  , c256_f_250
  , c256_f_251
  , c256_f_252
  , c256_f_253
  , c256_f_254
  , c256_f_255

  -- ** 256 color background colors

   -- | The color names assume a palette similar to the default one
   -- that xterm uses.
  , c256_b_default
  , c256_b_0
  , c256_b_black
  , c256_b_1
  , c256_b_red
  , c256_b_2
  , c256_b_green
  , c256_b_3
  , c256_b_yellow
  , c256_b_4
  , c256_b_blue
  , c256_b_5
  , c256_b_magenta
  , c256_b_6
  , c256_b_cyan
  , c256_b_7
  , c256_b_white
  , c256_b_8
  , c256_b_grey
  , c256_b_9
  , c256_b_red_bright
  , c256_b_10
  , c256_b_green_bright
  , c256_b_11
  , c256_b_yellow_bright
  , c256_b_12
  , c256_b_blue_bright
  , c256_b_13
  , c256_b_magenta_bright
  , c256_b_14
  , c256_b_cyan_bright
  , c256_b_15
  , c256_b_white_bright
  , c256_b_16
  , c256_b_17
  , c256_b_18
  , c256_b_19
  , c256_b_20
  , c256_b_21
  , c256_b_22
  , c256_b_23
  , c256_b_24
  , c256_b_25
  , c256_b_26
  , c256_b_27
  , c256_b_28
  , c256_b_29
  , c256_b_30
  , c256_b_31
  , c256_b_32
  , c256_b_33
  , c256_b_34
  , c256_b_35
  , c256_b_36
  , c256_b_37
  , c256_b_38
  , c256_b_39
  , c256_b_40
  , c256_b_41
  , c256_b_42
  , c256_b_43
  , c256_b_44
  , c256_b_45
  , c256_b_46
  , c256_b_47
  , c256_b_48
  , c256_b_49
  , c256_b_50
  , c256_b_51
  , c256_b_52
  , c256_b_53
  , c256_b_54
  , c256_b_55
  , c256_b_56
  , c256_b_57
  , c256_b_58
  , c256_b_59
  , c256_b_60
  , c256_b_61
  , c256_b_62
  , c256_b_63
  , c256_b_64
  , c256_b_65
  , c256_b_66
  , c256_b_67
  , c256_b_68
  , c256_b_69
  , c256_b_70
  , c256_b_71
  , c256_b_72
  , c256_b_73
  , c256_b_74
  , c256_b_75
  , c256_b_76
  , c256_b_77
  , c256_b_78
  , c256_b_79
  , c256_b_80
  , c256_b_81
  , c256_b_82
  , c256_b_83
  , c256_b_84
  , c256_b_85
  , c256_b_86
  , c256_b_87
  , c256_b_88
  , c256_b_89
  , c256_b_90
  , c256_b_91
  , c256_b_92
  , c256_b_93
  , c256_b_94
  , c256_b_95
  , c256_b_96
  , c256_b_97
  , c256_b_98
  , c256_b_99
  , c256_b_100
  , c256_b_101
  , c256_b_102
  , c256_b_103
  , c256_b_104
  , c256_b_105
  , c256_b_106
  , c256_b_107
  , c256_b_108
  , c256_b_109
  , c256_b_110
  , c256_b_111
  , c256_b_112
  , c256_b_113
  , c256_b_114
  , c256_b_115
  , c256_b_116
  , c256_b_117
  , c256_b_118
  , c256_b_119
  , c256_b_120
  , c256_b_121
  , c256_b_122
  , c256_b_123
  , c256_b_124
  , c256_b_125
  , c256_b_126
  , c256_b_127
  , c256_b_128
  , c256_b_129
  , c256_b_130
  , c256_b_131
  , c256_b_132
  , c256_b_133
  , c256_b_134
  , c256_b_135
  , c256_b_136
  , c256_b_137
  , c256_b_138
  , c256_b_139
  , c256_b_140
  , c256_b_141
  , c256_b_142
  , c256_b_143
  , c256_b_144
  , c256_b_145
  , c256_b_146
  , c256_b_147
  , c256_b_148
  , c256_b_149
  , c256_b_150
  , c256_b_151
  , c256_b_152
  , c256_b_153
  , c256_b_154
  , c256_b_155
  , c256_b_156
  , c256_b_157
  , c256_b_158
  , c256_b_159
  , c256_b_160
  , c256_b_161
  , c256_b_162
  , c256_b_163
  , c256_b_164
  , c256_b_165
  , c256_b_166
  , c256_b_167
  , c256_b_168
  , c256_b_169
  , c256_b_170
  , c256_b_171
  , c256_b_172
  , c256_b_173
  , c256_b_174
  , c256_b_175
  , c256_b_176
  , c256_b_177
  , c256_b_178
  , c256_b_179
  , c256_b_180
  , c256_b_181
  , c256_b_182
  , c256_b_183
  , c256_b_184
  , c256_b_185
  , c256_b_186
  , c256_b_187
  , c256_b_188
  , c256_b_189
  , c256_b_190
  , c256_b_191
  , c256_b_192
  , c256_b_193
  , c256_b_194
  , c256_b_195
  , c256_b_196
  , c256_b_197
  , c256_b_198
  , c256_b_199
  , c256_b_200
  , c256_b_201
  , c256_b_202
  , c256_b_203
  , c256_b_204
  , c256_b_205
  , c256_b_206
  , c256_b_207
  , c256_b_208
  , c256_b_209
  , c256_b_210
  , c256_b_211
  , c256_b_212
  , c256_b_213
  , c256_b_214
  , c256_b_215
  , c256_b_216
  , c256_b_217
  , c256_b_218
  , c256_b_219
  , c256_b_220
  , c256_b_221
  , c256_b_222
  , c256_b_223
  , c256_b_224
  , c256_b_225
  , c256_b_226
  , c256_b_227
  , c256_b_228
  , c256_b_229
  , c256_b_230
  , c256_b_231
  , c256_b_232
  , c256_b_233
  , c256_b_234
  , c256_b_235
  , c256_b_236
  , c256_b_237
  , c256_b_238
  , c256_b_239
  , c256_b_240
  , c256_b_241
  , c256_b_242
  , c256_b_243
  , c256_b_244
  , c256_b_245
  , c256_b_246
  , c256_b_247
  , c256_b_248
  , c256_b_249
  , c256_b_250
  , c256_b_251
  , c256_b_252
  , c256_b_253
  , c256_b_254
  , c256_b_255

  -- * Re-exports
  , Monoid(..)
  , (<>)
  , Str.IsString(..)


  -- * Create your own colors

  -- * Style, TextSpec, and Chunk innards

  -- | A style is a bundle of attributes that describes text
  -- attributes, such as its color and whether it is bold.
  --
  -- Ordinarily you shouldn't need to use these types but they are
  -- here in case they are useful; in particular, you can use them to
  -- examine a Chunk's TextSpec to see what its characteristics are.
  , StyleCommon(..)
  , Style8(..)
  , Style256(..)

  , TextSpec (..)

  -- * Basement

  -- | Ordinarily you will not need the things down here. Instead, the
  -- definitions above will give you a 'Chunk' that will
  -- create the effect or color you need.

  -- ** Wrappers for colors

  -- | Definitions are provided above that give you every possible
  -- color; however, these constructors are exported in case you want
  -- to make your own colors instead. Use at your own risk, as you can
  -- create non-sensical colors with this (such as 256-color colors in
  -- a 'Background8'.)
  , Background8
  , Background256
  , Foreground8
  , Foreground256

  ) where


-- # Imports

import qualified Data.String as Str
import Data.Monoid
import Data.Text (Text)
import Data.Maybe (fromMaybe)
import qualified Data.Text as X
import qualified System.Console.Terminfo as T
import System.IO as IO
import System.Environment as Env

--
-- Terminal definitions
--

-- | Which terminal definition to use.
data Term
  = Dumb
  -- ^ Using this terminal should always succeed. This suppresses all
  -- colors. Uesful if output is not going to a TTY, or if you just do
  -- not like colors.

  | TermName String
  -- ^ Use the terminal with this given name. You might get this from
  -- the TERM environment variable, or set it explicitly. A runtime
  -- error will result if the terminfo database does not have a
  -- definition for this terminal. If this terminal supports 256
  -- colors, then 256 colors are used. If this terminal supports less
  -- than 256 colors, but at least 8 colors, then 8 colors are
  -- used. Otherwise, no colors are used.
  deriving (Eq, Show)

-- | Gets the terminal definition from the environment. If the
-- environment does not have a TERM veriable, use 'Dumb'.
termFromEnv :: IO Term
termFromEnv = do
  t <- Env.lookupEnv "TERM"
  return $ maybe Dumb TermName t

-- | Gets the terminal definition from the environment. If the first
-- argument is True, the terminal is always obtained from the
-- environment. If it is False, the terminal is only obtained from the
-- environment if the given handle is not a terminal; otherwise, Dumb
-- is returned.
smartTermFromEnv
  :: Bool
  -- ^ Use True if the user always wants to see colors, even if
  -- standard output is not a terminal. Otherwise, use False.

  -> IO.Handle
  -- ^ Check this handle to see if it is a terminal (typically you
  -- will use stdout).

  -> IO Term
smartTermFromEnv alwaysColor h =
  if alwaysColor
  then termFromEnv
  else do
        isTerm <- IO.hIsTerminalDevice h
        if isTerm
          then termFromEnv
          else return Dumb

-- For Background8, Background256, Foreground8, Foreground256: the
-- Last wraps a Maybe (Terminfo Color). If the inner Maybe is Nothing,
-- use the default color.

type Background8 = Last (Maybe T.Color)
type Background256 = Last (Maybe T.Color)
type Foreground8 = Last (Maybe T.Color)
type Foreground256 = Last (Maybe T.Color)

--
-- Styles
--

-- | Style elements that apply in both 8 and 256 color
-- terminals. However, the elements are described separately for 8 and
-- 256 color terminals, so that the text appearance can change
-- depending on how many colors a terminal has.
data StyleCommon = StyleCommon
  { scBold :: Last Bool
  , scUnderline :: Last Bool
  , scFlash :: Last Bool
  , scInverse :: Last Bool
  } deriving (Show, Eq, Ord)


instance Monoid StyleCommon where
  mempty = StyleCommon (Last Nothing) (Last Nothing)
                       (Last Nothing) (Last Nothing)
  mappend (StyleCommon b1 u1 f1 i1) (StyleCommon b2 u2 f2 i2)
    = StyleCommon (b1 <> b2) (u1 <> u2) (f1 <> f2) (i1 <> i2)

-- | Describes text appearance (foreground and background colors, as
-- well as other attributes such as bold) for an 8 color terminal.
data Style8 = Style8
  { foreground8 :: Foreground8
  , background8 :: Background8
  , common8 :: StyleCommon
  } deriving (Show, Eq, Ord)


instance Monoid Style8 where
  mappend (Style8 fx bx cx) (Style8 fy by cy)
    = Style8 (fx <> fy) (bx <> by) (cx <> cy)
  mempty = Style8 mempty mempty mempty

-- | Describes text appearance (foreground and background colors, as
-- well as other attributes such as bold) for a 256 color terminal.
data Style256 = Style256
  { foreground256 :: Foreground256
  , background256 :: Background256
  , common256 :: StyleCommon
  } deriving (Show, Eq, Ord)


instance Monoid Style256 where
  mappend (Style256 fx bx cx) (Style256 fy by cy)
    = Style256 (fx <> fy) (bx <> by) (cx <> cy)
  mempty = Style256 mempty mempty mempty

--
-- TextSpec
--

-- | The TextSpec bundles together the styles for the 8 and 256 color
-- terminals, so that the text can be portrayed on any terminal.
data TextSpec = TextSpec
  { style8 :: Style8
  , style256 :: Style256
  } deriving (Show, Eq, Ord)


instance Monoid TextSpec where
  mappend (TextSpec x1 x2) (TextSpec y1 y2)
    = TextSpec (x1 <> y1) (x2 <> y2)
  mempty = TextSpec mempty mempty

--
-- Chunks
--

-- | A chunk is some textual data coupled with a description of what
-- color the text is, attributes like whether it is bold or
-- underlined, etc. The chunk knows what foreground and background
-- colors and what attributes to use for both an 8 color terminal and
-- a 256 color terminal.

data Chunk = Chunk
  { textSpec :: TextSpec
  , text :: Text
  } deriving (Eq, Show, Ord)


instance Str.IsString Chunk where
  fromString s = Chunk mempty (X.pack s)

instance Monoid Chunk where
  mempty = Chunk mempty mempty
  mappend (Chunk s1 t1) (Chunk s2 t2) = Chunk (s1 <> s2) (t1 <> t2)


defaultColors :: T.Terminal -> T.TermOutput
defaultColors term =
  fromMaybe mempty (T.getCapability term T.restoreDefaultColors)


commonAttrs :: T.Terminal -> StyleCommon -> T.TermOutput
commonAttrs t s =
  let a = T.Attributes
        { T.standoutAttr = False
        , T.underlineAttr = fromMaybe False
          . getLast . scUnderline $ s
        , T.reverseAttr = fromMaybe False
          . getLast . scInverse $ s
        , T.blinkAttr = fromMaybe False
          . getLast . scFlash $ s
        , T.dimAttr = False
        , T.boldAttr = fromMaybe False
          . getLast . scBold $ s
        , T.invisibleAttr = False
        , T.protectedAttr = False
        }
  in case T.getCapability t (T.setAttributes) of
      Nothing -> error $ "System.Console.Rainbow: commonAttrs: "
                 ++ "capability failed; should never happen"
      Just f -> f a


-- | Gets the right set of terminal codes to apply the desired
-- highlighting, bold, underlining, etc. Be sure to apply the
-- attributes first (bold, underlining, etc) and then the
-- colors. Setting the colors first and then the attributes seems to
-- reset the colors, giving blank output.
getTermCodes
  :: T.Terminal
  -> TextSpec
  -> T.TermOutput
getTermCodes t ts = fromMaybe mempty $ do
  cols <- T.getCapability t T.termColors
  let TextSpec s8 s256 = ts
      Style8 f8 b8 c8 = s8
      Style256 f256 b256 c256 = s256
  setFg <- T.getCapability t T.setForegroundColor
  setBg <- T.getCapability t T.setBackgroundColor
  (fg, bg, cm) <- case () of
    _ | cols >= 256 -> Just $ ( getLast f256
                              , getLast b256
                              , c256)
      | cols >= 8 -> Just ( getLast f8
                         , getLast b8
                         , c8)
      | otherwise -> Nothing
  let oFg = maybe mempty (maybe mempty setFg) fg
      oBg = maybe mempty (maybe mempty setBg) bg
      oCm = commonAttrs t cm
  return $ mconcat [oCm, oFg, oBg]


hPrintChunk :: IO.Handle -> T.Terminal -> Chunk -> IO ()
hPrintChunk h t (Chunk ts x) =
  T.hRunTermOutput h t
  . mconcat
  $ [defaultColors t, codes, txt]
  where
    codes = getTermCodes t ts
    txt = T.termText . X.unpack $ x

-- | Sends a list of chunks to the given handle for printing. Sets up
-- the terminal (this only needs to be done once.) Lazily processes
-- the list of Chunk. See 'putChunks' for notes on how many colors
-- are used.
hPutChunks :: IO.Handle -> Term -> [Chunk] -> IO ()
hPutChunks h t cs = do
  let setup = case t of
        Dumb -> T.setupTerm "dumb"
        TermName s -> T.setupTerm s
  term <- setup
  mapM_ (hPrintChunk h term) cs
  T.hRunTermOutput h term (defaultColors term)
  T.hRunTermOutput h term
    $ case T.getCapability term T.allAttributesOff of
        Nothing -> error $ "System.Console.Rainbow.putChunks: error: "
                   ++ "allAttributesOff failed"
        Just s -> s

-- | Sends a list of chunks to standard output for printing. Sets up
-- the terminal (this only needs to be done once.) Lazily processes
-- the list of Chunk.
--
-- Which colors are used depends upon the 'Term'. If it is 'Dumb',
-- then no colors are used on output. If the 'Term' is specified with
-- 'TermName', the UNIX terminfo library is used to determine how many
-- colors the terminal supports. If it supports at least 256 colors,
-- then 256 colors are used. If it supports at least 8 colors but less
-- than 256 colors, then 256 colors are used. Otherwise, no colors are
-- used. A runtime error will occur if the 'TermName' is not found in
-- the system terminal database.
putChunks :: Term -> [Chunk] -> IO ()
putChunks = hPutChunks IO.stdout

-- | Print one chunk at a time, to a handle
hPutChunk :: IO.Handle -> Chunk -> IO ()
hPutChunk h c = do
  t <- termFromEnv
  hPutChunks h t [c]

-- | Print one chunk at a time, to standard output
putChunk :: Chunk -> IO ()
putChunk = hPutChunk IO.stdout

-- | Print one chunk at a time, to a handle, append a newline
hPutChunkLn :: IO.Handle -> Chunk -> IO ()
hPutChunkLn h c = hPutChunk h c >> IO.hPutStr h "\n"

-- | Print one chunk at a time, to standard output, append a newline
putChunkLn :: Chunk -> IO ()
putChunkLn c = putChunk c >> putStr "\n"

bold8 :: Chunk
bold8 = x {
  textSpec = (textSpec x) {
    style8 = (style8 (textSpec x)) {
      common8 = (common8 (style8 (textSpec x))) {
        scBold = Last (Just True) }}}}
  where
    x = mempty

bold8off :: Chunk
bold8off = x {
  textSpec = (textSpec x) {
    style8 = (style8 (textSpec x)) {
      common8 = (common8 (style8 (textSpec x))) {
        scBold = Last (Just False) }}}}
  where
    x = mempty


underline8 :: Chunk
underline8 = x {
  textSpec = (textSpec x) {
    style8 = (style8 (textSpec x)) {
      common8 = (common8 (style8 (textSpec x))) {
        scUnderline = Last (Just True) }}}}
  where
    x = mempty


underline8off :: Chunk
underline8off = x {
  textSpec = (textSpec x) {
    style8 = (style8 (textSpec x)) {
      common8 = (common8 (style8 (textSpec x))) {
        scUnderline = Last (Just False) }}}}
  where
    x = mempty

flash8 :: Chunk
flash8 = x {
  textSpec = (textSpec x) {
    style8 = (style8 (textSpec x)) {
      common8 = (common8 (style8 (textSpec x))) {
        scFlash = Last (Just True) }}}}
  where
    x = mempty

flash8off :: Chunk
flash8off = x {
  textSpec = (textSpec x) {
    style8 = (style8 (textSpec x)) {
      common8 = (common8 (style8 (textSpec x))) {
        scFlash = Last (Just False) }}}}
  where
    x = mempty


inverse8 :: Chunk
inverse8 = x {
  textSpec = (textSpec x) {
    style8 = (style8 (textSpec x)) {
      common8 = (common8 (style8 (textSpec x))) {
        scInverse = Last (Just True) }}}}
  where
    x = mempty

inverse8off :: Chunk
inverse8off = x {
  textSpec = (textSpec x) {
    style8 = (style8 (textSpec x)) {
      common8 = (common8 (style8 (textSpec x))) {
        scInverse = Last (Just False) }}}}
  where
    x = mempty


underline256 :: Chunk
underline256 = x {
  textSpec = (textSpec x) {
    style256 = (style256 (textSpec x)) {
      common256 = (common256 (style256 (textSpec x))) {
        scUnderline = Last (Just True) }}}}
  where
    x = mempty


underline256off :: Chunk
underline256off = x {
  textSpec = (textSpec x) {
    style256 = (style256 (textSpec x)) {
      common256 = (common256 (style256 (textSpec x))) {
        scUnderline = Last (Just False) }}}}
  where
    x = mempty

bold256 :: Chunk
bold256 = x {
  textSpec = (textSpec x) {
    style256 = (style256 (textSpec x)) {
      common256 = (common256 (style256 (textSpec x))) {
        scBold = Last (Just True) }}}}
  where
    x = mempty

bold256off :: Chunk
bold256off = x {
  textSpec = (textSpec x) {
    style256 = (style256 (textSpec x)) {
      common256 = (common256 (style256 (textSpec x))) {
        scBold = Last (Just False) }}}}
  where
    x = mempty


inverse256 :: Chunk
inverse256 = x {
  textSpec = (textSpec x) {
    style256 = (style256 (textSpec x)) {
      common256 = (common256 (style256 (textSpec x))) {
        scInverse = Last (Just True) }}}}
  where
    x = mempty

inverse256off :: Chunk
inverse256off = x {
  textSpec = (textSpec x) {
    style256 = (style256 (textSpec x)) {
      common256 = (common256 (style256 (textSpec x))) {
        scInverse = Last (Just False) }}}}
  where
    x = mempty


flash256 :: Chunk
flash256 = x {
  textSpec = (textSpec x) {
    style256 = (style256 (textSpec x)) {
      common256 = (common256 (style256 (textSpec x))) {
        scFlash = Last (Just True) }}}}
  where
    x = mempty


flash256off :: Chunk
flash256off = x {
  textSpec = (textSpec x) {
    style256 = (style256 (textSpec x)) {
      common256 = (common256 (style256 (textSpec x))) {
        scFlash = Last (Just False) }}}}
  where
    x = mempty


--
-- All
--


-- | Bold. What actually happens when you use Bold is going to depend
-- on your terminal. For example, xterm allows you actually use a bold
-- font for bold, if you have one. Otherwise, it might simulate bold
-- by using overstriking. Another possibility is that your terminal
-- might use a different color to indicate bold. For more details (at
-- least for xterm), look at xterm (1) and search for @boldColors@.
--
-- If your terminal uses a different color for bold, this allows an
-- 8-color terminal to really have 16 colors.
bold :: Chunk
bold = bold8 <> bold256

boldOff :: Chunk
boldOff = bold8off <> bold256off

inverse :: Chunk
inverse = inverse8 <> inverse256

inverseOff :: Chunk
inverseOff = inverse8off <> inverse256off

flash :: Chunk
flash = flash8 <> flash256

flashOff :: Chunk
flashOff = flash8off <> flash256off

underline :: Chunk
underline = underline8 <> underline256

underlineOff :: Chunk
underlineOff = underline8off <> underline256off

f_default :: Chunk
f_default = c8_f_default <> c256_f_default

f_black :: Chunk
f_black = c8_f_black <> c256_f_black

f_red :: Chunk
f_red = c8_f_red <> c256_f_red

f_green :: Chunk
f_green = c8_f_green <> c256_f_green

f_yellow :: Chunk
f_yellow = c8_f_yellow <> c256_f_yellow

f_blue :: Chunk
f_blue = c8_f_blue <> c256_f_blue

f_magenta :: Chunk
f_magenta = c8_f_magenta <> c256_f_magenta

f_cyan :: Chunk
f_cyan = c8_f_cyan <> c256_f_cyan

f_white :: Chunk
f_white = c8_f_white <> c256_f_white

b_default :: Chunk
b_default = c8_b_default <> c256_b_default

b_black :: Chunk
b_black = c8_b_black <> c256_b_black

b_red :: Chunk
b_red = c8_b_red <> c256_b_red

b_green :: Chunk
b_green = c8_b_green <> c256_b_green

b_yellow :: Chunk
b_yellow = c8_b_yellow <> c256_b_yellow

b_blue :: Chunk
b_blue = c8_b_blue <> c256_b_blue

b_magenta :: Chunk
b_magenta = c8_b_magenta <> c256_b_magenta

b_cyan :: Chunk
b_cyan = c8_b_cyan <> c256_b_cyan

b_white :: Chunk
b_white = c8_b_white <> c256_b_white


--
-- Color basement
--

fc8 :: Maybe T.Color -> Chunk
fc8 c = x { textSpec = (textSpec x) {
  style8 = (style8 (textSpec x)) {
    foreground8 = Last (Just c) }}}
  where
    x = mempty

c8_f_default :: Chunk
c8_f_default = fc8 Nothing


c8_f_black :: Chunk
c8_f_black = fc8 (Just T.Black)

c8_f_red :: Chunk
c8_f_red = fc8 (Just T.Red)

c8_f_green :: Chunk
c8_f_green = fc8 (Just T.Green)

c8_f_yellow :: Chunk
c8_f_yellow = fc8 (Just T.Yellow)

c8_f_blue :: Chunk
c8_f_blue = fc8 (Just T.Blue)

c8_f_magenta :: Chunk
c8_f_magenta = fc8 (Just T.Magenta)

c8_f_cyan :: Chunk
c8_f_cyan = fc8 (Just T.Cyan)

c8_f_white :: Chunk
c8_f_white = fc8 (Just T.White)


bc8 :: Maybe T.Color -> Chunk
bc8 c = x { textSpec = (textSpec x) {
  style8 = (style8 (textSpec x)) {
    background8 = Last (Just c) }}}
  where
    x = mempty

c8_b_default :: Chunk
c8_b_default = bc8 Nothing

c8_b_black :: Chunk
c8_b_black = bc8 (Just T.Black)

c8_b_red :: Chunk
c8_b_red = bc8 (Just T.Red)

c8_b_green :: Chunk
c8_b_green = bc8 (Just T.Green)

c8_b_yellow :: Chunk
c8_b_yellow = bc8 (Just T.Yellow)

c8_b_blue :: Chunk
c8_b_blue = bc8 (Just T.Blue)

c8_b_magenta :: Chunk
c8_b_magenta = bc8 (Just T.Magenta)

c8_b_cyan :: Chunk
c8_b_cyan = bc8 (Just T.Cyan)

c8_b_white :: Chunk
c8_b_white = bc8 (Just T.White)

fc256 :: Maybe T.Color -> Chunk
fc256 c = x { textSpec = (textSpec x) {
  style256 = (style256 (textSpec x)) {
    foreground256 = Last (Just c) }}}
  where
    x = mempty

c256_f_default :: Chunk
c256_f_default = fc256 Nothing


c256_f_0 :: Chunk
c256_f_0 = fc256 (Just (T.ColorNumber 0))

c256_f_black :: Chunk
c256_f_black = fc256 (Just (T.ColorNumber 0))

c256_f_1 :: Chunk
c256_f_1 = fc256 (Just (T.ColorNumber 1))

c256_f_red :: Chunk
c256_f_red = fc256 (Just (T.ColorNumber 1))

c256_f_2 :: Chunk
c256_f_2 = fc256 (Just (T.ColorNumber 2))

c256_f_green :: Chunk
c256_f_green = fc256 (Just (T.ColorNumber 2))

c256_f_3 :: Chunk
c256_f_3 = fc256 (Just (T.ColorNumber 3))

c256_f_yellow :: Chunk
c256_f_yellow = fc256 (Just (T.ColorNumber 3))

c256_f_4 :: Chunk
c256_f_4 = fc256 (Just (T.ColorNumber 4))

c256_f_blue :: Chunk
c256_f_blue = fc256 (Just (T.ColorNumber 4))

c256_f_5 :: Chunk
c256_f_5 = fc256 (Just (T.ColorNumber 5))

c256_f_magenta :: Chunk
c256_f_magenta = fc256 (Just (T.ColorNumber 5))

c256_f_6 :: Chunk
c256_f_6 = fc256 (Just (T.ColorNumber 6))

c256_f_cyan :: Chunk
c256_f_cyan = fc256 (Just (T.ColorNumber 6))

c256_f_7 :: Chunk
c256_f_7 = fc256 (Just (T.ColorNumber 7))

c256_f_white :: Chunk
c256_f_white = fc256 (Just (T.ColorNumber 7))

c256_f_8 :: Chunk
c256_f_8 = fc256 (Just (T.ColorNumber 8))

c256_f_grey :: Chunk
c256_f_grey = fc256 (Just (T.ColorNumber 8))

c256_f_9 :: Chunk
c256_f_9 = fc256 (Just (T.ColorNumber 9))

c256_f_red_bright :: Chunk
c256_f_red_bright = fc256 (Just (T.ColorNumber 9))

c256_f_10 :: Chunk
c256_f_10 = fc256 (Just (T.ColorNumber 10))

c256_f_green_bright :: Chunk
c256_f_green_bright = fc256 (Just (T.ColorNumber 10))

c256_f_11 :: Chunk
c256_f_11 = fc256 (Just (T.ColorNumber 11))

c256_f_yellow_bright :: Chunk
c256_f_yellow_bright = fc256 (Just (T.ColorNumber 11))

c256_f_12 :: Chunk
c256_f_12 = fc256 (Just (T.ColorNumber 12))

c256_f_blue_bright :: Chunk
c256_f_blue_bright = fc256 (Just (T.ColorNumber 12))

c256_f_13 :: Chunk
c256_f_13 = fc256 (Just (T.ColorNumber 13))

c256_f_magenta_bright :: Chunk
c256_f_magenta_bright = fc256 (Just (T.ColorNumber 13))

c256_f_14 :: Chunk
c256_f_14 = fc256 (Just (T.ColorNumber 14))

c256_f_cyan_bright :: Chunk
c256_f_cyan_bright = fc256 (Just (T.ColorNumber 14))

c256_f_15 :: Chunk
c256_f_15 = fc256 (Just (T.ColorNumber 15))

c256_f_white_bright :: Chunk
c256_f_white_bright = fc256 (Just (T.ColorNumber 15))

c256_f_16 :: Chunk
c256_f_16 = fc256 (Just (T.ColorNumber 16))

c256_f_17 :: Chunk
c256_f_17 = fc256 (Just (T.ColorNumber 17))

c256_f_18 :: Chunk
c256_f_18 = fc256 (Just (T.ColorNumber 18))

c256_f_19 :: Chunk
c256_f_19 = fc256 (Just (T.ColorNumber 19))

c256_f_20 :: Chunk
c256_f_20 = fc256 (Just (T.ColorNumber 20))

c256_f_21 :: Chunk
c256_f_21 = fc256 (Just (T.ColorNumber 21))

c256_f_22 :: Chunk
c256_f_22 = fc256 (Just (T.ColorNumber 22))

c256_f_23 :: Chunk
c256_f_23 = fc256 (Just (T.ColorNumber 23))

c256_f_24 :: Chunk
c256_f_24 = fc256 (Just (T.ColorNumber 24))

c256_f_25 :: Chunk
c256_f_25 = fc256 (Just (T.ColorNumber 25))

c256_f_26 :: Chunk
c256_f_26 = fc256 (Just (T.ColorNumber 26))

c256_f_27 :: Chunk
c256_f_27 = fc256 (Just (T.ColorNumber 27))

c256_f_28 :: Chunk
c256_f_28 = fc256 (Just (T.ColorNumber 28))

c256_f_29 :: Chunk
c256_f_29 = fc256 (Just (T.ColorNumber 29))

c256_f_30 :: Chunk
c256_f_30 = fc256 (Just (T.ColorNumber 30))

c256_f_31 :: Chunk
c256_f_31 = fc256 (Just (T.ColorNumber 31))

c256_f_32 :: Chunk
c256_f_32 = fc256 (Just (T.ColorNumber 32))

c256_f_33 :: Chunk
c256_f_33 = fc256 (Just (T.ColorNumber 33))

c256_f_34 :: Chunk
c256_f_34 = fc256 (Just (T.ColorNumber 34))

c256_f_35 :: Chunk
c256_f_35 = fc256 (Just (T.ColorNumber 35))

c256_f_36 :: Chunk
c256_f_36 = fc256 (Just (T.ColorNumber 36))

c256_f_37 :: Chunk
c256_f_37 = fc256 (Just (T.ColorNumber 37))

c256_f_38 :: Chunk
c256_f_38 = fc256 (Just (T.ColorNumber 38))

c256_f_39 :: Chunk
c256_f_39 = fc256 (Just (T.ColorNumber 39))

c256_f_40 :: Chunk
c256_f_40 = fc256 (Just (T.ColorNumber 40))

c256_f_41 :: Chunk
c256_f_41 = fc256 (Just (T.ColorNumber 41))

c256_f_42 :: Chunk
c256_f_42 = fc256 (Just (T.ColorNumber 42))

c256_f_43 :: Chunk
c256_f_43 = fc256 (Just (T.ColorNumber 43))

c256_f_44 :: Chunk
c256_f_44 = fc256 (Just (T.ColorNumber 44))

c256_f_45 :: Chunk
c256_f_45 = fc256 (Just (T.ColorNumber 45))

c256_f_46 :: Chunk
c256_f_46 = fc256 (Just (T.ColorNumber 46))

c256_f_47 :: Chunk
c256_f_47 = fc256 (Just (T.ColorNumber 47))

c256_f_48 :: Chunk
c256_f_48 = fc256 (Just (T.ColorNumber 48))

c256_f_49 :: Chunk
c256_f_49 = fc256 (Just (T.ColorNumber 49))

c256_f_50 :: Chunk
c256_f_50 = fc256 (Just (T.ColorNumber 50))

c256_f_51 :: Chunk
c256_f_51 = fc256 (Just (T.ColorNumber 51))

c256_f_52 :: Chunk
c256_f_52 = fc256 (Just (T.ColorNumber 52))

c256_f_53 :: Chunk
c256_f_53 = fc256 (Just (T.ColorNumber 53))

c256_f_54 :: Chunk
c256_f_54 = fc256 (Just (T.ColorNumber 54))

c256_f_55 :: Chunk
c256_f_55 = fc256 (Just (T.ColorNumber 55))

c256_f_56 :: Chunk
c256_f_56 = fc256 (Just (T.ColorNumber 56))

c256_f_57 :: Chunk
c256_f_57 = fc256 (Just (T.ColorNumber 57))

c256_f_58 :: Chunk
c256_f_58 = fc256 (Just (T.ColorNumber 58))

c256_f_59 :: Chunk
c256_f_59 = fc256 (Just (T.ColorNumber 59))

c256_f_60 :: Chunk
c256_f_60 = fc256 (Just (T.ColorNumber 60))

c256_f_61 :: Chunk
c256_f_61 = fc256 (Just (T.ColorNumber 61))

c256_f_62 :: Chunk
c256_f_62 = fc256 (Just (T.ColorNumber 62))

c256_f_63 :: Chunk
c256_f_63 = fc256 (Just (T.ColorNumber 63))

c256_f_64 :: Chunk
c256_f_64 = fc256 (Just (T.ColorNumber 64))

c256_f_65 :: Chunk
c256_f_65 = fc256 (Just (T.ColorNumber 65))

c256_f_66 :: Chunk
c256_f_66 = fc256 (Just (T.ColorNumber 66))

c256_f_67 :: Chunk
c256_f_67 = fc256 (Just (T.ColorNumber 67))

c256_f_68 :: Chunk
c256_f_68 = fc256 (Just (T.ColorNumber 68))

c256_f_69 :: Chunk
c256_f_69 = fc256 (Just (T.ColorNumber 69))

c256_f_70 :: Chunk
c256_f_70 = fc256 (Just (T.ColorNumber 70))

c256_f_71 :: Chunk
c256_f_71 = fc256 (Just (T.ColorNumber 71))

c256_f_72 :: Chunk
c256_f_72 = fc256 (Just (T.ColorNumber 72))

c256_f_73 :: Chunk
c256_f_73 = fc256 (Just (T.ColorNumber 73))

c256_f_74 :: Chunk
c256_f_74 = fc256 (Just (T.ColorNumber 74))

c256_f_75 :: Chunk
c256_f_75 = fc256 (Just (T.ColorNumber 75))

c256_f_76 :: Chunk
c256_f_76 = fc256 (Just (T.ColorNumber 76))

c256_f_77 :: Chunk
c256_f_77 = fc256 (Just (T.ColorNumber 77))

c256_f_78 :: Chunk
c256_f_78 = fc256 (Just (T.ColorNumber 78))

c256_f_79 :: Chunk
c256_f_79 = fc256 (Just (T.ColorNumber 79))

c256_f_80 :: Chunk
c256_f_80 = fc256 (Just (T.ColorNumber 80))

c256_f_81 :: Chunk
c256_f_81 = fc256 (Just (T.ColorNumber 81))

c256_f_82 :: Chunk
c256_f_82 = fc256 (Just (T.ColorNumber 82))

c256_f_83 :: Chunk
c256_f_83 = fc256 (Just (T.ColorNumber 83))

c256_f_84 :: Chunk
c256_f_84 = fc256 (Just (T.ColorNumber 84))

c256_f_85 :: Chunk
c256_f_85 = fc256 (Just (T.ColorNumber 85))

c256_f_86 :: Chunk
c256_f_86 = fc256 (Just (T.ColorNumber 86))

c256_f_87 :: Chunk
c256_f_87 = fc256 (Just (T.ColorNumber 87))

c256_f_88 :: Chunk
c256_f_88 = fc256 (Just (T.ColorNumber 88))

c256_f_89 :: Chunk
c256_f_89 = fc256 (Just (T.ColorNumber 89))

c256_f_90 :: Chunk
c256_f_90 = fc256 (Just (T.ColorNumber 90))

c256_f_91 :: Chunk
c256_f_91 = fc256 (Just (T.ColorNumber 91))

c256_f_92 :: Chunk
c256_f_92 = fc256 (Just (T.ColorNumber 92))

c256_f_93 :: Chunk
c256_f_93 = fc256 (Just (T.ColorNumber 93))

c256_f_94 :: Chunk
c256_f_94 = fc256 (Just (T.ColorNumber 94))

c256_f_95 :: Chunk
c256_f_95 = fc256 (Just (T.ColorNumber 95))

c256_f_96 :: Chunk
c256_f_96 = fc256 (Just (T.ColorNumber 96))

c256_f_97 :: Chunk
c256_f_97 = fc256 (Just (T.ColorNumber 97))

c256_f_98 :: Chunk
c256_f_98 = fc256 (Just (T.ColorNumber 98))

c256_f_99 :: Chunk
c256_f_99 = fc256 (Just (T.ColorNumber 99))

c256_f_100 :: Chunk
c256_f_100 = fc256 (Just (T.ColorNumber 100))

c256_f_101 :: Chunk
c256_f_101 = fc256 (Just (T.ColorNumber 101))

c256_f_102 :: Chunk
c256_f_102 = fc256 (Just (T.ColorNumber 102))

c256_f_103 :: Chunk
c256_f_103 = fc256 (Just (T.ColorNumber 103))

c256_f_104 :: Chunk
c256_f_104 = fc256 (Just (T.ColorNumber 104))

c256_f_105 :: Chunk
c256_f_105 = fc256 (Just (T.ColorNumber 105))

c256_f_106 :: Chunk
c256_f_106 = fc256 (Just (T.ColorNumber 106))

c256_f_107 :: Chunk
c256_f_107 = fc256 (Just (T.ColorNumber 107))

c256_f_108 :: Chunk
c256_f_108 = fc256 (Just (T.ColorNumber 108))

c256_f_109 :: Chunk
c256_f_109 = fc256 (Just (T.ColorNumber 109))

c256_f_110 :: Chunk
c256_f_110 = fc256 (Just (T.ColorNumber 110))

c256_f_111 :: Chunk
c256_f_111 = fc256 (Just (T.ColorNumber 111))

c256_f_112 :: Chunk
c256_f_112 = fc256 (Just (T.ColorNumber 112))

c256_f_113 :: Chunk
c256_f_113 = fc256 (Just (T.ColorNumber 113))

c256_f_114 :: Chunk
c256_f_114 = fc256 (Just (T.ColorNumber 114))

c256_f_115 :: Chunk
c256_f_115 = fc256 (Just (T.ColorNumber 115))

c256_f_116 :: Chunk
c256_f_116 = fc256 (Just (T.ColorNumber 116))

c256_f_117 :: Chunk
c256_f_117 = fc256 (Just (T.ColorNumber 117))

c256_f_118 :: Chunk
c256_f_118 = fc256 (Just (T.ColorNumber 118))

c256_f_119 :: Chunk
c256_f_119 = fc256 (Just (T.ColorNumber 119))

c256_f_120 :: Chunk
c256_f_120 = fc256 (Just (T.ColorNumber 120))

c256_f_121 :: Chunk
c256_f_121 = fc256 (Just (T.ColorNumber 121))

c256_f_122 :: Chunk
c256_f_122 = fc256 (Just (T.ColorNumber 122))

c256_f_123 :: Chunk
c256_f_123 = fc256 (Just (T.ColorNumber 123))

c256_f_124 :: Chunk
c256_f_124 = fc256 (Just (T.ColorNumber 124))

c256_f_125 :: Chunk
c256_f_125 = fc256 (Just (T.ColorNumber 125))

c256_f_126 :: Chunk
c256_f_126 = fc256 (Just (T.ColorNumber 126))

c256_f_127 :: Chunk
c256_f_127 = fc256 (Just (T.ColorNumber 127))

c256_f_128 :: Chunk
c256_f_128 = fc256 (Just (T.ColorNumber 128))

c256_f_129 :: Chunk
c256_f_129 = fc256 (Just (T.ColorNumber 129))

c256_f_130 :: Chunk
c256_f_130 = fc256 (Just (T.ColorNumber 130))

c256_f_131 :: Chunk
c256_f_131 = fc256 (Just (T.ColorNumber 131))

c256_f_132 :: Chunk
c256_f_132 = fc256 (Just (T.ColorNumber 132))

c256_f_133 :: Chunk
c256_f_133 = fc256 (Just (T.ColorNumber 133))

c256_f_134 :: Chunk
c256_f_134 = fc256 (Just (T.ColorNumber 134))

c256_f_135 :: Chunk
c256_f_135 = fc256 (Just (T.ColorNumber 135))

c256_f_136 :: Chunk
c256_f_136 = fc256 (Just (T.ColorNumber 136))

c256_f_137 :: Chunk
c256_f_137 = fc256 (Just (T.ColorNumber 137))

c256_f_138 :: Chunk
c256_f_138 = fc256 (Just (T.ColorNumber 138))

c256_f_139 :: Chunk
c256_f_139 = fc256 (Just (T.ColorNumber 139))

c256_f_140 :: Chunk
c256_f_140 = fc256 (Just (T.ColorNumber 140))

c256_f_141 :: Chunk
c256_f_141 = fc256 (Just (T.ColorNumber 141))

c256_f_142 :: Chunk
c256_f_142 = fc256 (Just (T.ColorNumber 142))

c256_f_143 :: Chunk
c256_f_143 = fc256 (Just (T.ColorNumber 143))

c256_f_144 :: Chunk
c256_f_144 = fc256 (Just (T.ColorNumber 144))

c256_f_145 :: Chunk
c256_f_145 = fc256 (Just (T.ColorNumber 145))

c256_f_146 :: Chunk
c256_f_146 = fc256 (Just (T.ColorNumber 146))

c256_f_147 :: Chunk
c256_f_147 = fc256 (Just (T.ColorNumber 147))

c256_f_148 :: Chunk
c256_f_148 = fc256 (Just (T.ColorNumber 148))

c256_f_149 :: Chunk
c256_f_149 = fc256 (Just (T.ColorNumber 149))

c256_f_150 :: Chunk
c256_f_150 = fc256 (Just (T.ColorNumber 150))

c256_f_151 :: Chunk
c256_f_151 = fc256 (Just (T.ColorNumber 151))

c256_f_152 :: Chunk
c256_f_152 = fc256 (Just (T.ColorNumber 152))

c256_f_153 :: Chunk
c256_f_153 = fc256 (Just (T.ColorNumber 153))

c256_f_154 :: Chunk
c256_f_154 = fc256 (Just (T.ColorNumber 154))

c256_f_155 :: Chunk
c256_f_155 = fc256 (Just (T.ColorNumber 155))

c256_f_156 :: Chunk
c256_f_156 = fc256 (Just (T.ColorNumber 156))

c256_f_157 :: Chunk
c256_f_157 = fc256 (Just (T.ColorNumber 157))

c256_f_158 :: Chunk
c256_f_158 = fc256 (Just (T.ColorNumber 158))

c256_f_159 :: Chunk
c256_f_159 = fc256 (Just (T.ColorNumber 159))

c256_f_160 :: Chunk
c256_f_160 = fc256 (Just (T.ColorNumber 160))

c256_f_161 :: Chunk
c256_f_161 = fc256 (Just (T.ColorNumber 161))

c256_f_162 :: Chunk
c256_f_162 = fc256 (Just (T.ColorNumber 162))

c256_f_163 :: Chunk
c256_f_163 = fc256 (Just (T.ColorNumber 163))

c256_f_164 :: Chunk
c256_f_164 = fc256 (Just (T.ColorNumber 164))

c256_f_165 :: Chunk
c256_f_165 = fc256 (Just (T.ColorNumber 165))

c256_f_166 :: Chunk
c256_f_166 = fc256 (Just (T.ColorNumber 166))

c256_f_167 :: Chunk
c256_f_167 = fc256 (Just (T.ColorNumber 167))

c256_f_168 :: Chunk
c256_f_168 = fc256 (Just (T.ColorNumber 168))

c256_f_169 :: Chunk
c256_f_169 = fc256 (Just (T.ColorNumber 169))

c256_f_170 :: Chunk
c256_f_170 = fc256 (Just (T.ColorNumber 170))

c256_f_171 :: Chunk
c256_f_171 = fc256 (Just (T.ColorNumber 171))

c256_f_172 :: Chunk
c256_f_172 = fc256 (Just (T.ColorNumber 172))

c256_f_173 :: Chunk
c256_f_173 = fc256 (Just (T.ColorNumber 173))

c256_f_174 :: Chunk
c256_f_174 = fc256 (Just (T.ColorNumber 174))

c256_f_175 :: Chunk
c256_f_175 = fc256 (Just (T.ColorNumber 175))

c256_f_176 :: Chunk
c256_f_176 = fc256 (Just (T.ColorNumber 176))

c256_f_177 :: Chunk
c256_f_177 = fc256 (Just (T.ColorNumber 177))

c256_f_178 :: Chunk
c256_f_178 = fc256 (Just (T.ColorNumber 178))

c256_f_179 :: Chunk
c256_f_179 = fc256 (Just (T.ColorNumber 179))

c256_f_180 :: Chunk
c256_f_180 = fc256 (Just (T.ColorNumber 180))

c256_f_181 :: Chunk
c256_f_181 = fc256 (Just (T.ColorNumber 181))

c256_f_182 :: Chunk
c256_f_182 = fc256 (Just (T.ColorNumber 182))

c256_f_183 :: Chunk
c256_f_183 = fc256 (Just (T.ColorNumber 183))

c256_f_184 :: Chunk
c256_f_184 = fc256 (Just (T.ColorNumber 184))

c256_f_185 :: Chunk
c256_f_185 = fc256 (Just (T.ColorNumber 185))

c256_f_186 :: Chunk
c256_f_186 = fc256 (Just (T.ColorNumber 186))

c256_f_187 :: Chunk
c256_f_187 = fc256 (Just (T.ColorNumber 187))

c256_f_188 :: Chunk
c256_f_188 = fc256 (Just (T.ColorNumber 188))

c256_f_189 :: Chunk
c256_f_189 = fc256 (Just (T.ColorNumber 189))

c256_f_190 :: Chunk
c256_f_190 = fc256 (Just (T.ColorNumber 190))

c256_f_191 :: Chunk
c256_f_191 = fc256 (Just (T.ColorNumber 191))

c256_f_192 :: Chunk
c256_f_192 = fc256 (Just (T.ColorNumber 192))

c256_f_193 :: Chunk
c256_f_193 = fc256 (Just (T.ColorNumber 193))

c256_f_194 :: Chunk
c256_f_194 = fc256 (Just (T.ColorNumber 194))

c256_f_195 :: Chunk
c256_f_195 = fc256 (Just (T.ColorNumber 195))

c256_f_196 :: Chunk
c256_f_196 = fc256 (Just (T.ColorNumber 196))

c256_f_197 :: Chunk
c256_f_197 = fc256 (Just (T.ColorNumber 197))

c256_f_198 :: Chunk
c256_f_198 = fc256 (Just (T.ColorNumber 198))

c256_f_199 :: Chunk
c256_f_199 = fc256 (Just (T.ColorNumber 199))

c256_f_200 :: Chunk
c256_f_200 = fc256 (Just (T.ColorNumber 200))

c256_f_201 :: Chunk
c256_f_201 = fc256 (Just (T.ColorNumber 201))

c256_f_202 :: Chunk
c256_f_202 = fc256 (Just (T.ColorNumber 202))

c256_f_203 :: Chunk
c256_f_203 = fc256 (Just (T.ColorNumber 203))

c256_f_204 :: Chunk
c256_f_204 = fc256 (Just (T.ColorNumber 204))

c256_f_205 :: Chunk
c256_f_205 = fc256 (Just (T.ColorNumber 205))

c256_f_206 :: Chunk
c256_f_206 = fc256 (Just (T.ColorNumber 206))

c256_f_207 :: Chunk
c256_f_207 = fc256 (Just (T.ColorNumber 207))

c256_f_208 :: Chunk
c256_f_208 = fc256 (Just (T.ColorNumber 208))

c256_f_209 :: Chunk
c256_f_209 = fc256 (Just (T.ColorNumber 209))

c256_f_210 :: Chunk
c256_f_210 = fc256 (Just (T.ColorNumber 210))

c256_f_211 :: Chunk
c256_f_211 = fc256 (Just (T.ColorNumber 211))

c256_f_212 :: Chunk
c256_f_212 = fc256 (Just (T.ColorNumber 212))

c256_f_213 :: Chunk
c256_f_213 = fc256 (Just (T.ColorNumber 213))

c256_f_214 :: Chunk
c256_f_214 = fc256 (Just (T.ColorNumber 214))

c256_f_215 :: Chunk
c256_f_215 = fc256 (Just (T.ColorNumber 215))

c256_f_216 :: Chunk
c256_f_216 = fc256 (Just (T.ColorNumber 216))

c256_f_217 :: Chunk
c256_f_217 = fc256 (Just (T.ColorNumber 217))

c256_f_218 :: Chunk
c256_f_218 = fc256 (Just (T.ColorNumber 218))

c256_f_219 :: Chunk
c256_f_219 = fc256 (Just (T.ColorNumber 219))

c256_f_220 :: Chunk
c256_f_220 = fc256 (Just (T.ColorNumber 220))

c256_f_221 :: Chunk
c256_f_221 = fc256 (Just (T.ColorNumber 221))

c256_f_222 :: Chunk
c256_f_222 = fc256 (Just (T.ColorNumber 222))

c256_f_223 :: Chunk
c256_f_223 = fc256 (Just (T.ColorNumber 223))

c256_f_224 :: Chunk
c256_f_224 = fc256 (Just (T.ColorNumber 224))

c256_f_225 :: Chunk
c256_f_225 = fc256 (Just (T.ColorNumber 225))

c256_f_226 :: Chunk
c256_f_226 = fc256 (Just (T.ColorNumber 226))

c256_f_227 :: Chunk
c256_f_227 = fc256 (Just (T.ColorNumber 227))

c256_f_228 :: Chunk
c256_f_228 = fc256 (Just (T.ColorNumber 228))

c256_f_229 :: Chunk
c256_f_229 = fc256 (Just (T.ColorNumber 229))

c256_f_230 :: Chunk
c256_f_230 = fc256 (Just (T.ColorNumber 230))

c256_f_231 :: Chunk
c256_f_231 = fc256 (Just (T.ColorNumber 231))

c256_f_232 :: Chunk
c256_f_232 = fc256 (Just (T.ColorNumber 232))

c256_f_233 :: Chunk
c256_f_233 = fc256 (Just (T.ColorNumber 233))

c256_f_234 :: Chunk
c256_f_234 = fc256 (Just (T.ColorNumber 234))

c256_f_235 :: Chunk
c256_f_235 = fc256 (Just (T.ColorNumber 235))

c256_f_236 :: Chunk
c256_f_236 = fc256 (Just (T.ColorNumber 236))

c256_f_237 :: Chunk
c256_f_237 = fc256 (Just (T.ColorNumber 237))

c256_f_238 :: Chunk
c256_f_238 = fc256 (Just (T.ColorNumber 238))

c256_f_239 :: Chunk
c256_f_239 = fc256 (Just (T.ColorNumber 239))

c256_f_240 :: Chunk
c256_f_240 = fc256 (Just (T.ColorNumber 240))

c256_f_241 :: Chunk
c256_f_241 = fc256 (Just (T.ColorNumber 241))

c256_f_242 :: Chunk
c256_f_242 = fc256 (Just (T.ColorNumber 242))

c256_f_243 :: Chunk
c256_f_243 = fc256 (Just (T.ColorNumber 243))

c256_f_244 :: Chunk
c256_f_244 = fc256 (Just (T.ColorNumber 244))

c256_f_245 :: Chunk
c256_f_245 = fc256 (Just (T.ColorNumber 245))

c256_f_246 :: Chunk
c256_f_246 = fc256 (Just (T.ColorNumber 246))

c256_f_247 :: Chunk
c256_f_247 = fc256 (Just (T.ColorNumber 247))

c256_f_248 :: Chunk
c256_f_248 = fc256 (Just (T.ColorNumber 248))

c256_f_249 :: Chunk
c256_f_249 = fc256 (Just (T.ColorNumber 249))

c256_f_250 :: Chunk
c256_f_250 = fc256 (Just (T.ColorNumber 250))

c256_f_251 :: Chunk
c256_f_251 = fc256 (Just (T.ColorNumber 251))

c256_f_252 :: Chunk
c256_f_252 = fc256 (Just (T.ColorNumber 252))

c256_f_253 :: Chunk
c256_f_253 = fc256 (Just (T.ColorNumber 253))

c256_f_254 :: Chunk
c256_f_254 = fc256 (Just (T.ColorNumber 254))

c256_f_255 :: Chunk
c256_f_255 = fc256 (Just (T.ColorNumber 255))


bc256 :: Maybe T.Color -> Chunk
bc256 c = x { textSpec = (textSpec x) {
  style256 = (style256 (textSpec x)) {
    background256 = Last (Just c) }}}
  where
    x = mempty

c256_b_default :: Chunk
c256_b_default = bc256 Nothing

c256_b_0 :: Chunk
c256_b_0 = bc256 (Just (T.ColorNumber 0))

c256_b_black :: Chunk
c256_b_black = bc256 (Just (T.ColorNumber 0))

c256_b_1 :: Chunk
c256_b_1 = bc256 (Just (T.ColorNumber 1))

c256_b_red :: Chunk
c256_b_red = bc256 (Just (T.ColorNumber 1))

c256_b_2 :: Chunk
c256_b_2 = bc256 (Just (T.ColorNumber 2))

c256_b_green :: Chunk
c256_b_green = bc256 (Just (T.ColorNumber 2))

c256_b_3 :: Chunk
c256_b_3 = bc256 (Just (T.ColorNumber 3))

c256_b_yellow :: Chunk
c256_b_yellow = bc256 (Just (T.ColorNumber 3))

c256_b_4 :: Chunk
c256_b_4 = bc256 (Just (T.ColorNumber 4))

c256_b_blue :: Chunk
c256_b_blue = bc256 (Just (T.ColorNumber 4))

c256_b_5 :: Chunk
c256_b_5 = bc256 (Just (T.ColorNumber 5))

c256_b_magenta :: Chunk
c256_b_magenta = bc256 (Just (T.ColorNumber 5))

c256_b_6 :: Chunk
c256_b_6 = bc256 (Just (T.ColorNumber 6))

c256_b_cyan :: Chunk
c256_b_cyan = bc256 (Just (T.ColorNumber 6))

c256_b_7 :: Chunk
c256_b_7 = bc256 (Just (T.ColorNumber 7))

c256_b_white :: Chunk
c256_b_white = bc256 (Just (T.ColorNumber 7))

c256_b_8 :: Chunk
c256_b_8 = bc256 (Just (T.ColorNumber 8))

c256_b_grey :: Chunk
c256_b_grey = bc256 (Just (T.ColorNumber 8))

c256_b_9 :: Chunk
c256_b_9 = bc256 (Just (T.ColorNumber 9))

c256_b_red_bright :: Chunk
c256_b_red_bright = bc256 (Just (T.ColorNumber 9))

c256_b_10 :: Chunk
c256_b_10 = bc256 (Just (T.ColorNumber 10))

c256_b_green_bright :: Chunk
c256_b_green_bright = bc256 (Just (T.ColorNumber 10))

c256_b_11 :: Chunk
c256_b_11 = bc256 (Just (T.ColorNumber 11))

c256_b_yellow_bright :: Chunk
c256_b_yellow_bright = bc256 (Just (T.ColorNumber 11))

c256_b_12 :: Chunk
c256_b_12 = bc256 (Just (T.ColorNumber 12))

c256_b_blue_bright :: Chunk
c256_b_blue_bright = bc256 (Just (T.ColorNumber 12))

c256_b_13 :: Chunk
c256_b_13 = bc256 (Just (T.ColorNumber 13))

c256_b_magenta_bright :: Chunk
c256_b_magenta_bright = bc256 (Just (T.ColorNumber 13))

c256_b_14 :: Chunk
c256_b_14 = bc256 (Just (T.ColorNumber 14))

c256_b_cyan_bright :: Chunk
c256_b_cyan_bright = bc256 (Just (T.ColorNumber 14))

c256_b_15 :: Chunk
c256_b_15 = bc256 (Just (T.ColorNumber 15))

c256_b_white_bright :: Chunk
c256_b_white_bright = bc256 (Just (T.ColorNumber 15))

c256_b_16 :: Chunk
c256_b_16 = bc256 (Just (T.ColorNumber 16))

c256_b_17 :: Chunk
c256_b_17 = bc256 (Just (T.ColorNumber 17))

c256_b_18 :: Chunk
c256_b_18 = bc256 (Just (T.ColorNumber 18))

c256_b_19 :: Chunk
c256_b_19 = bc256 (Just (T.ColorNumber 19))

c256_b_20 :: Chunk
c256_b_20 = bc256 (Just (T.ColorNumber 20))

c256_b_21 :: Chunk
c256_b_21 = bc256 (Just (T.ColorNumber 21))

c256_b_22 :: Chunk
c256_b_22 = bc256 (Just (T.ColorNumber 22))

c256_b_23 :: Chunk
c256_b_23 = bc256 (Just (T.ColorNumber 23))

c256_b_24 :: Chunk
c256_b_24 = bc256 (Just (T.ColorNumber 24))

c256_b_25 :: Chunk
c256_b_25 = bc256 (Just (T.ColorNumber 25))

c256_b_26 :: Chunk
c256_b_26 = bc256 (Just (T.ColorNumber 26))

c256_b_27 :: Chunk
c256_b_27 = bc256 (Just (T.ColorNumber 27))

c256_b_28 :: Chunk
c256_b_28 = bc256 (Just (T.ColorNumber 28))

c256_b_29 :: Chunk
c256_b_29 = bc256 (Just (T.ColorNumber 29))

c256_b_30 :: Chunk
c256_b_30 = bc256 (Just (T.ColorNumber 30))

c256_b_31 :: Chunk
c256_b_31 = bc256 (Just (T.ColorNumber 31))

c256_b_32 :: Chunk
c256_b_32 = bc256 (Just (T.ColorNumber 32))

c256_b_33 :: Chunk
c256_b_33 = bc256 (Just (T.ColorNumber 33))

c256_b_34 :: Chunk
c256_b_34 = bc256 (Just (T.ColorNumber 34))

c256_b_35 :: Chunk
c256_b_35 = bc256 (Just (T.ColorNumber 35))

c256_b_36 :: Chunk
c256_b_36 = bc256 (Just (T.ColorNumber 36))

c256_b_37 :: Chunk
c256_b_37 = bc256 (Just (T.ColorNumber 37))

c256_b_38 :: Chunk
c256_b_38 = bc256 (Just (T.ColorNumber 38))

c256_b_39 :: Chunk
c256_b_39 = bc256 (Just (T.ColorNumber 39))

c256_b_40 :: Chunk
c256_b_40 = bc256 (Just (T.ColorNumber 40))

c256_b_41 :: Chunk
c256_b_41 = bc256 (Just (T.ColorNumber 41))

c256_b_42 :: Chunk
c256_b_42 = bc256 (Just (T.ColorNumber 42))

c256_b_43 :: Chunk
c256_b_43 = bc256 (Just (T.ColorNumber 43))

c256_b_44 :: Chunk
c256_b_44 = bc256 (Just (T.ColorNumber 44))

c256_b_45 :: Chunk
c256_b_45 = bc256 (Just (T.ColorNumber 45))

c256_b_46 :: Chunk
c256_b_46 = bc256 (Just (T.ColorNumber 46))

c256_b_47 :: Chunk
c256_b_47 = bc256 (Just (T.ColorNumber 47))

c256_b_48 :: Chunk
c256_b_48 = bc256 (Just (T.ColorNumber 48))

c256_b_49 :: Chunk
c256_b_49 = bc256 (Just (T.ColorNumber 49))

c256_b_50 :: Chunk
c256_b_50 = bc256 (Just (T.ColorNumber 50))

c256_b_51 :: Chunk
c256_b_51 = bc256 (Just (T.ColorNumber 51))

c256_b_52 :: Chunk
c256_b_52 = bc256 (Just (T.ColorNumber 52))

c256_b_53 :: Chunk
c256_b_53 = bc256 (Just (T.ColorNumber 53))

c256_b_54 :: Chunk
c256_b_54 = bc256 (Just (T.ColorNumber 54))

c256_b_55 :: Chunk
c256_b_55 = bc256 (Just (T.ColorNumber 55))

c256_b_56 :: Chunk
c256_b_56 = bc256 (Just (T.ColorNumber 56))

c256_b_57 :: Chunk
c256_b_57 = bc256 (Just (T.ColorNumber 57))

c256_b_58 :: Chunk
c256_b_58 = bc256 (Just (T.ColorNumber 58))

c256_b_59 :: Chunk
c256_b_59 = bc256 (Just (T.ColorNumber 59))

c256_b_60 :: Chunk
c256_b_60 = bc256 (Just (T.ColorNumber 60))

c256_b_61 :: Chunk
c256_b_61 = bc256 (Just (T.ColorNumber 61))

c256_b_62 :: Chunk
c256_b_62 = bc256 (Just (T.ColorNumber 62))

c256_b_63 :: Chunk
c256_b_63 = bc256 (Just (T.ColorNumber 63))

c256_b_64 :: Chunk
c256_b_64 = bc256 (Just (T.ColorNumber 64))

c256_b_65 :: Chunk
c256_b_65 = bc256 (Just (T.ColorNumber 65))

c256_b_66 :: Chunk
c256_b_66 = bc256 (Just (T.ColorNumber 66))

c256_b_67 :: Chunk
c256_b_67 = bc256 (Just (T.ColorNumber 67))

c256_b_68 :: Chunk
c256_b_68 = bc256 (Just (T.ColorNumber 68))

c256_b_69 :: Chunk
c256_b_69 = bc256 (Just (T.ColorNumber 69))

c256_b_70 :: Chunk
c256_b_70 = bc256 (Just (T.ColorNumber 70))

c256_b_71 :: Chunk
c256_b_71 = bc256 (Just (T.ColorNumber 71))

c256_b_72 :: Chunk
c256_b_72 = bc256 (Just (T.ColorNumber 72))

c256_b_73 :: Chunk
c256_b_73 = bc256 (Just (T.ColorNumber 73))

c256_b_74 :: Chunk
c256_b_74 = bc256 (Just (T.ColorNumber 74))

c256_b_75 :: Chunk
c256_b_75 = bc256 (Just (T.ColorNumber 75))

c256_b_76 :: Chunk
c256_b_76 = bc256 (Just (T.ColorNumber 76))

c256_b_77 :: Chunk
c256_b_77 = bc256 (Just (T.ColorNumber 77))

c256_b_78 :: Chunk
c256_b_78 = bc256 (Just (T.ColorNumber 78))

c256_b_79 :: Chunk
c256_b_79 = bc256 (Just (T.ColorNumber 79))

c256_b_80 :: Chunk
c256_b_80 = bc256 (Just (T.ColorNumber 80))

c256_b_81 :: Chunk
c256_b_81 = bc256 (Just (T.ColorNumber 81))

c256_b_82 :: Chunk
c256_b_82 = bc256 (Just (T.ColorNumber 82))

c256_b_83 :: Chunk
c256_b_83 = bc256 (Just (T.ColorNumber 83))

c256_b_84 :: Chunk
c256_b_84 = bc256 (Just (T.ColorNumber 84))

c256_b_85 :: Chunk
c256_b_85 = bc256 (Just (T.ColorNumber 85))

c256_b_86 :: Chunk
c256_b_86 = bc256 (Just (T.ColorNumber 86))

c256_b_87 :: Chunk
c256_b_87 = bc256 (Just (T.ColorNumber 87))

c256_b_88 :: Chunk
c256_b_88 = bc256 (Just (T.ColorNumber 88))

c256_b_89 :: Chunk
c256_b_89 = bc256 (Just (T.ColorNumber 89))

c256_b_90 :: Chunk
c256_b_90 = bc256 (Just (T.ColorNumber 90))

c256_b_91 :: Chunk
c256_b_91 = bc256 (Just (T.ColorNumber 91))

c256_b_92 :: Chunk
c256_b_92 = bc256 (Just (T.ColorNumber 92))

c256_b_93 :: Chunk
c256_b_93 = bc256 (Just (T.ColorNumber 93))

c256_b_94 :: Chunk
c256_b_94 = bc256 (Just (T.ColorNumber 94))

c256_b_95 :: Chunk
c256_b_95 = bc256 (Just (T.ColorNumber 95))

c256_b_96 :: Chunk
c256_b_96 = bc256 (Just (T.ColorNumber 96))

c256_b_97 :: Chunk
c256_b_97 = bc256 (Just (T.ColorNumber 97))

c256_b_98 :: Chunk
c256_b_98 = bc256 (Just (T.ColorNumber 98))

c256_b_99 :: Chunk
c256_b_99 = bc256 (Just (T.ColorNumber 99))

c256_b_100 :: Chunk
c256_b_100 = bc256 (Just (T.ColorNumber 100))

c256_b_101 :: Chunk
c256_b_101 = bc256 (Just (T.ColorNumber 101))

c256_b_102 :: Chunk
c256_b_102 = bc256 (Just (T.ColorNumber 102))

c256_b_103 :: Chunk
c256_b_103 = bc256 (Just (T.ColorNumber 103))

c256_b_104 :: Chunk
c256_b_104 = bc256 (Just (T.ColorNumber 104))

c256_b_105 :: Chunk
c256_b_105 = bc256 (Just (T.ColorNumber 105))

c256_b_106 :: Chunk
c256_b_106 = bc256 (Just (T.ColorNumber 106))

c256_b_107 :: Chunk
c256_b_107 = bc256 (Just (T.ColorNumber 107))

c256_b_108 :: Chunk
c256_b_108 = bc256 (Just (T.ColorNumber 108))

c256_b_109 :: Chunk
c256_b_109 = bc256 (Just (T.ColorNumber 109))

c256_b_110 :: Chunk
c256_b_110 = bc256 (Just (T.ColorNumber 110))

c256_b_111 :: Chunk
c256_b_111 = bc256 (Just (T.ColorNumber 111))

c256_b_112 :: Chunk
c256_b_112 = bc256 (Just (T.ColorNumber 112))

c256_b_113 :: Chunk
c256_b_113 = bc256 (Just (T.ColorNumber 113))

c256_b_114 :: Chunk
c256_b_114 = bc256 (Just (T.ColorNumber 114))

c256_b_115 :: Chunk
c256_b_115 = bc256 (Just (T.ColorNumber 115))

c256_b_116 :: Chunk
c256_b_116 = bc256 (Just (T.ColorNumber 116))

c256_b_117 :: Chunk
c256_b_117 = bc256 (Just (T.ColorNumber 117))

c256_b_118 :: Chunk
c256_b_118 = bc256 (Just (T.ColorNumber 118))

c256_b_119 :: Chunk
c256_b_119 = bc256 (Just (T.ColorNumber 119))

c256_b_120 :: Chunk
c256_b_120 = bc256 (Just (T.ColorNumber 120))

c256_b_121 :: Chunk
c256_b_121 = bc256 (Just (T.ColorNumber 121))

c256_b_122 :: Chunk
c256_b_122 = bc256 (Just (T.ColorNumber 122))

c256_b_123 :: Chunk
c256_b_123 = bc256 (Just (T.ColorNumber 123))

c256_b_124 :: Chunk
c256_b_124 = bc256 (Just (T.ColorNumber 124))

c256_b_125 :: Chunk
c256_b_125 = bc256 (Just (T.ColorNumber 125))

c256_b_126 :: Chunk
c256_b_126 = bc256 (Just (T.ColorNumber 126))

c256_b_127 :: Chunk
c256_b_127 = bc256 (Just (T.ColorNumber 127))

c256_b_128 :: Chunk
c256_b_128 = bc256 (Just (T.ColorNumber 128))

c256_b_129 :: Chunk
c256_b_129 = bc256 (Just (T.ColorNumber 129))

c256_b_130 :: Chunk
c256_b_130 = bc256 (Just (T.ColorNumber 130))

c256_b_131 :: Chunk
c256_b_131 = bc256 (Just (T.ColorNumber 131))

c256_b_132 :: Chunk
c256_b_132 = bc256 (Just (T.ColorNumber 132))

c256_b_133 :: Chunk
c256_b_133 = bc256 (Just (T.ColorNumber 133))

c256_b_134 :: Chunk
c256_b_134 = bc256 (Just (T.ColorNumber 134))

c256_b_135 :: Chunk
c256_b_135 = bc256 (Just (T.ColorNumber 135))

c256_b_136 :: Chunk
c256_b_136 = bc256 (Just (T.ColorNumber 136))

c256_b_137 :: Chunk
c256_b_137 = bc256 (Just (T.ColorNumber 137))

c256_b_138 :: Chunk
c256_b_138 = bc256 (Just (T.ColorNumber 138))

c256_b_139 :: Chunk
c256_b_139 = bc256 (Just (T.ColorNumber 139))

c256_b_140 :: Chunk
c256_b_140 = bc256 (Just (T.ColorNumber 140))

c256_b_141 :: Chunk
c256_b_141 = bc256 (Just (T.ColorNumber 141))

c256_b_142 :: Chunk
c256_b_142 = bc256 (Just (T.ColorNumber 142))

c256_b_143 :: Chunk
c256_b_143 = bc256 (Just (T.ColorNumber 143))

c256_b_144 :: Chunk
c256_b_144 = bc256 (Just (T.ColorNumber 144))

c256_b_145 :: Chunk
c256_b_145 = bc256 (Just (T.ColorNumber 145))

c256_b_146 :: Chunk
c256_b_146 = bc256 (Just (T.ColorNumber 146))

c256_b_147 :: Chunk
c256_b_147 = bc256 (Just (T.ColorNumber 147))

c256_b_148 :: Chunk
c256_b_148 = bc256 (Just (T.ColorNumber 148))

c256_b_149 :: Chunk
c256_b_149 = bc256 (Just (T.ColorNumber 149))

c256_b_150 :: Chunk
c256_b_150 = bc256 (Just (T.ColorNumber 150))

c256_b_151 :: Chunk
c256_b_151 = bc256 (Just (T.ColorNumber 151))

c256_b_152 :: Chunk
c256_b_152 = bc256 (Just (T.ColorNumber 152))

c256_b_153 :: Chunk
c256_b_153 = bc256 (Just (T.ColorNumber 153))

c256_b_154 :: Chunk
c256_b_154 = bc256 (Just (T.ColorNumber 154))

c256_b_155 :: Chunk
c256_b_155 = bc256 (Just (T.ColorNumber 155))

c256_b_156 :: Chunk
c256_b_156 = bc256 (Just (T.ColorNumber 156))

c256_b_157 :: Chunk
c256_b_157 = bc256 (Just (T.ColorNumber 157))

c256_b_158 :: Chunk
c256_b_158 = bc256 (Just (T.ColorNumber 158))

c256_b_159 :: Chunk
c256_b_159 = bc256 (Just (T.ColorNumber 159))

c256_b_160 :: Chunk
c256_b_160 = bc256 (Just (T.ColorNumber 160))

c256_b_161 :: Chunk
c256_b_161 = bc256 (Just (T.ColorNumber 161))

c256_b_162 :: Chunk
c256_b_162 = bc256 (Just (T.ColorNumber 162))

c256_b_163 :: Chunk
c256_b_163 = bc256 (Just (T.ColorNumber 163))

c256_b_164 :: Chunk
c256_b_164 = bc256 (Just (T.ColorNumber 164))

c256_b_165 :: Chunk
c256_b_165 = bc256 (Just (T.ColorNumber 165))

c256_b_166 :: Chunk
c256_b_166 = bc256 (Just (T.ColorNumber 166))

c256_b_167 :: Chunk
c256_b_167 = bc256 (Just (T.ColorNumber 167))

c256_b_168 :: Chunk
c256_b_168 = bc256 (Just (T.ColorNumber 168))

c256_b_169 :: Chunk
c256_b_169 = bc256 (Just (T.ColorNumber 169))

c256_b_170 :: Chunk
c256_b_170 = bc256 (Just (T.ColorNumber 170))

c256_b_171 :: Chunk
c256_b_171 = bc256 (Just (T.ColorNumber 171))

c256_b_172 :: Chunk
c256_b_172 = bc256 (Just (T.ColorNumber 172))

c256_b_173 :: Chunk
c256_b_173 = bc256 (Just (T.ColorNumber 173))

c256_b_174 :: Chunk
c256_b_174 = bc256 (Just (T.ColorNumber 174))

c256_b_175 :: Chunk
c256_b_175 = bc256 (Just (T.ColorNumber 175))

c256_b_176 :: Chunk
c256_b_176 = bc256 (Just (T.ColorNumber 176))

c256_b_177 :: Chunk
c256_b_177 = bc256 (Just (T.ColorNumber 177))

c256_b_178 :: Chunk
c256_b_178 = bc256 (Just (T.ColorNumber 178))

c256_b_179 :: Chunk
c256_b_179 = bc256 (Just (T.ColorNumber 179))

c256_b_180 :: Chunk
c256_b_180 = bc256 (Just (T.ColorNumber 180))

c256_b_181 :: Chunk
c256_b_181 = bc256 (Just (T.ColorNumber 181))

c256_b_182 :: Chunk
c256_b_182 = bc256 (Just (T.ColorNumber 182))

c256_b_183 :: Chunk
c256_b_183 = bc256 (Just (T.ColorNumber 183))

c256_b_184 :: Chunk
c256_b_184 = bc256 (Just (T.ColorNumber 184))

c256_b_185 :: Chunk
c256_b_185 = bc256 (Just (T.ColorNumber 185))

c256_b_186 :: Chunk
c256_b_186 = bc256 (Just (T.ColorNumber 186))

c256_b_187 :: Chunk
c256_b_187 = bc256 (Just (T.ColorNumber 187))

c256_b_188 :: Chunk
c256_b_188 = bc256 (Just (T.ColorNumber 188))

c256_b_189 :: Chunk
c256_b_189 = bc256 (Just (T.ColorNumber 189))

c256_b_190 :: Chunk
c256_b_190 = bc256 (Just (T.ColorNumber 190))

c256_b_191 :: Chunk
c256_b_191 = bc256 (Just (T.ColorNumber 191))

c256_b_192 :: Chunk
c256_b_192 = bc256 (Just (T.ColorNumber 192))

c256_b_193 :: Chunk
c256_b_193 = bc256 (Just (T.ColorNumber 193))

c256_b_194 :: Chunk
c256_b_194 = bc256 (Just (T.ColorNumber 194))

c256_b_195 :: Chunk
c256_b_195 = bc256 (Just (T.ColorNumber 195))

c256_b_196 :: Chunk
c256_b_196 = bc256 (Just (T.ColorNumber 196))

c256_b_197 :: Chunk
c256_b_197 = bc256 (Just (T.ColorNumber 197))

c256_b_198 :: Chunk
c256_b_198 = bc256 (Just (T.ColorNumber 198))

c256_b_199 :: Chunk
c256_b_199 = bc256 (Just (T.ColorNumber 199))

c256_b_200 :: Chunk
c256_b_200 = bc256 (Just (T.ColorNumber 200))

c256_b_201 :: Chunk
c256_b_201 = bc256 (Just (T.ColorNumber 201))

c256_b_202 :: Chunk
c256_b_202 = bc256 (Just (T.ColorNumber 202))

c256_b_203 :: Chunk
c256_b_203 = bc256 (Just (T.ColorNumber 203))

c256_b_204 :: Chunk
c256_b_204 = bc256 (Just (T.ColorNumber 204))

c256_b_205 :: Chunk
c256_b_205 = bc256 (Just (T.ColorNumber 205))

c256_b_206 :: Chunk
c256_b_206 = bc256 (Just (T.ColorNumber 206))

c256_b_207 :: Chunk
c256_b_207 = bc256 (Just (T.ColorNumber 207))

c256_b_208 :: Chunk
c256_b_208 = bc256 (Just (T.ColorNumber 208))

c256_b_209 :: Chunk
c256_b_209 = bc256 (Just (T.ColorNumber 209))

c256_b_210 :: Chunk
c256_b_210 = bc256 (Just (T.ColorNumber 210))

c256_b_211 :: Chunk
c256_b_211 = bc256 (Just (T.ColorNumber 211))

c256_b_212 :: Chunk
c256_b_212 = bc256 (Just (T.ColorNumber 212))

c256_b_213 :: Chunk
c256_b_213 = bc256 (Just (T.ColorNumber 213))

c256_b_214 :: Chunk
c256_b_214 = bc256 (Just (T.ColorNumber 214))

c256_b_215 :: Chunk
c256_b_215 = bc256 (Just (T.ColorNumber 215))

c256_b_216 :: Chunk
c256_b_216 = bc256 (Just (T.ColorNumber 216))

c256_b_217 :: Chunk
c256_b_217 = bc256 (Just (T.ColorNumber 217))

c256_b_218 :: Chunk
c256_b_218 = bc256 (Just (T.ColorNumber 218))

c256_b_219 :: Chunk
c256_b_219 = bc256 (Just (T.ColorNumber 219))

c256_b_220 :: Chunk
c256_b_220 = bc256 (Just (T.ColorNumber 220))

c256_b_221 :: Chunk
c256_b_221 = bc256 (Just (T.ColorNumber 221))

c256_b_222 :: Chunk
c256_b_222 = bc256 (Just (T.ColorNumber 222))

c256_b_223 :: Chunk
c256_b_223 = bc256 (Just (T.ColorNumber 223))

c256_b_224 :: Chunk
c256_b_224 = bc256 (Just (T.ColorNumber 224))

c256_b_225 :: Chunk
c256_b_225 = bc256 (Just (T.ColorNumber 225))

c256_b_226 :: Chunk
c256_b_226 = bc256 (Just (T.ColorNumber 226))

c256_b_227 :: Chunk
c256_b_227 = bc256 (Just (T.ColorNumber 227))

c256_b_228 :: Chunk
c256_b_228 = bc256 (Just (T.ColorNumber 228))

c256_b_229 :: Chunk
c256_b_229 = bc256 (Just (T.ColorNumber 229))

c256_b_230 :: Chunk
c256_b_230 = bc256 (Just (T.ColorNumber 230))

c256_b_231 :: Chunk
c256_b_231 = bc256 (Just (T.ColorNumber 231))

c256_b_232 :: Chunk
c256_b_232 = bc256 (Just (T.ColorNumber 232))

c256_b_233 :: Chunk
c256_b_233 = bc256 (Just (T.ColorNumber 233))

c256_b_234 :: Chunk
c256_b_234 = bc256 (Just (T.ColorNumber 234))

c256_b_235 :: Chunk
c256_b_235 = bc256 (Just (T.ColorNumber 235))

c256_b_236 :: Chunk
c256_b_236 = bc256 (Just (T.ColorNumber 236))

c256_b_237 :: Chunk
c256_b_237 = bc256 (Just (T.ColorNumber 237))

c256_b_238 :: Chunk
c256_b_238 = bc256 (Just (T.ColorNumber 238))

c256_b_239 :: Chunk
c256_b_239 = bc256 (Just (T.ColorNumber 239))

c256_b_240 :: Chunk
c256_b_240 = bc256 (Just (T.ColorNumber 240))

c256_b_241 :: Chunk
c256_b_241 = bc256 (Just (T.ColorNumber 241))

c256_b_242 :: Chunk
c256_b_242 = bc256 (Just (T.ColorNumber 242))

c256_b_243 :: Chunk
c256_b_243 = bc256 (Just (T.ColorNumber 243))

c256_b_244 :: Chunk
c256_b_244 = bc256 (Just (T.ColorNumber 244))

c256_b_245 :: Chunk
c256_b_245 = bc256 (Just (T.ColorNumber 245))

c256_b_246 :: Chunk
c256_b_246 = bc256 (Just (T.ColorNumber 246))

c256_b_247 :: Chunk
c256_b_247 = bc256 (Just (T.ColorNumber 247))

c256_b_248 :: Chunk
c256_b_248 = bc256 (Just (T.ColorNumber 248))

c256_b_249 :: Chunk
c256_b_249 = bc256 (Just (T.ColorNumber 249))

c256_b_250 :: Chunk
c256_b_250 = bc256 (Just (T.ColorNumber 250))

c256_b_251 :: Chunk
c256_b_251 = bc256 (Just (T.ColorNumber 251))

c256_b_252 :: Chunk
c256_b_252 = bc256 (Just (T.ColorNumber 252))

c256_b_253 :: Chunk
c256_b_253 = bc256 (Just (T.ColorNumber 253))

c256_b_254 :: Chunk
c256_b_254 = bc256 (Just (T.ColorNumber 254))

c256_b_255 :: Chunk
c256_b_255 = bc256 (Just (T.ColorNumber 255))