@@ -206,8 +206,12 @@ inputInFocusedRegion
206206inputInFocusedRegion = do
207207 inp <- input
208208 reg <- current <$> askRegion
209− f <- current <$> focus
210− pure $ gate f $ fmapMaybe id $ attachWith mouseInRegion reg inp
209+ foc <- current <$> focus
210+ pure $ fmapMaybe id $ attachWith filterInput ((,) <$> reg <*> foc) inp
211+ where
212+ filterInput (r, f) = \case
213+ V.EvKey {} | not f -> Nothing
214+ x -> mouseInRegion r x
211215
212216-- * Getting and setting the display region
213217