blob: 7ccf044973a22b7cf6192b04695cce43ba4b59f9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
module Scratchpads where
import XMonad
import qualified XMonad.StackSet as W
import XMonad.Util.NamedScratchpad
-- open a scratchpad
myScratchpad :: String -> X ()
myScratchpad x = namedScratchpadAction myScratchpads x
myScratchpads =
[ NS "Term 0" "alacritty -t 'Term U'" (title =? "Term U") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8))
, NS "Term 1" "alacritty -t 'Term I'" (title =? "Term I") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8))
, NS "Term 2" "alacritty -t 'Term O'" (title =? "Term O") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8))
, NS "Term 3" "alacritty -t 'Term P'" (title =? "Term P") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8))
, NS "lf" "alacritty -t 'lf' -e 'lf'" (title =? "lf") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8))
, NS "nmtui" "alacritty -t 'nmtui' -e 'nmtui'" (title =? "nmtui") (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))
, NS "arandr" "arandr" (className =? "Arandr") (customFloating $ W.RationalRect (1/4) (1/4) (1/2) (1/2))
, NS "calc" "galculator" (className =? "Galculator") (customFloating $ W.RationalRect (5/13) (4/13) (3/13) (6/13))
, NS "blueman" "blueman-manager" (className =? "Blueman-manager") (customFloating $ W.RationalRect (5.5/16) (4/13) (5/16) (6/13))
, NS "pavucontrol" "pavucontrol" (className =? "Pavucontrol") (customFloating $ W.RationalRect (3/12) (1/12) (3/6) (5/6))
, NS "wallpaper" "nitrogen" (className =? "Nitrogen") (customFloating $ W.RationalRect (3/12) (1/12) (3/6) (5/6))
]
|
