2
-- Maintainer : judah.jacobson@gmail.com
3
-- Stability : experimental
4
-- Portability : portable (FFI)
5
module System.Console.Terminfo.Edit where
7
import System.Console.Terminfo.Base
9
-- | Clear the screen, and move the cursor to the upper left.
10
clearScreen :: Capability (LinesAffected -> TermOutput)
11
clearScreen = fmap ($ []) $ tiGetOutput "clear"
13
-- | Clear from beginning of line to cursor.
14
clearBOL :: TermStr s => Capability s
15
clearBOL = tiGetOutput1 "el1"
17
-- | Clear from cursor to end of line.
18
clearEOL :: TermStr s => Capability s
19
clearEOL = tiGetOutput1 "el"
21
-- | Clear display after cursor.
22
clearEOS :: Capability (LinesAffected -> TermOutput)
23
clearEOS = fmap ($ []) $ tiGetOutput "ed"