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
|
--
-- It overrides a few basic settings, reusing all other defaults.
--
import XMonad
import XMonad.Actions.WindowGo
import XMonad.Hooks.FadeInactive
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Util.EZConfig
import qualified XMonad.StackSet as W
myLogHook :: X ()
myLogHook = fadeOutLogHook fadeRules
fadeRules :: Query Rational
fadeRules = do
fullscreen <- isFullscreen
conkeror <- className =? "Conkeror"
chromium <- className =? "Chromium"
mplayer <- className =? "MPlayer"
return $ case () of _ | fullscreen -> 1
| conkeror -> 0.95
| chromium -> 1
| mplayer -> 1
| otherwise -> 0.9
main = xmonad $ defaultConfig
{ terminal = "urxvt"
, focusFollowsMouse = False
, clickJustFocuses = False
, modMask = mod4Mask
, layoutHook = avoidStruts $ layoutHook defaultConfig
, logHook = myLogHook
, manageHook = manageHook defaultConfig <+> manageDocks }
`additionalKeysP`
[
("C-z ,", screenWorkspace 0 >>= flip whenJust (windows . W.view)),
("C-z .", screenWorkspace 1 >>= flip whenJust (windows . W.view)),
("C-z S-c", spawn "urxvt"),
("C-z S-e", spawn "editor"),
("C-z c", runOrRaiseNext "urxvt" (className =? "URxvt")),
("C-z e", runOrRaiseNext "editor" (className =? "Emacs")),
("C-z w", runOrRaiseNext "conkeror" (className =? "Conkeror")),
("M-S-1", spawn "dmenu_run"),
("M-n", windows W.focusDown),
("M-p", windows W.focusUp),
("M1-C-l", spawn "i3lock -c 000000"),
("<XF86AudioPlay>", spawn "mpc toggle"),
("<XF86AudioStop>", spawn "mcp stop"),
("<XF86AudioMute>", spawn "amixer sset Master toggle"),
("<XF86AudioLowerVolume>", spawn "mpc volume -5"),
("<XF86AudioRaiseVolume>", spawn "mpc volume +5"),
("<XF86AudioPrev>", spawn "mpc prev"),
("<XF86AudioNext>", spawn "mpc next")
]
`removeKeysP`
[ ("M-j"), ("M-k") ]
|
