diff options
Diffstat (limited to '.config/XMonad/lib')
| -rw-r--r-- | .config/XMonad/lib/Defaults.hs | 2 | ||||
| -rw-r--r-- | .config/XMonad/lib/Scratchpads.hs | 26 |
2 files changed, 20 insertions, 8 deletions
diff --git a/.config/XMonad/lib/Defaults.hs b/.config/XMonad/lib/Defaults.hs index de162d6..e132b09 100644 --- a/.config/XMonad/lib/Defaults.hs +++ b/.config/XMonad/lib/Defaults.hs @@ -24,7 +24,7 @@ myLockscreen = "notify-send 'to be set up!' 'to be set up!'" myColorPicker = "colorpicker --short --one-shot --preview | xsel -b" myTerminal = "open_terminal" -myTerminal' = "alacritty" +myTerminal' = "WINIT_X11_SCALE_FACTOR=1.5 alacritty" myLauncher = "dmenu_run" volUp = "pamixer -i 5" diff --git a/.config/XMonad/lib/Scratchpads.hs b/.config/XMonad/lib/Scratchpads.hs index 7ccf044..8769437 100644 --- a/.config/XMonad/lib/Scratchpads.hs +++ b/.config/XMonad/lib/Scratchpads.hs @@ -4,18 +4,30 @@ import XMonad import qualified XMonad.StackSet as W import XMonad.Util.NamedScratchpad +import Defaults + -- open a scratchpad myScratchpad :: String -> X () myScratchpad x = namedScratchpadAction myScratchpads x +-- if I try to concatinate strings directly +-- it won't compile for some reason +term0Cmd = myTerminal' ++ " -t 'Term U'" +term1Cmd = myTerminal' ++ " -t 'Term I'" +term2Cmd = myTerminal' ++ " -t 'Term O'" +term3Cmd = myTerminal' ++ " -t 'Term P'" +lfCmd = myTerminal' ++ " -t 'lf' -e 'lf'" +nmtuiCmd = myTerminal' ++ " -t 'nmtui' -e 'nmtui'" +bpytopCmd = myTerminal' ++ " -t 'BPYTOP' -e 'bpytop'" + 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 "Term 0" term0Cmd (title =? "Term U") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "Term 1" term1Cmd (title =? "Term I") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "Term 2" term2Cmd (title =? "Term O") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "Term 3" term3Cmd (title =? "Term P") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "lf" lfCmd (title =? "lf") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "nmtui" nmtuiCmd (title =? "nmtui") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "BPYTOP" bpytopCmd (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)) |