diff options
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 _ = "" |