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')

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