rainbow 0.2.0.0 → 0.34.2.2
raw patch · 11 files changed
Files
- LICENSE +1/−1
- README.md +20/−0
- System/Console/Rainbow.hs +0/−3139
- lib/Rainbow.hs +354/−0
- lib/Rainbow/Translate.hs +355/−0
- lib/Rainbow/Types.hs +239/−0
- rainbow.cabal +86/−23
- stack.yaml +32/−0
- tests/Rainbow/QuickCheck.hs +106/−0
- tests/rainbow-instances.hs +10/−0
- tests/rainbow-visual.hs +18/−0
LICENSE view
@@ -1,4 +1,4 @@-Copyright (c) 2013, Omari Norman+Copyright (c) 2013-2019 Omari Norman All rights reserved.
+ README.md view
@@ -0,0 +1,20 @@+# rainbow++rainbow helps you build colorful output for both 8- and 256-color+terminals. It works only on Unix-like operating systems. For more+information, please see the documentation in the main Rainbow+module.++rainbow is on Github:++http://www.github.com/massysett/rainbow++and Hackage:++http://hackage.haskell.org/package/rainbow++and Stackage:++https://www.stackage.org/package/rainbow++rainbow is licensed under the BSD license; see the LICENSE file.
− System/Console/Rainbow.hs
@@ -1,3139 +0,0 @@--- | 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))-
+ lib/Rainbow.hs view
@@ -0,0 +1,354 @@+{-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE DeriveFunctor #-}+{-# LANGUAGE DeriveFoldable #-}+{-# LANGUAGE DeriveTraversable #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RankNTypes #-}++-- | Rainbow handles colors and special effects for text. The basic+-- building block of Rainbow is the 'Y.Chunk'. The 'Y.Chunk' contains+-- both text and formatting information such as colors, bold,+-- underlining, etc. 'Y.Chunk' is an instance of+-- 'Data.String.IsString' so you can create a 'Y.Chunk' using the+-- @OverloadedStrings@ extension. Such a chunk has the given text+-- and has no formatting.+--+-- When printed, each 'Y.Chunk' starts off with a clean slate, so if+-- you want special formatting such as any color, bold, etc, then you+-- must specify it for every 'Y.Chunk'. The appearance of one+-- 'Y.Chunk' does not affect the appearance of the next 'Y.Chunk'.+-- This makes it easy to reason about how a particular 'Y.Chunk' will+-- look.+--+-- Rainbow supports 256-color terminals. 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.+--+-- Here are some basic examples:+--+-- @+-- ghci> import Rainbow+-- ghci> import Data.Function ((&))+-- ghci> :set -XOverloadedStrings+-- ghci> 'T.putChunkLn' $ \"Some blue text\" '&' 'fore' 'blue'+-- ghci> 'T.putChunkLn' $ \"Blue on red background\"+-- '&' 'fore' 'blue' '&' 'back' 'red'+-- ghci> 'T.putChunkLn' $ \"Blue on red, foreground bold\"+-- '&' 'fore' 'blue' '&' 'back' 'red' '&' 'bold'+-- @+--+-- 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.+--+-- @+-- ghci> 'T.putChunkLn' $ \"Blue on 8, bright green on 256\" '&'+-- 'fore' ('blue' '<>' 'brightGreen')+--+-- ghci> 'T.putChunkLn' $ \"Blue on 8, red on 256" '&'+-- 'fore' ('blue' '<>' 'only256' 'red')+-- @+--+-- Each 'Y.Chunk' affects the formatting only of that 'Y.Chunk'. So+-- to print things in different colors, make more than one 'Y.Chunk':+--+-- @+-- ghci> 'T.putChunksLn'+-- [ \"Roses\" '&' 'fore' 'red'+-- , \"Violets\" '&' 'fore' 'blue' ]+-- @+--+-- Most of the above examples use 'T.putChunkLn', but that function+-- may be inefficient if you are printing many 'Y.Chunk's. For+-- greater efficiency use functions under the heading \"Converting+-- multiple Chunk to ByteString\", including 'T.putChunksLn' and+-- 'T.putChunks'.+--+-- The functions in this module, "Rainbow", will likely be enough for+-- most uses, but for more flexibility you can use "Rainbow.Types".+-- Use of "Rainbow.Types" will require some familiarity with the+-- @lens@ library.+++module Rainbow+ (+ -- * Chunk+ Y.Chunk+ , Y.chunk++ -- * Formatting, all terminals++ -- | These combinators affect the way a 'Y.Chunk' is displayed on+ -- both 8- and 256-color terminals.+ , bold+ , faint+ , italic+ , underline+ , blink+ , inverse+ , invisible+ , strikeout++ -- * Colors+ , Y.Radiant+ , fore+ , back++ -- * Colors, all terminals++ -- | These 'Y.Radiant' affect the way a 'Y.Chunk' is displayed on+ -- both 8- and 256-color terminals.+ , black+ , red+ , green+ , yellow+ , blue+ , magenta+ , cyan+ , white++ -- * Colors, 256-color terminals only++ -- | These 'Y.Radiant' affect 256-color terminals only.+ , grey+ , brightRed+ , brightGreen+ , brightYellow+ , brightBlue+ , brightMagenta+ , brightCyan+ , brightWhite+ , color256+ , only256++ -- * Converting multiple 'Y.Chunk' to 'Data.ByteString.ByteString'++ -- | To print a 'Y.Chunk', you need to convert it to some+ -- 'Data.ByteString.ByteString's.+ --+ -- All these functions convert the 'Data.Text' to UTF-8+ -- 'Data.ByteString.ByteString's. Many of these functions return a+ -- difference list. Learn You a Haskell for Great Good has a great+ -- explanation of difference lists:+ --+ -- http://learnyouahaskell.com/for-a-few-monads-more+ --+ -- If you don't want to learn about difference lists, just stick+ -- with using 'T.chunksToByteStrings' and use+ -- 'T.byteStringMakerFromEnvironment' if you want to use the highest+ -- number of colors possible, or, to manually specify the number of+ -- colors, use 'T.chunksToByteStrings' with 'T.toByteStringsColors0',+ -- 'T.toByteStringsColors8', or 'T.toByteStringsColors256' as the first+ -- argument. 'T.chunksToByteStrings' has an example.+ --+ -- For output to handles or to standard output, just use+ -- 'T.hPutChunks' or 'T.putChunks'.+ , T.toByteStringsColors0+ , T.toByteStringsColors8+ , T.toByteStringsColors256+ , T.byteStringMakerFromEnvironment+ , T.byteStringMakerFromHandle+ , T.chunksToByteStrings++ -- * Writing multiple 'Y.Chunk' to a handle or to standard output+ , T.putChunks+ , T.hPutChunks+ , T.putChunksLn+ , T.hPutChunksLn++ -- * Quick and dirty functions for IO++ -- | For efficiency reasons you probably don't want to use these+ -- when printing large numbers of 'Y.Chunk', but they are handy for+ -- throwaway uses like experimenting in GHCi.+ , T.putChunk+ , T.putChunkLn++ -- * Notes on terminals+ -- $termNotes++ ) where++import qualified Rainbow.Translate as T+import qualified Rainbow.Types as Y+import Data.Word (Word8)+import Data.Function ((&))+import qualified Control.Lens as Lens+import Control.Lens ((.~))+import Data.Monoid (Monoid(mempty))++formatBoth :: Lens.Setter' Y.Format Bool -> Y.Chunk -> Y.Chunk+formatBoth get c = c & Y.scheme . Y.style8 . Y.format . get .~ True+ & Y.scheme . Y.style256 . Y.format . get .~ True++-- | 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 :: Y.Chunk -> Y.Chunk+bold = formatBoth Y.bold++faint :: Y.Chunk -> Y.Chunk+faint = formatBoth Y.faint++italic :: Y.Chunk -> Y.Chunk+italic = formatBoth Y.italic++underline :: Y.Chunk -> Y.Chunk+underline = formatBoth Y.underline++blink :: Y.Chunk -> Y.Chunk+blink = formatBoth Y.blink++inverse :: Y.Chunk -> Y.Chunk+inverse = formatBoth Y.inverse++invisible :: Y.Chunk -> Y.Chunk+invisible = formatBoth Y.invisible++strikeout :: Y.Chunk -> Y.Chunk+strikeout = formatBoth Y.strikeout++-- | Change the foreground color. Whether this affects 8-color+-- terminals, 256-color terminals, or both depends on the 'Y.Radiant'.+fore :: Y.Radiant -> Y.Chunk -> Y.Chunk+fore (Y.Radiant c8 c256) c = c & Y.scheme . Y.style8 . Y.fore .~ c8+ & Y.scheme . Y.style256 . Y.fore .~ c256++-- | Change the background color. Whether this affects 8-color+-- terminals, 256-color terminals, or both depends on the 'Y.Radiant'.+back :: Y.Radiant -> Y.Chunk -> Y.Chunk+back (Y.Radiant c8 c256) c = c & Y.scheme . Y.style8 . Y.back .~ c8+ & Y.scheme . Y.style256 . Y.back .~ c256++-- | Ensures that a 'Y.Radiant' affects only a 256-color terminal.+-- For instance, to make text that is blue on an 8-color terminal but+-- red on a 256-color terminal:+--+-- @+-- 'T.putChunkLn' $ \"Blue on 8, red on 256\" &+-- 'fore' ('blue' <> 'only256' 'red')+-- @+only256 :: Y.Radiant -> Y.Radiant+only256 (Y.Radiant _ c256) = Y.Radiant mempty c256++black :: Y.Radiant+black = Y.Radiant (Y.Color (Just Y.E0)) (Y.Color (Just 0))++red :: Y.Radiant+red = Y.Radiant (Y.Color (Just Y.E1)) (Y.Color (Just 1))++green :: Y.Radiant+green = Y.Radiant (Y.Color (Just Y.E2)) (Y.Color (Just 2))++yellow :: Y.Radiant+yellow = Y.Radiant (Y.Color (Just Y.E3)) (Y.Color (Just 3))++blue :: Y.Radiant+blue = Y.Radiant (Y.Color (Just Y.E4)) (Y.Color (Just 4))++magenta :: Y.Radiant+magenta = Y.Radiant (Y.Color (Just Y.E5)) (Y.Color (Just 5))++cyan :: Y.Radiant+cyan = Y.Radiant (Y.Color (Just Y.E6)) (Y.Color (Just 6))++white :: Y.Radiant+white = Y.Radiant (Y.Color (Just Y.E7)) (Y.Color (Just 7))++grey :: Y.Radiant+grey = color256 8++brightRed :: Y.Radiant+brightRed = color256 9++brightGreen :: Y.Radiant+brightGreen = color256 10++brightYellow :: Y.Radiant+brightYellow = color256 11++brightBlue :: Y.Radiant+brightBlue = color256 12++brightMagenta :: Y.Radiant+brightMagenta = color256 13++brightCyan :: Y.Radiant+brightCyan = color256 14++brightWhite :: Y.Radiant+brightWhite = color256 15++-- | A 'Y.Radiant' for any of the 256 colors available. Supply the+-- color number. Exactly which color you'll get for a given number+-- is dependent on the terminal; though there seem to be common+-- defaults, often the user can configure this however she likes.+-- The resulting 'Y.Radiant' will affect 256-color terminals only.+color256 :: Word8 -> Y.Radiant+color256 x = Y.Radiant (Y.Color Nothing) (Y.Color (Just x))+++{- $termNotes++Earlier versions of Rainbow used the Haskell terminfo library for+dealing with the terminal. Terminfo is available at++<https://hackage.haskell.org/package/terminfo>++Terminfo, in turn, uses the UNIX terminfo library. The biggest+advantage of using Terminfo is that it is compatible with a huge+variety of terminals. Many of these terminals are hardware models+that are gathering dust in an IBM warehouse somewhere, but even modern+software terminals might have quirks. Terminfo covers all those.++The disadvantage is that using Terminfo requires you to perform IO+whenever you need to format output for the terminal. Your only choice+when using Terminfo is to send output directly to the terminal, or to+a handle. This goes against typical Haskell practice, where we try to+write pure code whenever possible.++Perhaps surprisingly, there are times where you may want to format+output, but not immediately send it to the terminal. Maybe you want+to send it to a file instead, or maybe you want to use a Haskell+library like Pipes and stream it somewhere. Terminfo is a binding to+a Unix library that is not designed for this sort of thing. The+closest you could get using Terminfo would be to make a Handle that is+backed by a in-memory buffer. There is a package for that sort of+thing:++<http://hackage.haskell.org/package/knob>++but it seems like a nasty workaround. Or you can hijack stdout and+send that somewhere--again, nasty workaround.++So I decided to stop using Terminfo. That means Rainbow no longer+supports a menagerie of bizarre terminals. It instead just uses the+standard ISO 6429 / ECMA 48 terminal codes. These are the same codes+that are used by xterm, the OS X Terminal, the Linux console, or any+other reasonably modern software terminal. Realistically they are the+only terminals Rainbow would be used for.++The 256 color capability is not in ISO 6429, but it is widely supported.++Probably the most common so-called terminals in use today that do NOT+support the ISO 6429 codes are those that are not really terminals.+For instance, you might use an Emacs shell buffer. For those+situations just use 'T.toByteStringsColors0'.++I also decided to standardize on UTF-8 for the 'Data.Text.Text'+output. These days that seems reasonable.++Apparently it's difficult to get ISO 6429 support on Microsoft+Windows. Oh well.++-}
+ lib/Rainbow/Translate.hs view
@@ -0,0 +1,355 @@+{-# LANGUAGE FlexibleInstances #-}++-- | This module contains functions that convert a 'T.Chunk' into+-- 'ByteString's. Ordinarily everything you need from this module is+-- exported from "Rainbow".+module Rainbow.Translate where++import Control.Exception (try)+import Data.ByteString (ByteString)+import Data.List (intersperse)+import Data.Text (Text)+import Data.Word (Word8)+import qualified Data.ByteString as BS+import qualified Data.ByteString.Char8 as BS8+import qualified Data.Text.Encoding as X+import qualified Rainbow.Types as T+import qualified System.Console.Terminfo as Terminfo+import qualified System.IO as IO+++single :: Char -> [ByteString] -> [ByteString]+single c = ((BS8.singleton c):)++escape :: [ByteString] -> [ByteString]+escape = single '\x1B'++csi :: [ByteString] -> [ByteString]+csi = escape . single '['++sgr :: ([ByteString] -> [ByteString]) -> [ByteString] -> [ByteString]+sgr sq = csi . sq . single 'm'++params :: Show a => [a] -> [ByteString] -> [ByteString]+params cs = ((intersperse semi . map (BS8.pack . show) $ cs) ++)+ where+ semi = BS8.singleton ';'++sgrSingle :: Word -> [ByteString] -> [ByteString]+sgrSingle w = sgr $ params [w]++sgrDouble :: Word -> Word -> [ByteString] -> [ByteString]+sgrDouble x y = sgr $ params [x, y]++normalDefault :: [ByteString] -> [ByteString]+normalDefault = sgrSingle 0++bold :: [ByteString] -> [ByteString]+bold = sgrSingle 1++faint :: [ByteString] -> [ByteString]+faint = sgrSingle 2++italic :: [ByteString] -> [ByteString]+italic = sgrSingle 3++underline :: [ByteString] -> [ByteString]+underline = sgrSingle 4++blink :: [ByteString] -> [ByteString]+blink = sgrSingle 5++-- Yes, blink is 5, inverse is 7; 6 is skipped. In ISO 6429 6 blinks+-- at a different rate.++inverse :: [ByteString] -> [ByteString]+inverse = sgrSingle 7++invisible :: [ByteString] -> [ByteString]+invisible = sgrSingle 8++strikeout :: [ByteString] -> [ByteString]+strikeout = sgrSingle 9++foreBlack :: [ByteString] -> [ByteString]+foreBlack = sgrSingle 30++foreRed :: [ByteString] -> [ByteString]+foreRed = sgrSingle 31++foreGreen :: [ByteString] -> [ByteString]+foreGreen = sgrSingle 32++foreYellow :: [ByteString] -> [ByteString]+foreYellow = sgrSingle 33++foreBlue :: [ByteString] -> [ByteString]+foreBlue = sgrSingle 34++foreMagenta :: [ByteString] -> [ByteString]+foreMagenta = sgrSingle 35++foreCyan :: [ByteString] -> [ByteString]+foreCyan = sgrSingle 36++foreWhite :: [ByteString] -> [ByteString]+foreWhite = sgrSingle 37++-- code 3 8 is skipped++foreDefault :: [ByteString] -> [ByteString]+foreDefault = sgrSingle 39++backBlack :: [ByteString] -> [ByteString]+backBlack = sgrSingle 40++backRed :: [ByteString] -> [ByteString]+backRed = sgrSingle 41++backGreen :: [ByteString] -> [ByteString]+backGreen = sgrSingle 42++backYellow :: [ByteString] -> [ByteString]+backYellow = sgrSingle 43++backBlue :: [ByteString] -> [ByteString]+backBlue = sgrSingle 44++backMagenta :: [ByteString] -> [ByteString]+backMagenta = sgrSingle 45++backCyan :: [ByteString] -> [ByteString]+backCyan = sgrSingle 46++backWhite :: [ByteString] -> [ByteString]+backWhite = sgrSingle 47++-- code 4 8 is skipped++backDefault :: [ByteString] -> [ByteString]+backDefault = sgrSingle 49++fore256 :: Word8 -> [ByteString] -> [ByteString]+fore256 c = sgr $ params [38,5,c]++back256 :: Word8 -> [ByteString] -> [ByteString]+back256 c = sgr $ params [48,5,c]++foreColor8 :: T.Enum8 -> [ByteString] -> [ByteString]+foreColor8 e8 = case e8 of+ T.E0 -> foreBlack+ T.E1 -> foreRed+ T.E2 -> foreGreen+ T.E3 -> foreYellow+ T.E4 -> foreBlue+ T.E5 -> foreMagenta+ T.E6 -> foreCyan+ T.E7 -> foreWhite++backColor8 :: T.Enum8 -> [ByteString] -> [ByteString]+backColor8 e8 = case e8 of+ T.E0 -> backBlack+ T.E1 -> backRed+ T.E2 -> backGreen+ T.E3 -> backYellow+ T.E4 -> backBlue+ T.E5 -> backMagenta+ T.E6 -> backCyan+ T.E7 -> backWhite++renderFormat :: T.Format -> [ByteString] -> [ByteString]+renderFormat (T.Format bld fnt ita und bli ivr isb stk)+ = effect bold bld+ . effect faint fnt+ . effect italic ita+ . effect underline und+ . effect blink bli+ . effect inverse ivr+ . effect invisible isb+ . effect strikeout stk+ where+ effect on x = if x then on else id++renderStyle8 :: T.Style T.Enum8 -> [ByteString] -> [ByteString]+renderStyle8 (T.Style fore back format)+ = effect foreColor8 fore+ . effect backColor8 back+ . renderFormat format+ where+ effect on (T.Color may) = maybe id on may++renderStyle256 :: T.Style Word8 -> [ByteString] -> [ByteString]+renderStyle256 (T.Style fore back format)+ = effect fore256 fore+ . effect back256 back+ . renderFormat format+ where+ effect on (T.Color may) = maybe id on may++render :: Text -> [ByteString] -> [ByteString]+render x = (X.encodeUtf8 x :)++toByteStringsColors0+ :: T.Chunk+ -> [ByteString]+ -> [ByteString]+toByteStringsColors0 (T.Chunk _ yn) = render yn++toByteStringsColors8+ :: T.Chunk+ -> [ByteString]+ -> [ByteString]+toByteStringsColors8 (T.Chunk (T.Scheme s8 _) yn)+ = normalDefault+ . renderStyle8 s8+ . render yn+ . normalDefault++toByteStringsColors256+ :: T.Chunk+ -> [ByteString]+ -> [ByteString]+toByteStringsColors256 (T.Chunk (T.Scheme _ s256) yn)+ = normalDefault+ . renderStyle256 s256+ . render yn+ . normalDefault+++-- | Uses 'Terminfo.setupTermFromEnv' to obtain the terminal's color+-- capability. If this says there are at least 256 colors are+-- available, returns 'toByteStringsColors256'. Otherwise, if there+-- are at least 8 colors available, returns 'toByteStringsColors8'.+-- Otherwise, returns 'toByteStringsColors0'.+--+-- If the terminfo database could not be read (that is, if+-- 'System.Console.Terminfo.Base.SetupTermError' is returned), then return+-- 'toByteStringsColors0'.+byteStringMakerFromEnvironment+ :: IO (T.Chunk -> [ByteString] -> [ByteString])+byteStringMakerFromEnvironment = fmap g (try Terminfo.setupTermFromEnv)+ where+ g (Left e) = toByteStringsColors0+ where+ -- Previously this caught all IOException. Now it catches only SetupTermError.+ -- See+ -- https://github.com/commercialhaskell/stackage/issues/4994+ -- Hopefully this will fix this Stackage bug.+ _types = e :: Terminfo.SetupTermError+ g (Right terminal) =+ case Terminfo.getCapability terminal (Terminfo.tiGetNum "colors") of+ Nothing -> toByteStringsColors0+ Just c+ | c >= 256 -> toByteStringsColors256+ | c >= 8 -> toByteStringsColors8+ | otherwise -> toByteStringsColors0++-- | Like 'byteStringMakerFromEnvironment' but also consults a+-- provided 'IO.Handle'. If the 'IO.Handle' is not a terminal,+-- 'toByteStringsColors0' is returned. Otherwise, the value of+-- 'byteStringMakerFromEnvironment' is returned.+byteStringMakerFromHandle+ :: IO.Handle+ -> IO (T.Chunk -> [ByteString] -> [ByteString])+byteStringMakerFromHandle h = IO.hIsTerminalDevice h >>= f+ where+ f isTerm | isTerm = byteStringMakerFromEnvironment+ | otherwise = return toByteStringsColors0+ ++-- | Convert a list of 'T.Chunk' to a list of 'ByteString'. The+-- length of the returned list may be longer than the length of the+-- input list.+--+-- So, for example, to print a bunch of chunks to standard output+-- using 256 colors:+--+-- > module PrintMyChunks where+-- >+-- > import qualified Data.ByteString as BS+-- > import Rainbow+-- >+-- > myChunks :: [Chunk String]+-- > myChunks = [ chunk "Roses" & fore red, chunk "\n",+-- > chunk "Violets" & fore blue, chunk "\n" ]+-- >+-- > myPrintedChunks :: IO ()+-- > myPrintedChunks = mapM_ BS.putStr+-- > . chunksToByteStrings toByteStringsColors256+-- > $ myChunks+--+-- To use the highest number of colors that this terminal supports:+--+-- > myPrintedChunks' :: IO ()+-- > myPrintedChunks' = do+-- > printer <- byteStringMakerFromEnvironment+-- > mapM_ BS.putStr+-- > . chunksToByteStrings printer+-- > $ myChunks++chunksToByteStrings+ :: (T.Chunk -> [ByteString] -> [ByteString])+ -- ^ Function that converts 'T.Chunk' to 'ByteString'. This+ -- function, when applied to a 'T.Chunk', returns a difference list.+ -> [T.Chunk]+ -> [ByteString]+chunksToByteStrings mk = ($ []) . foldr (.) id . map mk++-- | Writes a list of chunks to the given 'IO.Handle'.+--+-- First uses 'byteStringMakerFromEnvironment' to determine how many+-- colors to use. Then creates a list of 'ByteString' using+-- 'chunksToByteStrings' and then writes them to the given 'IO.Handle'.+hPutChunks :: IO.Handle -> [T.Chunk] -> IO ()+hPutChunks h cks = do+ maker <- byteStringMakerFromEnvironment+ let bsList = chunksToByteStrings maker cks+ mapM_ (BS.hPut h) bsList++-- | Writes a list of chunks to the given 'IO.Handle', followed by a+-- newline character.+--+-- First uses 'byteStringMakerFromEnvironment' to determine how many+-- colors to use. Then creates a list of 'ByteString' using+-- 'chunksToByteStrings' and then writes them to the given 'IO.Handle'.+hPutChunksLn :: IO.Handle -> [T.Chunk] -> IO ()+hPutChunksLn h cks = do+ hPutChunks h cks+ IO.hPutStr h "\n"++-- | Writes a list of chunks to standard output.+--+-- First uses 'byteStringMakerFromEnvironment' to determine how many+-- colors to use. Then creates a list of 'ByteString' using+-- 'chunksToByteStrings' and then writes them to standard output.+putChunks :: [T.Chunk] -> IO ()+putChunks = hPutChunks IO.stdout++-- | Writes a list of chunks to standard output, followed by a+-- newline.+--+-- First uses 'byteStringMakerFromEnvironment' to determine how many+-- colors to use. Then creates a list of 'ByteString' using+-- 'chunksToByteStrings' and then writes them to standard output.+putChunksLn :: [T.Chunk] -> IO ()+putChunksLn cks = do+ putChunks cks+ IO.putStr "\n"++-- | Writes a 'T.Chunk' to standard output. Uses+-- 'byteStringMakerFromEnvironment' each time you apply it, so this+-- might be inefficient. You are better off using+-- 'chunksToByteStrings' and the functions in "Data.ByteString" to+-- print your 'T.Chunk's if you are printing a lot of them.+putChunk :: T.Chunk -> IO ()+putChunk ck = do+ mkr <- byteStringMakerFromEnvironment+ mapM_ BS.putStr . chunksToByteStrings mkr $ [ck]++-- | Writes a 'T.Chunk' to standard output, and appends a newline.+-- Uses 'byteStringMakerFromEnvironment' each time you apply it, so+-- this might be inefficient. You are better off using+-- 'chunksToByteStrings' and the functions in "Data.ByteString" to+-- print your 'T.Chunk's if you are printing a lot of them.+putChunkLn :: T.Chunk -> IO ()+putChunkLn ck = putChunk ck >> putStrLn ""
+ lib/Rainbow/Types.hs view
@@ -0,0 +1,239 @@+{-# LANGUAGE DeriveGeneric, DeriveDataTypeable, DeriveFunctor,+ DeriveTraversable, DeriveFoldable, TemplateHaskell #-}++-- | All the main types in Rainbow. Using this module you can specify+-- that you want different formatting for 8- and 256-color terminals.+-- Many of the names in this module conflict with the names in+-- "Rainbow", so it's probably best to @import@ this module+-- @qualified@.+module Rainbow.Types where++-- # Imports++import Control.Lens (makeLenses)+import Data.String (IsString(..))+import Data.Text (Text)+import qualified Data.Text as X+import Data.Traversable ()+import Data.Typeable (Typeable)+import Data.Word (Word8)+import GHC.Generics (Generic)++--+-- Colors+--++-- | A color; a 'Nothing' value means that the terminal's default+-- color is used. The type of the 'Maybe' generally will be an+-- 'Enum8' to represent one of 8 colors, or a 'Word8' to represent one+-- of 256 colors.+newtype Color a = Color (Maybe a)+ deriving (Eq, Show, Ord, Generic, Typeable, Functor, Foldable,+ Traversable)++instance Semigroup (Color a) where+ Color x <> Color y = case y of+ Just a -> Color (Just a)+ _ -> Color x++-- | Takes the last non-Nothing Color. 'mempty' is no color.+instance Monoid (Color a) where+ mempty = Color Nothing++-- | A simple enumeration for eight values. Represents eight colors.+data Enum8+ = E0+ | E1+ | E2+ | E3+ | E4+ | E5+ | E6+ | E7+ deriving (Eq, Ord, Show, Bounded, Enum, Generic, Typeable)++enum8toWord8 :: Enum8 -> Word8+enum8toWord8 e = case e of+ E0 -> 0+ E1 -> 1+ E2 -> 2+ E3 -> 3+ E4 -> 4+ E5 -> 5+ E6 -> 6+ E7 -> 7++black :: Enum8+black = E0++red :: Enum8+red = E1++green :: Enum8+green = E2++yellow :: Enum8+yellow = E3++blue :: Enum8+blue = E4++magenta :: Enum8+magenta = E5++cyan :: Enum8+cyan = E6++white :: Enum8+white = E7++grey :: Word8+grey = 8++brightRed :: Word8+brightRed = 9++brightGreen :: Word8+brightGreen = 10++brightYellow :: Word8+brightYellow = 11++brightBlue :: Word8+brightBlue = 12++brightMagenta :: Word8+brightMagenta = 13++brightCyan :: Word8+brightCyan = 14++brightWhite :: Word8+brightWhite = 15++--+-- Styles+--++-- | Text formatting such as bold, italic, etc.+data Format = Format+ { _bold :: Bool+ , _faint :: Bool+ , _italic :: Bool+ , _underline :: Bool+ , _blink :: Bool+ , _inverse :: Bool+ , _invisible :: Bool+ , _strikeout :: Bool+ } deriving (Show, Eq, Ord, Generic, Typeable)++makeLenses ''Format++instance Semigroup Format where+ (Format x0 x1 x2 x3 x4 x5 x6 x7) <> (Format y0 y1 y2 y3 y4 y5 y6 y7)+ = Format (x0 || y0) (x1 || y1) (x2 || y2) (x3 || y3) (x4 || y4)+ (x5 || y5) (x6 || y6) (x7 || y7)++-- | For each field, the resulting field is True if either field is+-- True. For 'mempty', every field is False.+instance Monoid Format where+ mempty = Format False False False False False False False False++-- | The foreground and background color, and the 'Format'. This+-- represents all colors and formatting attributes for either an 8- or+-- 256-color terminal.+data Style a = Style+ { _fore :: Color a+ , _back :: Color a+ , _format :: Format+ } deriving (Show, Eq, Ord, Generic, Typeable, Functor, Foldable,+ Traversable)++makeLenses ''Style++instance Semigroup (Style a) where+ (Style x0 x1 x2) <> (Style y0 y1 y2)+ = Style (x0 <> y0) (x1 <> y1) (x2 <> y2)++-- | Uses the underlying 'Monoid' instances for 'Color' and 'Format'.+instance Monoid (Style a) where+ mempty = Style mempty mempty mempty++--+-- Scheme+--++-- | Holds the 'Style' for both 8- and 256-color terminals.+data Scheme = Scheme+ { _style8 :: Style Enum8+ , _style256 :: Style Word8+ } deriving (Eq, Ord, Show, Generic, Typeable)++makeLenses ''Scheme++instance Semigroup Scheme where+ (Scheme x0 x1) <> (Scheme y0 y1) = Scheme (x0 <> y0) (x1 <> y1)++instance Monoid Scheme where+ mempty = Scheme 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+ { _scheme :: Scheme+ , _yarn :: Text+ } deriving (Eq, Show, Ord, Generic, Typeable)++-- | Uses the underlying 'Semigroup' instances for both the+-- underlying 'Scheme' and the underlying 'Text'.+instance Semigroup Chunk where+ (Chunk x0 x1) <> (Chunk y0 y1)+ = Chunk (x0 <> y0) (x1 <> y1)++-- | Creates a 'Chunk' with no formatting and with the given text.+instance IsString Chunk where+ fromString = chunk . X.pack++-- | Uses the underlying 'Monoid' instances for the 'Scheme' and for+-- the underlying 'Text'. Therefore 'mempty' will have no+-- formatting, no colors, and no text.+instance Monoid Chunk where+ mempty = Chunk mempty mempty++-- | Creates a 'Chunk' with no formatting and with the given text.+-- A 'Chunk' is also an instance of 'Data.String.IsString' so you+-- can create them with the @OverloadedStrings@ extension. Such a+-- 'Chunk' has the text of the string and no formatting.+chunk :: Text -> Chunk+chunk = Chunk mempty++makeLenses ''Chunk+++-- | Stores colors that may affect 8-color terminals, 256-color+-- terminals, both, or neither.+data Radiant = Radiant+ { _color8 :: Color Enum8+ , _color256 :: Color Word8+ } deriving (Eq, Ord, Show, Typeable, Generic)++instance Semigroup Radiant where+ (Radiant x0 x1) <> (Radiant y0 y1) = Radiant (x0 <> y0) (x1 <> y1)++-- | Uses the underlying 'Monoid' instance for the 'Color's. Thus the+-- last non-'Nothing' 'Color' is used. This can be useful to specify+-- one color for 8-color terminals and a different color for 256-color+-- terminals.+instance Monoid Radiant where+ mempty = Radiant mempty mempty++makeLenses ''Radiant+
rainbow.cabal view
@@ -1,32 +1,95 @@-name: rainbow-version: 0.2.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.-homepage: http://github.com/massysett/rainbow-license: BSD3-license-file: LICENSE-author: Omari Norman-maintainer: omari@smileystation.com-copyright: 2013 Omari Norman-category: System-build-type: Simple-cabal-version: >=1.8+cabal-version: 1.12 +-- This file has been generated from package.yaml by hpack version 0.31.2.+--+-- see: https://github.com/sol/hpack+--+-- hash: 837a60ee2540f28dc14f871885d041b7f60038586de137f1f3e495154992b4fe++name: rainbow+version: 0.34.2.2+synopsis: Print text to terminal with colors and effects+description: Please see README.md+category: System+stability: Experimental+homepage: https://www.github.com/massysett/rainbow+bug-reports: https://www.github.com/massysett/rainbow/issues+author: Omari Norman+maintainer: omari@smileystation.com+copyright: Copyright 2013-2019 Omari Norman+license: BSD3+license-file: LICENSE+build-type: Simple+extra-source-files:+ README.md+ stack.yaml+x-curation: uncurated+ source-repository head- type: git- location: git://github.com/massysett/rainbow.git+ type: git+ location: https://github.com/massysett/rainbow library exposed-modules:- System.Console.Rainbow+ Rainbow+ Rainbow.Translate+ Rainbow.Types+ other-modules:+ Paths_rainbow+ hs-source-dirs:+ lib+ other-extensions: TemplateHaskell+ ghc-options: -Wall+ build-depends:+ base >=4.11 && <5+ , bytestring+ , lens+ , terminfo+ , text+ default-language: Haskell2010 +test-suite rainbow-instances+ type: exitcode-stdio-1.0+ main-is: rainbow-instances.hs+ other-modules:+ Rainbow+ Rainbow.Translate+ Rainbow.Types+ Rainbow.QuickCheck+ Paths_rainbow+ hs-source-dirs:+ lib+ tests+ other-extensions: TemplateHaskell+ ghc-options: -Wall build-depends:- base ==4.6.*- , terminfo ==0.3.*- , text ==0.11.*+ QuickCheck+ , base >=4.11 && <5+ , bytestring+ , lens+ , terminfo+ , text+ default-language: Haskell2010 +test-suite rainbow-visual+ type: exitcode-stdio-1.0+ main-is: rainbow-visual.hs+ other-modules:+ Rainbow+ Rainbow.Translate+ Rainbow.Types+ Rainbow.QuickCheck+ Paths_rainbow+ hs-source-dirs:+ lib+ tests+ other-extensions: TemplateHaskell ghc-options: -Wall+ build-depends:+ QuickCheck+ , base >=4.11 && <5+ , bytestring+ , lens+ , terminfo+ , text+ default-language: Haskell2010
+ stack.yaml view
@@ -0,0 +1,32 @@+# For more information, see: https://github.com/commercialhaskell/stack/blob/release/doc/yaml_configuration.md++# Specifies the GHC version and set of packages available (e.g., lts-3.5, nightly-2015-09-21, ghc-7.10.2)+resolver: lts-14.14++# Local packages, usually specified by relative directory name+packages:+- '.'++# Packages to be pulled from upstream that are not in the resolver (e.g., acme-missiles-0.3)+extra-deps: []++# Override default flag values for local packages and extra-deps+flags: {}++# Extra package databases containing global packages+extra-package-dbs: []++# Control whether we use the GHC we find on the path+# system-ghc: true++# Require a specific version of stack, using version ranges+# require-stack-version: -any # Default+# require-stack-version: >= 0.1.4.0++# Override the architecture used by stack, especially useful on Windows+# arch: i386+# arch: x86_64++# Extra directories used by stack for building+# extra-include-dirs: [/path/to/dir]+# extra-lib-dirs: [/path/to/dir]
+ tests/Rainbow/QuickCheck.hs view
@@ -0,0 +1,106 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+{-# LANGUAGE FlexibleInstances, DeriveGeneric, StandaloneDeriving #-}++-- | QuickCheck instances for all of Rainbow. Currently Rainbow does+-- not use these instances itself; they are only here for+-- cut-and-paste for other libraries that may need them. There is an+-- executable in Rainbow that is built solely to make sure this module+-- compiles without any errors.+--+-- To use these instances, just drop them into your own project+-- somewhere. They are not packaged as a library because there are+-- orphan instances.++module Rainbow.QuickCheck where++import qualified Data.Text as X+import Data.Typeable+import Rainbow.Types+import Test.QuickCheck++instance Arbitrary X.Text where+ arbitrary = fmap X.pack $ listOf genChar+ where+ genChar = elements ['a'..'z']+ shrink = fmap X.pack . shrink . X.unpack++instance CoArbitrary X.Text where+ coarbitrary = coarbitrary . X.unpack++instance (Typeable a, Arbitrary a) => Arbitrary (Color a) where+ arbitrary = Color <$> arbitrary+ shrink = genericShrink++instance CoArbitrary a => CoArbitrary (Color a) where+ coarbitrary (Color a) = coarbitrary a++varInt :: Int -> Gen b -> Gen b+varInt = variant++instance Arbitrary Enum8 where+ arbitrary = elements [E0, E1, E2, E3, E4, E5, E6, E7]+ shrink = genericShrink++instance CoArbitrary Enum8 where+ coarbitrary x = case x of+ E0 -> varInt 0+ E1 -> varInt 1+ E2 -> varInt 2+ E3 -> varInt 3+ E4 -> varInt 4+ E5 -> varInt 5+ E6 -> varInt 6+ E7 -> varInt 7++instance Arbitrary Format where+ arbitrary+ = Format <$> g <*> g <*> g <*> g <*> g <*> g <*> g <*> g+ where+ g = arbitrary+ shrink = genericShrink++instance CoArbitrary Format where+ coarbitrary (Format x0 x1 x2 x3 x4 x5 x6 x7)+ = coarbitrary x0+ . coarbitrary x1+ . coarbitrary x2+ . coarbitrary x3+ . coarbitrary x4+ . coarbitrary x5+ . coarbitrary x6+ . coarbitrary x7++instance (Arbitrary a, Typeable a) => Arbitrary (Style a) where+ arbitrary = Style <$> arbitrary <*> arbitrary <*> arbitrary+ shrink = genericShrink++instance CoArbitrary a => CoArbitrary (Style a) where+ coarbitrary (Style a b c)+ = coarbitrary a+ . coarbitrary b+ . coarbitrary c++instance Arbitrary Scheme where+ arbitrary = Scheme <$> arbitrary <*> arbitrary+ shrink = genericShrink++instance CoArbitrary Scheme where+ coarbitrary (Scheme a b) = coarbitrary a . coarbitrary b+++instance Arbitrary Chunk where+ arbitrary = Chunk <$> arbitrary <*> arbitrary+ shrink = genericShrink++instance CoArbitrary Chunk where+ coarbitrary (Chunk a b)+ = coarbitrary a+ . coarbitrary b++instance Arbitrary Radiant where+ arbitrary = Radiant <$> arbitrary <*> arbitrary+ shrink = genericShrink++instance CoArbitrary Radiant where+ coarbitrary (Radiant a b) = coarbitrary a . coarbitrary b+
+ tests/rainbow-instances.hs view
@@ -0,0 +1,10 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- | This program exists solely to import Rainbow.QuickCheck to make+-- sure it compiles.+module Main where++import Rainbow.QuickCheck++main :: IO ()+main = return ()
+ tests/rainbow-visual.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE OverloadedStrings #-}+module Main where++import Rainbow+import Data.Function ((&))++main :: IO ()+main = do+ putChunksLn+ [ "Red fore, green back " & fore red & back green+ , "Blue fore, magenta back" & fore blue & back magenta ]+ putChunksLn+ [ "Red, bold fore " & fore red & bold+ , "Red, underlined fore " & fore red & underline+ , "Cyan, italic fore" & fore cyan & italic+ ]+ putChunksLn+ [ "Light grey background on 256-color" & back (color256 254) ]