From 663657bc5c691d0d08f9069e6918842af7735090 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Tue, 11 Jan 2022 19:45:24 -0700
Subject: Better Rofi integration

---
 src/Internal/DMenu.hs | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

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

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


From 0bde08d5180d08ef102d3d5bff0f50f2e7533e4e Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Thu, 13 Jan 2022 13:55:48 -0700
Subject: Added ability to control volume with <C-v>hhhh* and <C-v><C-llll*

---
 src/Internal/DMenu.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/Internal/DMenu.hs b/src/Internal/DMenu.hs
index b611d87..0ec7927 100644
--- a/src/Internal/DMenu.hs
+++ b/src/Internal/DMenu.hs
@@ -17,7 +17,7 @@ data Colors =
   }  | DefaultColors
 
 menuCommand :: [String]
-menuCommand = ["rofi", "-monitor", "-4", "-dmenu"]
+menuCommand = ["rofi", "-monitor", "-4", "-dmenu", "-sort", "-levenshtein-sort"]
 
 menuCommandString :: String
 menuCommandString = unwords menuCommand
-- 
cgit