diff options
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 |