@@ -3,11 +3,7 @@
33{-# OPTIONS_GHC -D_XOPEN_SOURCE=500 -fno-warn-warnings-deprecations #-}
44{-# CFILES gwinsz.c #-}
55
6−-- | Terminfo based terminal handling.
7−--
8−-- The color handling assumes tektronix like. No HP support provided. If
9−-- the terminal is not one I have easy access to then color support is
10−-- entirely based of the docs. Probably with some assumptions mixed in.
6+-- | Terminfo-based terminal output driver.
117--
128-- Copyright Corey O'Connor (coreyoconnor@gmail.com)
139module Graphics.Vty.Output.TerminfoBased
@@ -89,14 +85,16 @@ sendCapToTerminal :: Output -> CapExpression -> [CapParam] -> IO ()
8985sendCapToTerminal t cap capParams = do
9086 outputByteBuffer t $ writeToByteString $ writeCapExpr cap capParams
9187
92−-- | Uses terminfo for all control codes. While this should provide the
93−-- most compatible terminal terminfo does not support some features that
94−-- would increase efficiency and improve compatibility:
88+-- | Constructs an output driver that uses terminfo for all control
89+-- codes. While this should provide the most compatible terminal,
90+-- terminfo does not support some features that would increase
91+-- efficiency and improve compatibility:
9592--
96−-- * determine the character encoding supported by the terminal. Should
97−-- this be taken from the LANG environment variable?
93+-- * determining the character encoding supported by the terminal.
94+-- Should this be taken from the LANG environment variable?
9895--
99−-- * Provide independent string capabilities for all display attributes.
96+-- * Providing independent string capabilities for all display
97+-- attributes.
10098reserveTerminal :: ( Applicative m, MonadIO m ) => String -> Fd -> m Output
10199reserveTerminal termName outFd = liftIO $ do
102100 ti <- Terminfo.setupTerm termName