From 7c7884a5d86cffaf306fde89d9d4d3a85d160d5c Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Mon, 18 Feb 2008 14:13:20 +0100 Subject: add Eq superclass to DecorationStyle and change styles in order not to decorate non managed windows darcs-hash:20080218131320-32816-44ecfbd0dca9eb353a569898deefebef9f7088ed.gz --- XMonad/Layout/DwmStyle.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Layout/DwmStyle.hs') diff --git a/XMonad/Layout/DwmStyle.hs b/XMonad/Layout/DwmStyle.hs index 623db56..448889f 100644 --- a/XMonad/Layout/DwmStyle.hs +++ b/XMonad/Layout/DwmStyle.hs @@ -62,7 +62,7 @@ data DwmStyle a = Dwm deriving (Show, Read) instance Eq a => DecorationStyle DwmStyle a where describeDeco _ = "DwmStyle" shrink _ _ r = r - pureDecoration _ wh ht _ (Stack fw _ _) _ (win,Rectangle x y wid _) = - if win == fw then Nothing else Just $ Rectangle (fi nx) y nwh (fi ht) + pureDecoration _ wh ht _ s@(Stack fw _ _) _ (w,Rectangle x y wid _) = + if w == fw || not (isInStack s w) then Nothing else Just $ Rectangle (fi nx) y nwh (fi ht) where nwh = min wid $ fi wh nx = fi x + wid - nwh -- cgit v1.2.3