diff options
| author | l.mai <l.mai@web.de> | 2007-10-17 21:14:21 +0200 |
|---|---|---|
| committer | l.mai <l.mai@web.de> | 2007-10-17 21:14:21 +0200 |
| commit | aedbae96511e8de976cf143f240d3e0be6ac7858 (patch) | |
| tree | b9b0ce29b01a1201ef17aa79b72a9af2f5ca7f8c | |
| parent | cb0b22bec8d208c89e335fbb5c66345ae7f4ba60 (diff) | |
| download | XMonadContrib-aedbae96511e8de976cf143f240d3e0be6ac7858.tar.gz XMonadContrib-aedbae96511e8de976cf143f240d3e0be6ac7858.tar.xz XMonadContrib-aedbae96511e8de976cf143f240d3e0be6ac7858.zip | |
use full screen for single window in TilePrime
darcs-hash:20071017191421-42ea9-18a3cb8ed5239442b903b5462911af8df7942085.gz
| -rw-r--r-- | TilePrime.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/TilePrime.hs b/TilePrime.hs index 8e77b2c..10ea487 100644 --- a/TilePrime.hs +++ b/TilePrime.hs @@ -65,6 +65,7 @@ instance LayoutClass TilePrime Window where hints <- withDisplay $ \ disp -> io (mapM (getWMNormalHints disp) xs) let xs' = zip xs hints (leftRect, rightRect) + | null (drop 1 xs) = (rect, Rectangle 0 0 0 0) | flp = splitVerticallyBy (frac c) rect | otherwise = splitHorizontallyBy (frac c) rect masters = fillWindows flp leftRect (take (nmaster c) xs') |