diff options
| author | Ben Sima <ben@bsima.me> | 2024-11-11 15:29:08 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2024-11-11 15:29:08 -0500 |
| commit | c1ae0d4e4c8a5b0d9f0cb7f58f02f36ef8198267 (patch) | |
| tree | 0d5910661042698c1ec14ffe736c39f91b566e3f | |
| parent | 11ab8452f88d90db6082340b299f1ea950f12b34 (diff) | |
use meh key for scratchpads
| -rw-r--r-- | lib/xmonad.hs | 13 |
1 files changed, 9 insertions, 4 deletions
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 |