module Main where

import System.Console.Terminfo
import System.Environment
import System.IO

import Data.Maybe

main = do
    hSetBuffering stdout LineBuffering
    getEnv "TERM" >>= print
    t <- setupTermFromEnv
    putStrLn "Setup succeeded."
    print ("am", getCapability t autoRightMargin)
    print ("lines", getCapability t termLines)
    print ("keyRight", getCapability t keyRight)
    print ("cursorRight", (getCapability t cursorRight1 :: Maybe String))
    runTermOutput t $ fromJust $ getCapability t keypadOn
    print "OK!"
    print ("keypadOn", (getCapability t keypadOn :: Maybe String))
    let Just left = getCapability t moveLeft
    mapM_ (runTermOutput t) [termText "abcdefg", left 3, termText "xx\n"]