Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import XMonad
- import XMonad.Util.EZConfig(additionalKeysP)
- import XMonad.Util.SpawnOnce(spawnOnce)
- import XMonad.Util.Run(spawnPipe)
- import XMonad.Prompt
- import XMonad.Prompt.Shell(shellPrompt)
- import XMonad.Hooks.DynamicLog
- import XMonad.Hooks.EwmhDesktops
- import XMonad.Actions.PhysicalScreens(viewScreen, sendToScreen)
- myConfig = def
- { terminal = "kitty"
- , modMask = mod4Mask
- , borderWidth = 1
- , startupHook = myStartupHook
- }
- `additionalKeysP`
- [ ("M-<Return>", spawn "kitty")
- , ("M-p", shellPrompt amberXPConfig)
- , ("M-w", viewScreen def 0)
- , ("M-e", viewScreen def 1)
- , ("M-S-w", sendToScreen def 0)
- , ("M-S-e", sendToScreen def 1)
- , ("M-c", kill)
- ]
- myStartupHook = do
- spawnOnce "xset r rate 150 50"
- spawnOnce "nitrogen --restore"
- spawnOnce "picom -b"
- spawnOnce "xsetroot -cursor_name left_ptr"
- spawnOnce "xrandr --output eDP-1 --mode 1920x1080 --pos 0x0 --rotate normal --output DP-1 --off --output HDMI-1 --off --output HDMI-2 --primary --mode 1360x768 --pos 1920x0 --rotate normal"
- spawnOnce "trayer --monitor 1 --align right --width 10 --height 18 --transparent true --tint 0 --alpha 0"
- main = xmonad . ewmhFullscreen . ewmh . xmobarProp $ myConfig
Advertisement
Add Comment
Please, Sign In to add comment