@@ -1,3 +1,7 @@
1+-- | This module provides parsers for mouse events for both "normal" and
2+-- "extended" modes. This implementation was informed by
4+-- http://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h2-Mouse-Tracking
1module Graphics.Vty.Input.Mouse
5module Graphics.Vty.Input.Mouse
2 ( requestMouseEvents
6 ( requestMouseEvents
3 , disableMouseEvents
7 , disableMouseEvents
@@ -14,10 +18,6 @@ import Data.List (isPrefixOf)
14import Data.Maybe (catMaybes)
18import Data.Maybe (catMaybes)
15import Data.Bits ((.&.))
19import Data.Bits ((.&.))
17−-- This implementation was informed by
19−-- http://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h2-Mouse-Tracking
21-- A mouse event in SGR extended mode is
21-- A mouse event in SGR extended mode is
23-- '\ESC' '[' '<' B ';' X ';' Y ';' ('M'|'m')
23-- '\ESC' '[' '<' B ';' X ';' Y ';' ('M'|'m')