From ea7445ce7d355aacd040c99cf2e13bad6cdba62b Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 1 Apr 2022 17:42:26 -0600
Subject: Add ButtonMasks. Not function. Experimental to try and handle dealing
 with multiple buttons as masks.

---
 src/Internal/Keys.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/Internal/Keys.hs')

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
 
-- 
cgit