From 54f78b2b145edd2ce2f0f1bae1d92a6fb76f0c61 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 10 Jan 2022 21:22:19 -0700
Subject: Convert run menus over to Rofi.

This makes things prettier and rofi is more feature rich than DMenu.
---
 src/Internal/DMenu.hs | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'src/Internal/DMenu.hs')

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
-- 
cgit