From 217e524271a46e938a5f3b38ec8b83aba3fbd1fe Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Tue, 28 Jul 2020 22:14:14 -0400
Subject: [PATCH] ENH make rofi case insensitive

---
 lib/XMonad/Internal/Command/DMenu.hs | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/lib/XMonad/Internal/Command/DMenu.hs b/lib/XMonad/Internal/Command/DMenu.hs
index 4096e15..7db6c5d 100644
--- a/lib/XMonad/Internal/Command/DMenu.hs
+++ b/lib/XMonad/Internal/Command/DMenu.hs
@@ -41,6 +41,9 @@ devSecrets = concatMap (\x -> ["-s", x])
   , "/media/ndwar/MC3M:user=ndwarshuis3@gatech.edu,host=outlook.office365.com"
   ]
 
+myDmenuMatchingArgs :: [String]
+myDmenuMatchingArgs = ["-i"] -- case insensitivity
+
 runDevMenu :: X ()
 runDevMenu = spawnCmd "rofi-dev" $ devSecrets ++ rofiArgs
   where
@@ -48,26 +51,29 @@ runDevMenu = spawnCmd "rofi-dev" $ devSecrets ++ rofiArgs
       [ "--"
       , "-theme-str"
       , "'#element.selected.normal { background-color: #999933; }'"
-      ]
+      ] ++
+      myDmenuMatchingArgs
 
 runBwMenu :: X ()
-runBwMenu = spawnCmd "rofi-bw"
-  ["-c"
+runBwMenu = spawnCmd "rofi-bw" $
+  [ "-c"
   , "--"
   , "-theme-str"
   , "'#element.selected.normal { background-color: #bb6600; }'"
-  ]
+  ] ++
+  myDmenuMatchingArgs
 
 runShowKeys :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
 runShowKeys x = addName "Show Keybindings" $ do
   (h, _, _, _) <- io $ createProcess' $ (shell' cmd) { std_in = CreatePipe }
   io $ forM_ h $ \h' -> hPutStr h' (unlines $ showKm x) >> hClose h'
-  where cmd = fmtCmd myDmenuCmd
+  where cmd = fmtCmd myDmenuCmd $
           [ "-dmenu"
           , "-p", "commands"
           , "-theme-str"
           , "'#element.selected.normal { background-color: #a200ff; }'"
-          ]
+          ] ++
+          myDmenuMatchingArgs
 
 runCmdMenu :: X ()
 runCmdMenu = spawnDmenuCmd ["-show", "run"]