Remove trailing whitespace

1 files changed, 8 insertions, 4 deletions

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 21988f8..ad3d6b8 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -233,7 +233,7 @@ keymap = runKeys $ do
 
   bind xK_q $ do
     shiftMod $ spawn "xmonad --recompile && xmonad --restart"
-    
+
     justMod $ subkeys $ do
 
       bind xK_q $
@@ -246,7 +246,7 @@ keymap = runKeys $ do
           if (x' - x) < 0
             then mediaPrev
             else mediaNext
- 
+
   bind xK_r $ do
     justMod runDMenu
     shiftMod $ sendMessage DoRotate
@@ -459,7 +459,7 @@ mouseMap = runButtons $ do
   bind button15 $ do
 
     noMod $ subMouse $ do
-      
+
       bind button15 $ do
         noMod $ const jumpToLast
 
@@ -561,6 +561,10 @@ windowSpecificBindings = do
       -- Experimental.
       noMod $ logs "This is a test"
 
+  -- Add a binding to xev as a test.
+  configureIf (title =? "Event Tester") $
+    bind xK_F2 $
+      noMod $ sendKey (controlMask, xK_F2) w
 
   where
     browsers = ["Google-chrome", "Brave-browser", "firefox-default"]
@@ -585,7 +589,7 @@ windowBindings xconfig =
 
     manageHook = (doQuery >> return (Endo id)) <> manageHook xconfig
   }
-  
+
   where
     doQuery :: Query ()
     doQuery = do