module DPM.UI.Commandline.ANSIColors (Color(..), colored) where

import Data.Char ( chr )

data Color = Black | Red | Green | Yellow | Blue | Magenta | Cyan | White
           | Reset
             deriving (Eq,Show,Read,Ord,Bounded,Enum)
             
colored :: Color -> String
colored Reset = [chr 27, '[', '0', 'm'] 
colored c = [chr 27, '[', '1', ';', '3', head (show (fromEnum c)), 'm']