First steps: Keybindings, ewmh, xmobar..

This commit is contained in:
ramazanemreosmanoglu 2022-10-23 13:32:00 +03:00
parent 600cbd707f
commit c78f618366

View file

@ -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"