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 | |
| 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')
| -rw-r--r-- | XMonad/Layout/DragPane.hs | 2 | ||||
| -rw-r--r-- | XMonad/Layout/Grid.hs | 2 | ||||
| -rw-r--r-- | XMonad/Layout/Tabbed.hs | 12 |
3 files changed, 8 insertions, 8 deletions
diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs index f13eca3..7e10597 100644 --- a/XMonad/Layout/DragPane.hs +++ b/XMonad/Layout/DragPane.hs @@ -107,7 +107,7 @@ doLay mirror (DragPane mw ty delta split) r s = do mirror $ Rectangle x y (w-halfHandleWidth) h right = case right' of Rectangle x y w h -> - mirror $ Rectangle (x+halfHandleWidth) y (w-halfHandleWidth) h + mirror $ Rectangle (x+halfHandleWidth) y (w-halfHandleWidth) h handr = case left' of Rectangle x y w h -> mirror $ Rectangle (x + fromIntegral w - halfHandleWidth) y (2*halfHandleWidth) h diff --git a/XMonad/Layout/Grid.hs b/XMonad/Layout/Grid.hs index 36a5768..1c7c5a6 100644 --- a/XMonad/Layout/Grid.hs +++ b/XMonad/Layout/Grid.hs @@ -17,7 +17,7 @@ module XMonad.Layout.Grid ( -- * Usage -- $usage - Grid(..) + Grid(..) ) where import XMonad 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 _ = "" |