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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
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
myColemak modm =
[ ((modm, xK_h), refresh)
, ((modm, xK_t), sendMessage $ Toggle FULL)
, ((modm .|. shiftMask, xK_t), withFocused WS.toggleFloat)
, ((modm, xK_space), sendMessage NextLayout)
, ((modm, xK_n), windows W.focusDown)
, ((modm, xK_e), windows W.focusUp)
, ((modm, xK_h), windows W.focusMaster)
, ((modm .|. shiftMask, xK_n), windows W.swapDown)
, ((modm .|. shiftMask, xK_e), windows W.swapUp)
, ((modm, xK_Return), windows W.swapMaster)
, ((modm, xK_m), sendMessage Expand)
, ((modm, xK_i), sendMessage Shrink)
, ((modm, xK_Tab), toggleWS)
, ((modm, xK_f), viewEmptyWorkspace)
, ((modm .|. shiftMask, xK_f), tagToEmptyWorkspace)
, ((modm, xK_b), withFocused $ windows . W.sink)
, ((modm, xK_x), spawn "emacsclient -cn")
, ((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")
]
myQwerty modm =
[ ((modm, xK_n), refresh)
, ((modm, xK_f), sendMessage $ Toggle FULL)
, ((modm .|. shiftMask, xK_f), withFocused WS.toggleFloat)
, ((modm, xK_space), sendMessage NextLayout)
, ((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_x), spawn "emacsclient -cn")
, ((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")
]
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_q), spawn "xmonad --recompile && xmonad --restart")
, ((0, xF86XK_AudioPrev), spawn "mpc prev")
, ((0, xF86XK_AudioNext), spawn "mpc next")
, ((0, xF86XK_AudioPlay), spawn "mpc toggle")
, ((0, xF86XK_AudioRaiseVolume), spawn "wpctl set-volume -l 1 @DEFAULT_AUDIO_SINK@ 5%+")
, ((0, xF86XK_AudioLowerVolume), spawn "wpctl set-volume @DEFAULT_AUDIO_SINK@ 5%-")
, ((0, xF86XK_AudioMute), spawn "wpctl set-mute @DEFAULT_AUDIO_SINK@ toggle")
, ((0, xF86XK_AudioMicMute), spawn "wpctl set-mute @DEFAULT_AUDIO_SOURCE@ toggle")
]
++
-- Workspace management.
[ ((m .|. modm, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
]
++
-- Layout-specific bindings.
myColemak modm
|
