git.iko.soy/vty
on master help sign in
XTermColor: disable SGR mouse events in terminal release
commite58c15291d294499ea57d2c5b11c9602fddd7f45 authorJonathan Daugherty <cygnus@foobox.com> dateFri 17 Jun 2016, 12:41 (10 years ago) parent7b075ce
2 files changed+7−1
compare with master
unifiedsplit
src/Graphics/Vty/Input/Mouse.hs+5 src/Graphics/Vty/Output/XTermColor.hs+2−1
src/Graphics/Vty/Input/Mouse.hs+5
@@ -1,5 +1,6 @@
11module Graphics.Vty.Input.Mouse
22 ( requestSGRMouseEvents
3+ , disableSGRMouseEvents
34 , classifySGRMouseEvent
45 ) where
56
@@ -31,6 +32,10 @@ import Data.Bits ((.&.))
3132requestSGRMouseEvents :: String
3233requestSGRMouseEvents = "\ESC[?1000h\ESC[?1006h"
3334
35+-- | These sequences disable mouse events.
36+disableSGRMouseEvents :: String
37+disableSGRMouseEvents = "\ESC[?1000l\ESC[?1006l"
38+
3439-- Modifier bits:
3540shiftBit :: Int
3641shiftBit = 4
src/Graphics/Vty/Output/XTermColor.hs+2−1
@@ -9,7 +9,7 @@ module Graphics.Vty.Output.XTermColor ( reserveTerminal )
99 where
1010
1111import Graphics.Vty.Output.Interface
12−import Graphics.Vty.Input.Mouse (requestSGRMouseEvents)
12+import Graphics.Vty.Input.Mouse
1313import qualified Graphics.Vty.Output.TerminfoBased as TerminfoBased
1414
1515import Blaze.ByteString.Builder (writeToByteString)
@@ -40,6 +40,7 @@ reserveTerminal variant outFd = liftIO $ do
4040 { terminalID = terminalID t ++ " (xterm-color)"
4141 , releaseTerminal = do
4242 liftIO $ flushedPut setDefaultCharSet
43+ liftIO $ flushedPut disableSGRMouseEvents
4344 releaseTerminal t
4445 , mkDisplayContext = \tActual r -> do
4546 dc <- mkDisplayContext t tActual r