From 1d4e51ff5a48dd282b94441583faec7f66e99a10 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Tue, 22 Nov 2022 16:55:07 -0700 Subject: More consistent handling with button mapping. Button mapping is now similar in architecture to KeyMapping. As a consequence it works with the pending buffer. --- src/Rahm/Desktop/Submap.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Rahm/Desktop/Submap.hs') diff --git a/src/Rahm/Desktop/Submap.hs b/src/Rahm/Desktop/Submap.hs index aabc35b..ca767e3 100644 --- a/src/Rahm/Desktop/Submap.hs +++ b/src/Rahm/Desktop/Submap.hs @@ -21,6 +21,8 @@ import qualified Data.Map as Map import Data.Time.Clock.POSIX import Data.Word (Word64) import Rahm.Desktop.Common +import Rahm.Desktop.XMobarLog.PendingBuffer +import Text.Printf (printf) import XMonad hiding (keys) currentTimeMillis :: IO Int @@ -154,7 +156,7 @@ submapButtonsWithKey :: submapButtonsWithKey defaultAction actions window = do maybe (return ()) - ( \arg -> + ( \arg@(_, button) -> case Map.lookup arg actions of Nothing -> defaultAction arg window Just fn -> fn window -- cgit