1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
import XMonad
import XMonad.Config.Desktop
-- Utilities
import XMonad.Util.SpawnOnce
import XMonad.Util.EZConfig(additionalKeysP)
myModMask = mod4Mask
myTerminal = "konsole"
myTextEditor = "vim"
myBorderWidth = 2
main = do
xmonad $ desktopConfig
{ modMask = myModMask
, terminal = myTerminal
, startupHook = myStartupHook
, borderWidth = myBorderWidth
, normalBorderColor = "#292d3e"
, focusedBorderColor = "#bbc5ff"
} `additionalKeysP` myKeys
myStartupHook = do
spawnOnce "redshift -c /home/charles/.config/redshift.conf &"
spawnOnce "xinput disable 'ETPS/2 Elantech Touchpad' &"
myKeys = [ ("<XF86AudioRaiseVolume>", spawn "pulseaudio-ctl up")
, ("<XF86AudioLowerVolume>", spawn "pulseaudio-ctl down")
, ("<XF86AudioMute>", spawn "pulseaudio-ctl mute")
, ("<XF86MonBrightnessUp>", spawn "xbacklight -inc 5")
, ("<XF86MonBrightnessDown>", spawn "xbacklight -dec 5")
]
|
