reo/dotfiles
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add constant for keybindings on xmonad

Browse source
This commit is contained in:
ramazanemreosmanoglu 2022-10-25 19:55:51 +03:00
parent a15eaa5d4a
commit 5e1d3b7416
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
.config/xmonad/xmonad.hs
View file

@ -15,15 +15,8 @@ main = do
, normalBorderColor = myNormalBorderColor , normalBorderColor = myNormalBorderColor
, startupHook = myStartupHook , startupHook = myStartupHook
} }
`additionalKeysP` `additionalKeysP` myKeybindings
[ ("M-e", spawn myEmacs)
, ("M-f", spawn myBrowser)
, ("<XF86MonBrightnessUp>", 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)
]
myTerminal = "alacritty" myTerminal = "alacritty"
myModMask = mod4Mask myModMask = mod4Mask
@ -38,3 +31,13 @@ myStartupHook :: X ()
myStartupHook = do myStartupHook = do
spawnOnce "/usr/bin/xmobar" spawnOnce "/usr/bin/xmobar"
spawn $ "feh --bg-scale " ++ myWallpaper spawn $ "feh --bg-scale " ++ myWallpaper
myKeybindings :: [(String, X())]
myKeybindings = [ ("M-e", spawn myEmacs)
, ("M-f", spawn myBrowser)
, ("<XF86MonBrightnessUp>", 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)
]