diff options
Diffstat (limited to 'src/Internal')
| -rw-r--r-- | src/Internal/DMenu.hs | 2 | ||||
| -rw-r--r-- | src/Internal/Keys.hs | 18 |
2 files changed, 19 insertions, 1 deletions
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 |