From c1ae0d4e4c8a5b0d9f0cb7f58f02f36ef8198267 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 11 Nov 2024 15:29:08 -0500
Subject: use meh key for scratchpads
---
lib/xmonad.hs | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
(limited to 'lib/xmonad.hs')
diff --git a/lib/xmonad.hs b/lib/xmonad.hs
index 3c8a274..d62e078 100644
--- a/lib/xmonad.hs
+++ b/lib/xmonad.hs
@@ -108,6 +108,7 @@ scratchpads = [
NS "pavucontrol" "pavucontrol" (className =? "Pavucontrol") centerFloat
]
+
insKeys :: XConfig l -> [((KeyMask, KeySym), X ())]
insKeys conf@(XConfig {modMask = modMask}) =
[ ((modMask, xK_y), spawn "passmenu"),
@@ -117,10 +118,10 @@ insKeys conf@(XConfig {modMask = modMask}) =
((modMask, xK_u), spawn "rofi -show calc -modi calc -no-show-match -no-sort"),
-- scratchpads
- ((modMask .|. shiftMask, xK_h), namedScratchpadAction scratchpads "htop"),
- ((modMask .|. shiftMask, xK_g), namedScratchpadAction scratchpads "gotop"),
- ((modMask .|. shiftMask, xK_n), namedScratchpadAction scratchpads "nvtop"),
- ((modMask .|. shiftMask, xK_p), namedScratchpadAction scratchpads "pavucontrol"),
+ ((meh, xK_h), namedScratchpadAction scratchpads "htop"),
+ ((meh, xK_g), namedScratchpadAction scratchpads "gotop"),
+ ((meh, xK_n), namedScratchpadAction scratchpads "nvtop"),
+ ((meh, xK_p), namedScratchpadAction scratchpads "pavucontrol"),
-- refresh display via autorandr
( (modMask, xK_r),
@@ -141,6 +142,10 @@ insKeys conf@(XConfig {modMask = modMask}) =
((0, xF86XK_AudioLowerVolume), amixer "2%-"),
((0, xF86XK_AudioRaiseVolume), amixer "2%+")
]
+ where
+ -- meh key is alt + shift + control
+ meh :: KeyMask
+ meh = altMask .|. shiftMask .|. controlMask
amixer :: String -> X ()
amixer cmd = spawn $ "amixer -q sset Master " <> cmd
--
cgit v1.2.3