jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2025-01-01 02:27:15 +03:00
Code Issues Projects Releases Wiki Activity

MouseDemo: whitespace

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-07-21 14:18:49 -07:00
parent 84924f41c1
commit 2838263c22
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
programs/MouseDemo.hs
View File

@ -88,12 +88,18 @@ appEvent :: T.BrickEvent Name e -> T.EventM Name St ()
appEvent ev@(T.MouseDown n _ _ loc) = do
lastReportedClick .= Just (n, loc)
T.withLens edit $ E.handleEditorEvent ev
appEvent (T.MouseUp {}) = lastReportedClick .= Nothing
appEvent (T.VtyEvent (V.EvMouseUp {})) = lastReportedClick .= Nothing
appEvent (T.VtyEvent (V.EvKey V.KUp [V.MCtrl])) = M.vScrollBy (M.viewportScroll Prose) (-1)
appEvent (T.VtyEvent (V.EvKey V.KDown [V.MCtrl])) = M.vScrollBy (M.viewportScroll Prose) 1
appEvent (T.VtyEvent (V.EvKey V.KEsc [])) = M.halt
appEvent ev = T.withLens edit $ E.handleEditorEvent ev
appEvent (T.MouseUp {}) =
lastReportedClick .= Nothing
appEvent (T.VtyEvent (V.EvMouseUp {})) =
lastReportedClick .= Nothing
appEvent (T.VtyEvent (V.EvKey V.KUp [V.MCtrl])) =
M.vScrollBy (M.viewportScroll Prose) (-1)
appEvent (T.VtyEvent (V.EvKey V.KDown [V.MCtrl])) =
M.vScrollBy (M.viewportScroll Prose) 1
appEvent (T.VtyEvent (V.EvKey V.KEsc [])) =
M.halt
appEvent ev =
T.withLens edit $ E.handleEditorEvent ev
aMap :: AttrMap
aMap = attrMap V.defAttr