From aedbae96511e8de976cf143f240d3e0be6ac7858 Mon Sep 17 00:00:00 2001
From: "l.mai" <l.mai@web.de>
Date: Wed, 17 Oct 2007 21:14:21 +0200
Subject: use full screen for single window in TilePrime

darcs-hash:20071017191421-42ea9-18a3cb8ed5239442b903b5462911af8df7942085.gz
---
 TilePrime.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'TilePrime.hs')

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')
-- 
cgit v1.2.3