From 04ccc4d9721fae24c77e0305a72736d89233c915 Mon Sep 17 00:00:00 2001
From: Robbie Harwood <rharwood@redhat.com>
Date: Wed, 22 Jul 2020 15:42:56 -0400
Subject: [PATCH] EZConfig: Learn about XF86Bluetooth

---
 CHANGES.md              | 4 ++++
 XMonad/Util/EZConfig.hs | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/CHANGES.md b/CHANGES.md
index e2848bf4..c40f2a3b 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -130,6 +130,10 @@
     - Export `HiddenWindows` type constructor.
     - Export `popHiddenWindow` function restoring a specific window.
 
+  * `XMonad.Util.EZConfig`
+
+    - Added support for XF86Bluetooth.
+
 ## 0.16
 
 ### Breaking Changes
diff --git a/XMonad/Util/EZConfig.hs b/XMonad/Util/EZConfig.hs
index d1913bf2..b5bc71e6 100644
--- a/XMonad/Util/EZConfig.hs
+++ b/XMonad/Util/EZConfig.hs
@@ -356,6 +356,7 @@ removeMouseBindings conf mouseBindingList =
 -- > <XF86_ClearGrab>
 -- > <XF86_Next_VMode>
 -- > <XF86_Prev_VMode>
+-- > <XF86Bluetooth>
 
 mkKeymap :: XConfig l -> [(String, X ())] -> M.Map (KeyMask, KeySym) (X ())
 mkKeymap c = M.fromList . mkSubmaps . readKeymap c
@@ -677,7 +678,8 @@ multimediaKeys = filter ((/= noSymbol) . snd) . map (id &&& stringToKeysym) $
                  , "XF86_Ungrab"
                  , "XF86_ClearGrab"
                  , "XF86_Next_VMode"
-                 , "XF86_Prev_VMode" ]
+                 , "XF86_Prev_VMode"
+                 , "XF86Bluetooth" ]
 
 -- | Given a configuration record and a list of (key sequence
 --   description, action) pairs, check the key sequence descriptions