github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00
Code Issues Projects Releases Wiki Activity

Format strings with attributes.

Browse Source
This commit is contained in:
Rob Rix 2015-11-19 23:07:43 -08:00
parent f0286335fb
commit 5617cceee2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Console.hs
View File

@ -1,5 +1,7 @@
module Console where
import Data.Char
data Colour = Black | Red | Green | Yellow | Blue | Purple | Cyan | White
deriving Bounded
@ -36,3 +38,6 @@ instance Enum Style where
toEnum 4 = Underline
data Attribute = Attribute { colour :: Colour, style :: Style }
applyAttribute :: Attribute -> String -> String
applyAttribute attribute string = "\x001b[" ++ [ chr . fromEnum $ style attribute ] ++ ";" ++ [ chr . fromEnum $ colour attribute ] ++ "m" ++ string ++ "\x001b[0m"