diff options
author | Eric Mertens <emertens@galois.com> | 2007-10-18 08:37:49 +0200 |
---|---|---|
committer | Eric Mertens <emertens@galois.com> | 2007-10-18 08:37:49 +0200 |
commit | 08670b37adfb17d62c7f261e50ea8fb999f70661 (patch) | |
tree | bec40b87d470d09480d29107a7c8e83c7652809e | |
parent | 3288dea899aebb677fb2cd55ffce6f48db3299d4 (diff) | |
download | XMonadContrib-08670b37adfb17d62c7f261e50ea8fb999f70661.tar.gz XMonadContrib-08670b37adfb17d62c7f261e50ea8fb999f70661.tar.xz XMonadContrib-08670b37adfb17d62c7f261e50ea8fb999f70661.zip |
TilePrime.hs: Give a description that distinguishs between horizontal/vertical
darcs-hash:20071018063749-b49f3-3cce3ff7340fdced2f0c27264ac1df0effa6b627.gz
-rw-r--r-- | TilePrime.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/TilePrime.hs b/TilePrime.hs index 8b1e693..60a35a5 100644 --- a/TilePrime.hs +++ b/TilePrime.hs @@ -50,7 +50,8 @@ data TilePrime a = TilePrime } deriving (Show, Read) instance LayoutClass TilePrime Window where - description _ = "TilePrime" + description c | flipped c = "TilePrime Horizontal" + | otherwise = "TilePrime Vertical" pureMessage c m = fmap resize (fromMessage m) `mplus` fmap incmastern (fromMessage m) |