diff options
| author | Josh Rahm <rahm@google.com> | 2022-01-11 19:45:24 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | af5c22d22e97ad3096599013b3faa948e5e018b8 (patch) | |
| tree | 35577f688547a58b85beca87bcf7bbae3ef34409 /src/Internal/DMenu.hs | |
| parent | 2de3873a28a08b43c3185d4179a1bdb8a922523c (diff) | |
| download | rde-af5c22d22e97ad3096599013b3faa948e5e018b8.tar.gz rde-af5c22d22e97ad3096599013b3faa948e5e018b8.tar.bz2 rde-af5c22d22e97ad3096599013b3faa948e5e018b8.zip | |
Better Rofi integration
Diffstat (limited to 'src/Internal/DMenu.hs')
| -rw-r--r-- | src/Internal/DMenu.hs | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/Internal/DMenu.hs b/src/Internal/DMenu.hs index f964544..b611d87 100644 --- a/src/Internal/DMenu.hs +++ b/src/Internal/DMenu.hs @@ -16,9 +16,17 @@ data Colors = bg :: String } | DefaultColors +menuCommand :: [String] +menuCommand = ["rofi", "-monitor", "-4", "-dmenu"] + +menuCommandString :: String +menuCommandString = unwords menuCommand + runDMenu :: X () runDMenu = void $ - safeSpawn "rofi" ["-display-run", "Execute", "-show", "run"] + safeSpawn + "rofi" + ["-monitor", "-4", "-display-run", "Execute", "-show", "run"] runDMenuPrompt :: String -> Maybe String -> [String] -> X String runDMenuPrompt prompt color select = @@ -34,5 +42,5 @@ runDMenuPromptWithMap :: String -> Maybe String -> Map String a -> X (Maybe a) runDMenuPromptWithMap prompt color map = do let realColor = maybe [] ( \c -> ["-theme-str", printf "* {theme-color: %s;}" c]) color - menuMapArgs "rofi" - (["-p", prompt, "-dmenu"] ++ realColor) map + menuMapArgs (head menuCommand) + (tail menuCommand ++ ["-p", prompt] ++ realColor) map |