diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 06:04:39 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 06:04:39 +0100 |
| commit | 0a99440e52d872287b1add151c2608f089c45c5c (patch) | |
| tree | c6a40d4bac13964240a59f2162f22856cdb21004 /XMonad/Layout/Tabbed.hs | |
| parent | ec481040cf268fac8f527a7946e3ca92de09278d (diff) | |
| download | XMonadContrib-0a99440e52d872287b1add151c2608f089c45c5c.tar.gz XMonadContrib-0a99440e52d872287b1add151c2608f089c45c5c.tar.xz XMonadContrib-0a99440e52d872287b1add151c2608f089c45c5c.zip | |
No more tabs
darcs-hash:20071222050439-a5988-7eb14f0e316b41ace318d1e4b92d15aaa3808c4d.gz
Diffstat (limited to 'XMonad/Layout/Tabbed.hs')
| -rw-r--r-- | XMonad/Layout/Tabbed.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs index 237db34..2b30caf 100644 --- a/XMonad/Layout/Tabbed.hs +++ b/XMonad/Layout/Tabbed.hs @@ -204,8 +204,8 @@ updateTab ishr c fs wh (tabw,ow) = do dpy <- asks display let s = shrinkIt ishr name <- shrinkWhile s (\n -> do - size <- io $ textWidthXMF dpy fs n - return $ size > fromIntegral wh - fromIntegral (ht `div` 2)) (show nw) + size <- io $ textWidthXMF dpy fs n + return $ size > fromIntegral wh - fromIntegral (ht `div` 2)) (show nw) paintAndWrite tabw fs wh ht 1 bc' borderc' tc' bc' AlignCenter name shrink :: TConf -> Rectangle -> Rectangle @@ -217,10 +217,10 @@ shrinkWhile sh p x = sw $ sh x where sw [n] = return n sw [] = return "" sw (n:ns) = do - cond <- p n - if cond - then sw ns - else return n + cond <- p n + if cond + then sw ns + else return n data CustomShrink = CustomShrink instance Show CustomShrink where show _ = "" |