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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
module KeyBindings where
import Defaults
import Graphics.X11.ExtraTypes.XF86
import XMonad
import XMonad.Actions.CycleWS
import XMonad.Actions.FindEmptyWorkspace
import XMonad.Layout.Gaps
import XMonad.Layout.MultiToggle
import XMonad.Layout.MultiToggle.Instances
import XMonad.Util.Paste
import XMonad.Util.Run
import qualified Data.Map as M
import qualified WindowState as WS
import qualified XMonad.StackSet as W
myKeys :: XConfig Layout -> M.Map (KeyMask, KeySym) (X ())
myKeys conf@(XConfig{XMonad.modMask = modm}) =
M.fromList $
[ ((modm .|. shiftMask, xK_Return), safeSpawn (XMonad.terminal conf) [])
, ((modm, xK_b), safeSpawn myBrowser [])
, ((modm .|. shiftMask, xK_c), kill)
, ((modm, xK_n), refresh)
, ((modm, xK_q), spawn "xmonad --recompile && xmonad --restart")
, ((modm, xK_f), sendMessage $ Toggle FULL)
, ((modm .|. shiftMask, xK_f), withFocused WS.toggleFloat)
, ((modm, xK_space), sendMessage NextLayout)
, ((modm, xK_Tab), windows W.focusDown)
, ((modm, xK_j), windows W.focusDown)
, ((modm, xK_k), windows W.focusUp)
, ((modm, xK_m), windows W.focusMaster)
, ((modm .|. shiftMask, xK_j), windows W.swapDown)
, ((modm .|. shiftMask, xK_k), windows W.swapUp)
, ((modm, xK_Return), windows W.swapMaster)
, ((modm, xK_h), sendMessage Expand)
, ((modm, xK_l), sendMessage Shrink)
, ((modm, xK_Tab), toggleWS)
, ((modm, xK_e), viewEmptyWorkspace)
, ((modm .|. shiftMask, xK_e), tagToEmptyWorkspace)
, ((modm, xK_t), withFocused $ windows . W.sink)
, ((modm, xK_r), spawn "rofi -show drun")
, ((altMask, xK_Tab), spawn "rofi -show window")
, ((modm, xK_p), spawn "snapshot -f")
, ((modm .|. shiftMask, xK_p), spawn "snapshot")
, ((0, xF86XK_AudioPrev), spawn "mpc prev")
, ((0, xF86XK_AudioNext), spawn "mpc next")
, ((0, xF86XK_AudioPlay), spawn "mpc toggle")
, ((0, xF86XK_AudioRaiseVolume), spawn "pamixer -i 5")
, ((0, xF86XK_AudioLowerVolume), spawn "pamixer -d 5")
, ((0, xF86XK_AudioMute), spawn "pamixer -t")
]
++
[ ((m .|. modm, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
]
|
