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/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 0b4a181..0269ef3 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -21,6 +21,7 @@ import Internal.Logger
 import Internal.DMenu (menuCommandString)
 import Internal.RebindKeys
 import Internal.KeysM
+import Internal.ButtonMasks
 
 import qualified XMonad as X
 import qualified XMonad.StackSet as W
@@ -37,7 +38,7 @@ main = do
   xmobar <- spawnXMobar
 
   (=<<) X.xmonad $
-    applyKeys $ ewmh $ docks $  def
+    applyKeys $ withButtonMasks $ ewmh $ docks $  def
        { terminal    = "alacritty"
        , modMask     = mod3Mask
        , borderWidth = 2
-- 
cgit