aa67b6f · vty · git.iko.soy

Mouse: make screen, tmux, and xterm behavior uniform (only request motion events while a button is pressed)

commitaa67b6faa8120bf2d859fe5fc0e6b08f2bebd3d1 authorJonathan Daugherty <cygnus@foobox.com> dateFri 17 Jun 2016, 17:37 (10 years ago) parentff9f4e6

1 file changed+2−2

unifiedsplit

src/Graphics/Vty/Input/Mouse.hs+2−2

@@ -32,11 +32,11 @@ import Data.Bits ((.&.))

3232-- | These sequences set xterm-based terminals to send mouse event

3333-- sequences.

3434requestMouseEvents :: String

35−requestMouseEvents = "\ESC[?1000h\ESC[?1006h\ESC[?1003h"

35+requestMouseEvents = "\ESC[?1000h\ESC[?1002h\ESC[?1006h\ESC[?1005h"

3636

3737-- | These sequences disable mouse events.

3838disableMouseEvents :: String

39−disableMouseEvents = "\ESC[?1000l\ESC[?1006l\ESC[?1003l"

39+disableMouseEvents = "\ESC[?1000l\ESC[?1002l\ESC[?1006l\ESC[?1005l"

4040

4141-- | Does the specified string begin with a mouse event?"

4242isMouseEvent :: String -> Bool