module System.Console.Terminfo.Keys(
keypadOn,
keypadOff,
keyUp,
keyDown,
keyLeft,
keyRight,
functionKey,
keyBackspace,
keyDeleteChar,
keyHome,
keyEnd
) where
import System.Console.Terminfo.Base
keypadOn :: Capability TermOutput
keypadOn = tiGetOutput1 "smkx"
keypadOff :: Capability TermOutput
keypadOff = tiGetOutput1 "rmkx"
keyUp :: Capability String
keyUp = tiGetStr "kcuu1"
keyDown :: Capability String
keyDown = tiGetStr "kcud1"
keyLeft :: Capability String
keyLeft = tiGetStr "kcub1"
keyRight :: Capability String
keyRight = tiGetStr "kcuf1"
functionKey :: Int -> Capability String
functionKey n = tiGetStr ("kf" ++ show n)
keyBackspace :: Capability String
keyBackspace = tiGetStr "kbs"
keyDeleteChar :: Capability String
keyDeleteChar = tiGetStr "kdch1"
keyHome :: Capability String
keyHome = tiGetStr "khome"
keyEnd :: Capability String
keyEnd = tiGetStr "kend"