@@ -59,6 +59,7 @@ module Reflex.Vty.Widget
5959 , KeyCombo
6060 , key
6161 , keys
62+ , keyCombo
6263 , keyCombos
6364 , blank
6465 ) where
@@ -403,6 +404,13 @@ key = keyCombos . Set.singleton . (,[])
403404keys :: (Monad m, Reflex t) => [V.Key] -> VtyWidget t m (Event t KeyCombo)
404405keys = keyCombos . Set.fromList . fmap (,[])
405406
407+-- | Emit an event that fires whenever the provided key combination occurs
408+keyCombo
409+ :: (Reflex t, Monad m)
410+ => KeyCombo
411+ -> VtyWidget t m (Event t KeyCombo)
412+keyCombo = keyCombos . Set.singleton
413+
406414-- | Emit an event that fires whenever any of the provided key combinations occur
407415keyCombos
408416 :: (Reflex t, Monad m)