module Graphics.Ascii.Haha.Terminal where
import Control.Applicative
import Data.List (intercalate)
import System.Environment (getEnvironment)
esc :: String -> [String] -> String -> String
esc a args b = concat ["\ESC[", a, intercalate ";" $ args, b]
clearAll, clearEol, clear :: String
clearAll = esc "2J" [] ""
clearEol = esc "K" [] ""
clear = clearAll ++ move (1::Int) 1
move :: (Integral i, Show i) => i -> i -> String
move row col = esc "" [show col, show row] "H"
moveUp, moveDown, moveBack, moveForward :: (Integral i, Show i) => i -> String
moveUp rs = esc "" [show rs] "A"
moveDown rs = esc "" [show rs] "B"
moveBack cs = esc "" [show cs] "D"
moveForward cs = esc "" [show cs] "C"
save, load :: String
save = esc "s" [] ""
load = esc "u" [] ""
clr :: [String] -> String
clr codes = esc "" codes "m"
fg, bg :: Color -> [String]
fg c = [show (num c + 30::Int)]
bg c = [show (num c + 40::Int)]
normal, bold, faint, standout, underline, blink, reverse, invisible :: [String] -> [String]
normal = ("0":)
bold = ("1":)
faint = ("2":)
standout = ("3":)
underline = ("4":)
blink = ("5":)
reverse = ("7":)
invisible = ("8":)
data Color =
Black
| Red
| Green
| Yellow
| Blue
| Magenta
| Cyan
| White
| Reset
deriving (Show, Eq)
num :: Integral i => Color -> i
num Black = 0
num Red = 1
num Green = 2
num Yellow = 3
num Blue = 4
num Magenta = 5
num Cyan = 6
num White = 7
num Reset = 9
reset :: String
reset = esc "" ["0", "39", "49"] "m"
black, red, green, yellow, blue, magenta, cyan, white :: String
black = clr $ fg Black
red = clr $ fg Red
green = clr $ fg Green
yellow = clr $ fg Yellow
blue = clr $ fg Blue
magenta = clr $ fg Magenta
cyan = clr $ fg Cyan
white = clr $ fg White
blackBold, redBold, greenBold, yellowBold, blueBold, magentaBold, cyanBold, whiteBold :: String
blackBold = clr $ bold $ fg Black
redBold = clr $ bold $ fg Red
greenBold = clr $ bold $ fg Green
yellowBold = clr $ bold $ fg Yellow
blueBold = clr $ bold $ fg Blue
magentaBold = clr $ bold $ fg Magenta
cyanBold = clr $ bold $ fg Cyan
whiteBold = clr $ bold $ fg White
blackBg, redBg, greenBg, yellowBg, blueBg, magentaBg, cyanBg, whiteBg, resetBg :: String
blackBg = clr $ bg Black
redBg = clr $ bg Red
greenBg = clr $ bg Green
yellowBg = clr $ bg Yellow
blueBg = clr $ bg Blue
magentaBg = clr $ bg Magenta
cyanBg = clr $ bg Cyan
whiteBg = clr $ bg White
resetBg = clr $ bg Reset
bg256, fg256 :: (Integral i, Show i) => i -> [String]
fg256 n = ["38", "5", show n]
bg256 n = ["48", "5", show n]
x256, x256Bold, x256Bg :: (Integral i, Show i) => i -> String
x256 i = clr $ fg256 i
x256Bold i = clr $ bold $ bg256 i
x256Bg i = clr $ bg256 i
width :: (Read i, Integral i) => IO i
width = (maybe 80 read . lookup "COLUMNS") <$> getEnvironment
height :: (Read i, Integral i) => IO i
height = (maybe 24 read . lookup "LINES") <$> getEnvironment
geometry :: (Read i, Integral i) => IO (i, i)
geometry = (,) <$> width <*> height