diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-01-10 21:22:19 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-01-10 21:29:19 -0700 |
| commit | 863514ef9c4da3cce8410f89e1b4c547cc31cf6f (patch) | |
| tree | 5d4ad8bd8eb53ff7d72d41cba47a8b4fb1ca0fa7 /src/Internal/DMenu.hs | |
| parent | 0e4b0187167e43c3c00371cbcca5cc892521bdb2 (diff) | |
| download | rde-863514ef9c4da3cce8410f89e1b4c547cc31cf6f.tar.gz rde-863514ef9c4da3cce8410f89e1b4c547cc31cf6f.tar.bz2 rde-863514ef9c4da3cce8410f89e1b4c547cc31cf6f.zip | |
Convert run menus over to Rofi.
This makes things prettier and rofi is more feature rich than DMenu.
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..360ad58 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" ["-p", "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 |