diff options
| author | Josh Rahm <rahm@google.com> | 2022-04-01 17:42:26 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2022-04-01 17:43:05 -0600 |
| commit | ea7445ce7d355aacd040c99cf2e13bad6cdba62b (patch) | |
| tree | b743c359eab633affca8b5adedaf2d606b099161 /src/Internal/Keys.hs | |
| parent | c194a9be4e43bc4514070d172024fcf3354fb662 (diff) | |
| download | rde-experimental_mouse_mask.tar.gz rde-experimental_mouse_mask.tar.bz2 rde-experimental_mouse_mask.zip | |
Add ButtonMasks. Not function. Experimental to try and handle dealing with multiple buttons as masks.experimental_mouse_mask
Diffstat (limited to 'src/Internal/Keys.hs')
| -rw-r--r-- | src/Internal/Keys.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index 6d34c4a..20e6f15 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -54,6 +54,7 @@ import Internal.PassMenu import Internal.Logger import Internal.RebindKeys import Internal.Swallow +import Internal.ButtonMasks import Internal.ScreenRotate (screenRotateForward, screenRotateBackward) type KeyMap l = XConfig l -> Map (KeyMask, KeySym) (X ()) @@ -551,7 +552,10 @@ mouseMap = runButtons $ do bind button1 $ do justMod $ \w -> focus w >> mouseMoveWindow w >> windows W.shiftMaster - + altMod $ noWindow $ do + m <- buttonMask + logs $ "Mask: " ++ show m + bind button2 $ do justMod $ windows . (W.shiftMaster .) . W.focusWindow |