diff --git a/src/Mtlstats.hs b/src/Mtlstats.hs index 339d2e9..3e7406a 100644 --- a/src/Mtlstats.hs +++ b/src/Mtlstats.hs @@ -22,11 +22,16 @@ along with this program. If not, see . module Mtlstats (app) where import Brick.AttrMap (AttrMap, forceAttrMap) -import Brick.Main (App (..), showFirstCursor) -import Brick.Types (Widget) +import Brick.Main (App (..), halt, showFirstCursor) +import Brick.Types (BrickEvent (VtyEvent), Widget) import Brick.Util (on) import Brick.Widgets.Core (fill) import Graphics.Vty.Attributes.Color (blue, white) +import Graphics.Vty.Input.Events + ( Event (EvKey) + , Modifier (MCtrl) + , Key (KChar) + ) import Lens.Micro (to) import Lens.Micro.Mtl (use) @@ -50,6 +55,7 @@ draw s = ] handler :: Handler () +handler (VtyEvent (EvKey (KChar 'c') [MCtrl])) = halt handler e = do c <- use (to dispatch) handleController c e