diff options
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Layout/TabBarDecoration.hs | 2 | ||||
| -rw-r--r-- | XMonad/Layout/Tabbed.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/TabBarDecoration.hs b/XMonad/Layout/TabBarDecoration.hs index 9339a64..5305428 100644 --- a/XMonad/Layout/TabBarDecoration.hs +++ b/XMonad/Layout/TabBarDecoration.hs @@ -75,4 +75,4 @@ instance Eq a => DecorationStyle TabBarDecoration a where ny = case p of Top -> y Bottom -> y + fi ht - fi dht - nx = maybe x (fi . loc) $ w `elemIndex` wrs + nx = (x +) $ maybe 0 (fi . loc) $ w `elemIndex` wrs diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs index 1dc6524..e1a45c8 100644 --- a/XMonad/Layout/Tabbed.hs +++ b/XMonad/Layout/Tabbed.hs @@ -116,7 +116,7 @@ instance Eq a => DecorationStyle TabbedDecoration a where where ws = filter (`elem` map fst (filter ((==r) . snd) wrs)) (S.integrate s) loc i = (wh * fi i) `div` max 1 (fi $ length ws) wid = maybe (fi x) (\i -> loc (i+1) - loc i) $ w `elemIndex` ws - nx = maybe x (fi . loc) $ w `elemIndex` ws + nx = (x +) $ maybe 0 (fi . loc) $ w `elemIndex` ws shrink ds (Rectangle _ _ _ dh) (Rectangle x y w h) = case ds of Tabbed -> Rectangle x (y + fi dh) w (h - dh) TabbedBottom -> Rectangle x y w (h - dh) |