aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVidhu Kant Sharma <vidhukant@protonmail.ch>2021-11-29 02:17:53 +0530
committerVidhu Kant Sharma <vidhukant@protonmail.ch>2021-11-29 02:17:53 +0530
commitac4e97ef40fa725e15591ed26310b05818d57739 (patch)
tree5a78e5fe5dbbc022fac3cd2f9c36bf0775acbbc7
parentbcbad1c6911be513adc8f8664372d228ecf4cfb2 (diff)
added keybindings for all scratchpads
-rw-r--r--.config/XMonad/xmonad.hs35
1 files changed, 25 insertions, 10 deletions
diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs
index 85d13db..66d3bde 100644
--- a/.config/XMonad/xmonad.hs
+++ b/.config/XMonad/xmonad.hs
@@ -54,8 +54,9 @@ myScratchpads =
, NS "lf" "alacritty -t 'lf' -e 'lf'" (title =? "lf") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8))
, NS "calc" "kcalc" (className =? "kcalc") defaultFloating
, NS "arandr" "arandr" (className =? "Arandr") defaultFloating
- , NS "BPYTOP" "alacritty -t 'BPYTOP' -e 'bpytop'" (title =? "BPYTOP") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8))
- ] where role = stringProperty "WM_WINDOW_ROLE"
+ , NS "pavucontrol" "pavucontrol" (className =? "Pavucontrol") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8))
+ , NS "BPYTOP" "alacritty -t 'BPYTOP' -e 'bpytop'" (title =? "BPYTOP") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8))
+ ]
myTabTheme = def { fontName = myFont
, activeColor = "#755999"
@@ -116,14 +117,15 @@ gamingTS =
myGamingTS a = TS.treeselectAction a gamingTS
scratchpadTS =
- [ Node (TS.TSNode "Term 0" "" (namedScratchpadAction myScratchpads "Term 0")) []
- , Node (TS.TSNode "Term 1" "" (namedScratchpadAction myScratchpads "Term 1")) []
- , Node (TS.TSNode "Term 2" "" (namedScratchpadAction myScratchpads "Term 2")) []
- , Node (TS.TSNode "OBS" "" (namedScratchpadAction myScratchpads "OBS")) []
- , Node (TS.TSNode "lf" "" (namedScratchpadAction myScratchpads "lf")) []
- , Node (TS.TSNode "BPYTOP" "" (namedScratchpadAction myScratchpads "BPYTOP")) []
- , Node (TS.TSNode "Calculator" "" (namedScratchpadAction myScratchpads "calc")) []
- , Node (TS.TSNode "Arandr" "" (namedScratchpadAction myScratchpads "arandr")) []
+ [ Node (TS.TSNode "Term 0" "" (namedScratchpadAction myScratchpads "Term 0")) []
+ , Node (TS.TSNode "Term 1" "" (namedScratchpadAction myScratchpads "Term 1")) []
+ , Node (TS.TSNode "Term 2" "" (namedScratchpadAction myScratchpads "Term 2")) []
+ , Node (TS.TSNode "OBS" "" (namedScratchpadAction myScratchpads "OBS")) []
+ , Node (TS.TSNode "lf" "" (namedScratchpadAction myScratchpads "lf")) []
+ , Node (TS.TSNode "BPYTOP" "" (namedScratchpadAction myScratchpads "BPYTOP")) []
+ , Node (TS.TSNode "Calculator" "" (namedScratchpadAction myScratchpads "calc")) []
+ , Node (TS.TSNode "Arandr" "" (namedScratchpadAction myScratchpads "arandr")) []
+ , Node (TS.TSNode "Pavucontrol" "" (namedScratchpadAction myScratchpads "pavucontrol")) []
]
myScratchpadTS a = TS.treeselectAction a scratchpadTS
@@ -308,4 +310,17 @@ main = do
, ("M-S-<Return>", myPowerTS myTSConfig)
, ("M-p", myTreeMenu myTSConfig)
, ("M-S-p", spawn "dmenu_run")
+ -- scratchpads
+ , ("M-r", namedScratchpadAction myScratchpads "Term 0")
+ , ("M-t", namedScratchpadAction myScratchpads "Term 1")
+ , ("M-y", namedScratchpadAction myScratchpads "Term 2")
+ , ("M-S-o", namedScratchpadAction myScratchpads "OBS")
+ , ("M-m", namedScratchpadAction myScratchpads "BPYTOP")
+ , ("M-S-m", namedScratchpadAction myScratchpads "calc")
+ , ("M-n", namedScratchpadAction myScratchpads "pavucontrol")
+ , ("M-S-n", namedScratchpadAction myScratchpads "arandr")
+ , ("M-b", namedScratchpadAction myScratchpads "lf")
+ -- other apps
+ , ("M-S-b", spawn "dolphin")
]
+ -- used keys: u x e w o i p r t y q n b