diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-01-10 22:08:40 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-01-10 22:08:40 -0700 |
| commit | 0f05c8b099cc6a1f6299f095d96e6a79d4a96b4c (patch) | |
| tree | 4d9c9c0bdf56cd81f55c8604d01a7ae20a5725e5 /src/Internal/DMenu.hs | |
| parent | b3692bd5a676f07e926f7a0b36b43d4efaaa5c1c (diff) | |
| parent | 39bda6b806461d879f96c25e9886022ebcc5a4c6 (diff) | |
| download | rde-0f05c8b099cc6a1f6299f095d96e6a79d4a96b4c.tar.gz rde-0f05c8b099cc6a1f6299f095d96e6a79d4a96b4c.tar.bz2 rde-0f05c8b099cc6a1f6299f095d96e6a79d4a96b4c.zip | |
Merge branch 'v017' of josher.dev:rde into v017
Diffstat (limited to 'src/Internal/DMenu.hs')
| -rw-r--r-- | src/Internal/DMenu.hs | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/Internal/DMenu.hs b/src/Internal/DMenu.hs index 850612e..f964544 100644 --- a/src/Internal/DMenu.hs +++ b/src/Internal/DMenu.hs @@ -8,6 +8,7 @@ import Data.Map (Map) import qualified Data.Map as Map import XMonad.Util.Run import Data.List (intercalate) +import Text.Printf (printf) data Colors = Colors { @@ -17,8 +18,7 @@ data Colors = runDMenu :: X () runDMenu = void $ - safeSpawn "dmenu_run" [ - "-p", "Execute ", "-l", "12", "-dim", "0.4"] + safeSpawn "rofi" ["-display-run", "Execute", "-show", "run"] runDMenuPrompt :: String -> Maybe String -> [String] -> X String runDMenuPrompt prompt color select = @@ -32,8 +32,7 @@ runDMenuPrompt prompt color select = runDMenuPromptWithMap :: String -> Maybe String -> Map String a -> X (Maybe a) runDMenuPromptWithMap prompt color map = do - let realColor = maybe [] (\c -> ["-sb", c, "-nf", c]) color - menuMapArgs "dmenu"([ - "-p", prompt, - "-l", "12", - "-dim", "0.4" ] ++ realColor) map + let realColor = maybe [] ( + \c -> ["-theme-str", printf "* {theme-color: %s;}" c]) color + menuMapArgs "rofi" + (["-p", prompt, "-dmenu"] ++ realColor) map |