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
|
module Keybindings where
import XMonad
import XMonad.Actions.CycleWS
import Defaults
myMouseKeybindings :: [((ButtonMask, Button), Window -> X ())]
myMouseKeybindings = [
((myModMask, 4), \w -> prevWS)
, ((myModMask, 5), \w -> nextWS)
, ((myModShiftMask, 4), \w -> shiftToPrev >> prevWS)
, ((myModShiftMask, 5), \w -> shiftToNext >> nextWS)
]
myFnKeybindingsP :: [(String, X())]
myFnKeybindingsP = [
("<XF86MonBrightnessUp>", spawn backlightUp)
, ("<XF86MonBrightnessDown>", spawn backlightDown)
, ("<XF86AudioRaiseVolume>", spawn volUp)
, ("<XF86AudioLowerVolume>", spawn volDown)
, ("<XF86AudioMute>", spawn volMute)
, ("<XF86AudioPlay>", spawn pausePlay)
, ("<XF86AudioPause>", spawn pausePlay)
, ("<Pause>", spawn pausePlay)
]
|
