diff options
-rw-r--r-- | xmonad-config.cabal | 2 | ||||
-rw-r--r-- | xmonad.hs | 24 |
2 files changed, 20 insertions, 6 deletions
diff --git a/xmonad-config.cabal b/xmonad-config.cabal index 7d2a5c0..6b890b8 100644 --- a/xmonad-config.cabal +++ b/xmonad-config.cabal | |||
@@ -6,6 +6,6 @@ cabal-version: >=1.10 | |||
6 | 6 | ||
7 | executable xmonad-config-exe | 7 | executable xmonad-config-exe |
8 | main-is: xmonad.hs | 8 | main-is: xmonad.hs |
9 | ghc-options: -threaded -rtsopts -with-rtsopts=-N | 9 | ghc-options: -threaded -rtsopts -with-rtsopts=-N -W -Wall -O2 |
10 | build-depends: base, xmonad, xmonad-contrib | 10 | build-depends: base, xmonad, xmonad-contrib |
11 | default-language: Haskell2010 | 11 | default-language: Haskell2010 |
@@ -1,10 +1,24 @@ | |||
1 | import XMonad | 1 | import XMonad |
2 | import XMonad.Config.Gnome | 2 | import XMonad.Config.Desktop |
3 | import XMonad.Layout.NoBorders | 3 | import XMonad.Layout.NoBorders |
4 | import XMonad.Layout.Tabbed | ||
5 | |||
6 | main :: IO () | ||
4 | main = xmonad | 7 | main = xmonad |
5 | gnomeConfig { | 8 | desktopConfig { |
6 | terminal = "xterm" | 9 | terminal = "xterm" |
7 | , layoutHook = smartBorders (layoutHook gnomeConfig) | 10 | -- , layoutHook = noBorders Full ||| noBorders (tabbed shrinkText def) ||| layoutHook desktopConfig |
11 | , layoutHook = desktopLayoutModifiers layouts | ||
8 | , modMask = mod4Mask | 12 | , modMask = mod4Mask |
9 | } | 13 | } |
10 | 14 | ||
15 | where | ||
16 | |||
17 | layouts = noBorders Full | ||
18 | ||| noBorders (tabbed shrinkText def) | ||
19 | ||| smartBorders tiled | ||
20 | ||| smartBorders (Mirror tiled) | ||
21 | tiled = Tall nmaster delta ratio | ||
22 | nmaster = 1 -- The default number of windows in the master pane | ||
23 | ratio = 1 / 2 -- Default proportion of screen occupied by master pane | ||
24 | delta = 3 / 100 -- Percent of screen to increment by when resizing panes | ||