diff options
Diffstat (limited to 'xmonad.hs')
-rw-r--r-- | xmonad.hs | 25 |
1 files changed, 18 insertions, 7 deletions
@@ -2,23 +2,34 @@ import XMonad | |||
2 | import XMonad.Config.Desktop | 2 | import XMonad.Config.Desktop |
3 | import XMonad.Layout.NoBorders | 3 | import XMonad.Layout.NoBorders |
4 | import XMonad.Layout.Tabbed | 4 | import XMonad.Layout.Tabbed |
5 | import XMonad.Layout.AvoidFloats | ||
6 | import XMonad.Layout.Monitor | ||
7 | import XMonad.Util.EZConfig (additionalKeys) | ||
8 | import XMonad.Actions.PhysicalScreens | ||
5 | 9 | ||
6 | main :: IO () | 10 | main :: IO () |
7 | main = xmonad | 11 | main = xmonad $ desktopConfig { |
8 | desktopConfig { | ||
9 | terminal = "xterm" | 12 | terminal = "xterm" |
10 | -- , layoutHook = noBorders Full ||| noBorders (tabbed shrinkText def) ||| layoutHook desktopConfig | ||
11 | , layoutHook = desktopLayoutModifiers layouts | 13 | , layoutHook = desktopLayoutModifiers layouts |
12 | , modMask = mod4Mask | 14 | , modMask = theModMask |
13 | } | 15 | } `additionalKeys` myKeys |
14 | 16 | ||
15 | where | 17 | where |
16 | 18 | ||
19 | theModMask = mod4Mask | ||
20 | modm = theModMask | ||
21 | |||
22 | myKeys = [((theModMask, xK_u ), broadcastMessage ToggleMonitor >> refresh)] ++ fixScreenOrder | ||
23 | |||
24 | fixScreenOrder = [((modm .|. mask, key), f sc) | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..], | ||
25 | (f, mask) <- [(viewScreen def, 0), (sendToScreen def, shiftMask)]] | ||
26 | |||
17 | layouts = noBorders Full | 27 | layouts = noBorders Full |
18 | ||| noBorders (tabbed shrinkText def) | 28 | ||| noBorders (tabbed shrinkText def) |
19 | ||| smartBorders tiled | 29 | ||| smartBorders tiled |
20 | ||| smartBorders (Mirror tiled) | 30 | ||| smartBorders (Mirror tiled) |
21 | tiled = Tall nmaster delta ratio | 31 | tiled = avoidFloats $ Tall nmaster delta ratio |
22 | nmaster = 1 -- The default number of windows in the master pane | 32 | nmaster = 1 -- The default number of windows in the master pane |
23 | ratio = 1 / 2 -- Default proportion of screen occupied by master pane | 33 | ratio = 2 / 3 -- Default proportion of screen occupied by master pane |
24 | delta = 3 / 100 -- Percent of screen to increment by when resizing panes | 34 | delta = 3 / 100 -- Percent of screen to increment by when resizing panes |
35 | |||