diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-31 09:23:14 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-31 09:23:14 +0100 |
| commit | 07f59a98c143519d021bfec4b05a3cc5a569529b (patch) | |
| tree | 08fe1b27fb717e5526960c60f931f8efe89b7f24 /XMonad/Layout/LayoutHints.hs | |
| parent | b1eb3fcd01b0b6dd1042d58c54f0901d658efeeb (diff) | |
| download | XMonadContrib-07f59a98c143519d021bfec4b05a3cc5a569529b.tar.gz XMonadContrib-07f59a98c143519d021bfec4b05a3cc5a569529b.tar.xz XMonadContrib-07f59a98c143519d021bfec4b05a3cc5a569529b.zip | |
Make LayoutHints a decoration aware layout modifier
darcs-hash:20080131082314-32816-665793ea8ce408fe0bc0f3c9ee9a16fa5404c3b7.gz
Diffstat (limited to 'XMonad/Layout/LayoutHints.hs')
| -rw-r--r-- | XMonad/Layout/LayoutHints.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/XMonad/Layout/LayoutHints.hs b/XMonad/Layout/LayoutHints.hs index 252e200..f8df071 100644 --- a/XMonad/Layout/LayoutHints.hs +++ b/XMonad/Layout/LayoutHints.hs @@ -21,7 +21,7 @@ module XMonad.Layout.LayoutHints ( import XMonad hiding ( trace ) import XMonad.Layout.LayoutModifier - +import XMonad.Layout.Decoration ( isDecoration ) -- $usage -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: -- @@ -54,8 +54,9 @@ instance LayoutModifier LayoutHints Window where xs' <- mapM (applyHint bW) xs return (xs', Nothing) where - applyHint bW (w,Rectangle a b c d) = + applyHint bW (w,r@(Rectangle a b c d)) = withDisplay $ \disp -> do - sh <- io $ getWMNormalHints disp w + isd <- isDecoration w + sh <- io $ getWMNormalHints disp w let (c',d') = adjBorders 1 bW . applySizeHints sh . adjBorders bW (-1) $ (c,d) - return (w, Rectangle a b c' d') + return (w, if isd then r else Rectangle a b c' d') |