diff options
| author | Josh Rahm <rahm@google.com> | 2022-11-22 16:55:07 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2022-11-22 16:55:07 -0700 |
| commit | 1d4e51ff5a48dd282b94441583faec7f66e99a10 (patch) | |
| tree | 559e59fa2651d39faa36cafce28e22e91e8371ef /src/Rahm/Desktop/Submap.hs | |
| parent | dc0d5f775305536326c0ba1626ba94346f784185 (diff) | |
| download | rde-1d4e51ff5a48dd282b94441583faec7f66e99a10.tar.gz rde-1d4e51ff5a48dd282b94441583faec7f66e99a10.tar.bz2 rde-1d4e51ff5a48dd282b94441583faec7f66e99a10.zip | |
More consistent handling with button mapping.
Button mapping is now similar in architecture to KeyMapping. As a
consequence it works with the pending buffer.
Diffstat (limited to 'src/Rahm/Desktop/Submap.hs')
| -rw-r--r-- | src/Rahm/Desktop/Submap.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |