diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-01-10 21:22:19 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | 54f78b2b145edd2ce2f0f1bae1d92a6fb76f0c61 (patch) | |
| tree | a18a4349ec82494903a813809271d59e6c22c50a /src | |
| parent | c8931aef4a2ffab40fb75830077210d810e50b55 (diff) | |
| download | rde-54f78b2b145edd2ce2f0f1bae1d92a6fb76f0c61.tar.gz rde-54f78b2b145edd2ce2f0f1bae1d92a6fb76f0c61.tar.bz2 rde-54f78b2b145edd2ce2f0f1bae1d92a6fb76f0c61.zip | |
Convert run menus over to Rofi.
This makes things prettier and rofi is more feature rich than DMenu.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Internal/DMenu.hs | 13 | ||||
| -rw-r--r-- | src/Internal/PassMenu.hs | 8 |
2 files changed, 9 insertions, 12 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 diff --git a/src/Internal/PassMenu.hs b/src/Internal/PassMenu.hs index 7374bed..bb3bc4d 100644 --- a/src/Internal/PassMenu.hs +++ b/src/Internal/PassMenu.hs @@ -6,10 +6,8 @@ import Control.Monad runPassMenu :: X () runPassMenu = void $ - safeSpawn "passmenu" [ + safeSpawn "rofi-pass" [ "-p", "Password ", - "-l", "12", - "-dim", "0.4", - "-sb", "#f54245", - "-nf", "#f54245" ] + "-theme-str", + "* {theme-color: #f54245;}"] |