From 07f59a98c143519d021bfec4b05a3cc5a569529b Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 31 Jan 2008 09:23:14 +0100 Subject: Make LayoutHints a decoration aware layout modifier darcs-hash:20080131082314-32816-665793ea8ce408fe0bc0f3c9ee9a16fa5404c3b7.gz --- XMonad/Layout/LayoutHints.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'XMonad/Layout/LayoutHints.hs') 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') -- cgit v1.2.3