ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH make rofi case insensitive

This commit is contained in:
Nathan Dwarshuis 2020-07-28 22:14:14 -04:00
parent 9f91b1939c
commit 217e524271
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/XMonad/Internal/Command/DMenu.hs
View File

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