module Web.Tweet.Utils.Colors where
import Text.PrettyPrint.ANSI.Leijen
toRed :: String -> String
toRed :: String -> String
toRed = Doc -> String
forall a. Show a => a -> String
show (Doc -> String) -> (String -> Doc) -> String -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Doc -> Doc
dullred (Doc -> Doc) -> (String -> Doc) -> String -> Doc
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Doc
text
toYellow :: String -> String
toYellow :: String -> String
toYellow = Doc -> String
forall a. Show a => a -> String
show (Doc -> String) -> (String -> Doc) -> String -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Doc -> Doc
dullyellow (Doc -> Doc) -> (String -> Doc) -> String -> Doc
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Doc
text
toGreen :: String -> String
toGreen :: String -> String
toGreen = Doc -> String
forall a. Show a => a -> String
show (Doc -> String) -> (String -> Doc) -> String -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Doc -> Doc
dullgreen (Doc -> Doc) -> (String -> Doc) -> String -> Doc
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Doc
text
toBlue :: String -> String
toBlue :: String -> String
toBlue = Doc -> String
forall a. Show a => a -> String
show (Doc -> String) -> (String -> Doc) -> String -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Doc -> Doc
underline (Doc -> Doc) -> (String -> Doc) -> String -> Doc
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Doc -> Doc
dullblue (Doc -> Doc) -> (String -> Doc) -> String -> Doc
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Doc
text
toPlainBlue :: String -> String
toPlainBlue :: String -> String
toPlainBlue = Doc -> String
forall a. Show a => a -> String
show (Doc -> String) -> (String -> Doc) -> String -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Doc -> Doc
dullblue (Doc -> Doc) -> (String -> Doc) -> String -> Doc
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Doc
text