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 +-
 src/Internal/Keys.hs  | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+), 1 deletion(-)

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
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 936b12a..27315cd 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE RankNTypes #-}
 module Internal.Keys (applyKeys) where
 
+import Control.Monad.Fix (fix)
 import Graphics.X11.ExtraTypes.XF86;
 import Internal.KeysM
 import Internal.SwapMaster (swapMaster)
@@ -206,6 +207,23 @@ keymap = runKeys $ do
     shiftMod $ withFocused $ windows . W.sink 
     altMod   $ spawn (terminal config ++ " -t Floating\\ Term")
 
+  bind xK_v $
+    -- Allows repeated strokes of M-h and M-l to reduce and increase volume
+    -- respectively.
+    justMod $ fix $ \recur -> subkeys $ do
+      bind xK_h $ do
+        justMod $ do
+           spawn "pactl set-sink-volume @DEFAULT_SINK@ -5%"
+           recur
+
+      bind xK_l $ do
+        justMod $ do
+           spawn "pactl set-sink-volume @DEFAULT_SINK@ +5%"
+           recur
+
+      bind xK_v $ do
+        justMod $ recur
+
   bind xK_w $ do
     justMod windowJump
 
-- 
cgit