git.iko.soy/vty
on master help sign in
Mouse: make screen, tmux, and xterm behavior uniform (only request motion events while a button is pressed)
aa67b6fJonathan Daugherty
src/Graphics/Vty/Input/Mouse.hs+2−2
compare with master
unifiedsplit
@@ -32,11 +32,11 @@ import Data.Bits ((.&.))
32-- | These sequences set xterm-based terminals to send mouse event
32-- | These sequences set xterm-based terminals to send mouse event
33-- sequences.
33-- sequences.
34requestMouseEvents :: String
34requestMouseEvents :: String
35−requestMouseEvents = "\ESC[?1000h\ESC[?1006h\ESC[?1003h"
35+requestMouseEvents = "\ESC[?1000h\ESC[?1002h\ESC[?1006h\ESC[?1005h"
36
36
37-- | These sequences disable mouse events.
37-- | These sequences disable mouse events.
38disableMouseEvents :: String
38disableMouseEvents :: String
39−disableMouseEvents = "\ESC[?1000l\ESC[?1006l\ESC[?1003l"
39+disableMouseEvents = "\ESC[?1000l\ESC[?1002l\ESC[?1006l\ESC[?1005l"
40
40
41-- | Does the specified string begin with a mouse event?"
41-- | Does the specified string begin with a mouse event?"
42isMouseEvent :: String -> Bool
42isMouseEvent :: String -> Bool