|
|
@ -26,6 +26,12 @@ import Data.Monoid (All (All))
|
|
26
|
26
|
(??) :: Query a -> (a -> Bool) -> Query Bool
|
|
27
|
27
|
(??) = flip fmap
|
|
28
|
28
|
|
|
|
29
|
myLayout = Full ||| tiled ||| Mirror tiled
|
|
|
30
|
where tiled = Tall nmaster delta ratio
|
|
|
31
|
nmaster = 1
|
|
|
32
|
ratio = 1/2
|
|
|
33
|
delta = 3/100
|
|
|
34
|
|
|
29
|
35
|
main = do
|
|
30
|
36
|
xmonad $ ewmh $ pagerHints $ defaultConfig {
|
|
31
|
37
|
modMask = mod4Mask,
|
|
|
@ -41,7 +47,7 @@ main = do
|
|
41
|
47
|
fullscreenManageHook
|
|
42
|
48
|
] <+> manageHook defaultConfig,
|
|
43
|
49
|
-- Don't overwrite the section used by docks
|
|
44
|
|
layoutHook = avoidStruts $ smartBorders $ layoutHook defaultConfig,
|
|
|
50
|
layoutHook = avoidStruts $ smartBorders $ myLayout,
|
|
45
|
51
|
handleEventHook = fullscreenEventHook
|
|
46
|
52
|
} `additionalKeys` ([
|
|
47
|
53
|
((mod4Mask, xK_b), spawnHere "firefox"),
|