From 75b3cae49fff018b87f821ce4297e13184ebd188 Mon Sep 17 00:00:00 2001
From: Jack Bates <jack@nottheoilrig.com>
Date: Wed, 27 Apr 2016 09:48:36 -0700
Subject: [PATCH] Make WindowBringer case insensitive

---
 XMonad/Actions/WindowBringer.hs | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/XMonad/Actions/WindowBringer.hs b/XMonad/Actions/WindowBringer.hs
index e7c8fecf..f4937996 100644
--- a/XMonad/Actions/WindowBringer.hs
+++ b/XMonad/Actions/WindowBringer.hs
@@ -23,7 +23,6 @@ module XMonad.Actions.WindowBringer (
                     bringWindow
                    ) where
 
-import Data.Char (toLower)
 import qualified Data.Map as M
 
 import qualified XMonad.StackSet as W
@@ -50,10 +49,14 @@ import XMonad.Util.NamedWindows (getName)
 defaultCmd :: String
 defaultCmd = "dmenu"
 
+-- | Make dmenu case insensitive
+defaultArgs :: [String]
+defaultArgs = ["-i"]
+
 -- | Pops open a dmenu with window titles. Choose one, and you will be
 --   taken to the corresponding workspace.
 gotoMenu :: X ()
-gotoMenu = gotoMenuArgs []
+gotoMenu = gotoMenuArgs defaultArgs
 
 -- | Pops open a dmenu with window titles. Choose one, and you will be
 --   taken to the corresponding workspace. This version takes a list of
@@ -75,7 +78,7 @@ gotoMenuArgs' menuCmd menuArgs = actionMenu menuCmd menuArgs W.focusWindow
 -- | Pops open a dmenu with window titles. Choose one, and it will be
 --   dragged, kicking and screaming, into your current workspace.
 bringMenu :: X ()
-bringMenu = bringMenuArgs []
+bringMenu = bringMenuArgs defaultArgs
 
 -- | Pops open a dmenu with window titles. Choose one, and it will be
 --   dragged, kicking and screaming, into your current workspace. This version
@@ -116,10 +119,9 @@ windowMap = do
        keyValuePair ws w = flip (,) w `fmap` decorateName ws w
 
 -- | Returns the window name as will be listed in dmenu.
---   Lowercased, for your convenience (since dmenu is case-sensitive).
 --   Tagged with the workspace ID, to guarantee uniqueness, and to let the user
 --   know where he's going.
 decorateName :: X.WindowSpace -> Window -> X String
 decorateName ws w = do
-  name <- fmap (map toLower . show) $ getName w
+  name <- fmap show $ getName w
   return $ name ++ " [" ++ W.tag ws ++ "]"