First steps: Keybindings, ewmh, xmobar..
This commit is contained in:
parent
600cbd707f
commit
c78f618366
1 changed files with 14 additions and 6 deletions
|
|
@ -1,22 +1,30 @@
|
||||||
import XMonad
|
import XMonad
|
||||||
import XMonad.Util.EZConfig (additionalKeysP)
|
import XMonad.Util.EZConfig (additionalKeysP)
|
||||||
|
import XMonad.Hooks.DynamicLog
|
||||||
|
import XMonad.Hooks.StatusBar
|
||||||
|
import XMonad.Hooks.StatusBar.PP
|
||||||
|
import XMonad.Hooks.EwmhDesktops
|
||||||
|
|
||||||
main = do
|
main = do
|
||||||
xmonad $ def
|
xmonad . ewmhFullscreen . ewmh $ def
|
||||||
{ terminal = myTerminal
|
{ terminal = myTerminal
|
||||||
, modMask = myModMask
|
, modMask = myModMask
|
||||||
, borderWidth = myBorderWidth
|
, borderWidth = myBorderWidth
|
||||||
|
, focusedBorderColor = "#749F82"
|
||||||
|
, normalBorderColor = "#425F57"
|
||||||
}
|
}
|
||||||
`additionalKeysP`
|
`additionalKeysP`
|
||||||
[ ("M-e", spawn myEmacs)
|
[ ("M-e", spawn myEmacs)
|
||||||
, ("M-b", spawn myBrowser)
|
, ("M-v", spawn myBrowser)
|
||||||
, ("<XF86MonBrightnessUp>", spawn "brightnessctl s +2%")
|
, ("<XF86MonBrightnessUp>", spawn "brightnessctl s +2%")
|
||||||
, ("<XF86MonBrightnessDown>", spawn "brightnessctl s 2%-")
|
, ("<XF86MonBrightnessDown>", spawn "brightnessctl s 2%-")
|
||||||
|
, ("<XF86AudioRaiseVolume>", spawn "amixer -q sset Master 3%+")
|
||||||
|
, ("<XF86AudioLowerVolume>", spawn "amixer -q sset Master 3%-")
|
||||||
, ("M-<Return>", spawn myTerminal)
|
, ("M-<Return>", spawn myTerminal)
|
||||||
]
|
]
|
||||||
|
|
||||||
myTerminal = "alacritty"
|
myTerminal = "alacritty"
|
||||||
myModMask = mod4Mask
|
myModMask = mod4Mask
|
||||||
myBorderWidth = 3
|
myBorderWidth = 5
|
||||||
myEmacs = "emacsclient -c -a 'emacs' "
|
myEmacs = "emacsclient -c -a 'emacs' "
|
||||||
myBrowser = "firefox"
|
myBrowser = "firefox"
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue