From b1120e6eb7c6133d2d10ce516d4f503f80bd7b91 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Mon, 11 Feb 2008 13:30:56 +0100 Subject: Decoration.hs: variable names consistency only darcs-hash:20080211123056-32816-c5f74aca2d52d7ed30ed9bebaacda2d30b3244c1.gz --- XMonad/Layout/Decoration.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'XMonad/Layout/Decoration.hs') diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index bdd0ca3..48fe6d4 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -157,10 +157,10 @@ instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration d -- We drop any windows that are *precisely* stacked underneath -- another window: these must be intended to be tabbed! - insert_dwr otherRs (((w,r),(dw,Just dr)):zzz) - | r `elem` otherRs = (dw,dr):insert_dwr otherRs zzz - | otherwise = (dw,dr):(w, shrink ds dr r):insert_dwr (r:otherRs) zzz - insert_dwr otherRs (((w,r),(_ ,Nothing)):zzz) = (w,r):insert_dwr (r:otherRs) zzz + insert_dwr otherRs (((w,r),(dw,Just dr)):dwrs) + | r `elem` otherRs = (dw,dr):insert_dwr otherRs dwrs + | otherwise = (dw,dr):(w, shrink ds dr r):insert_dwr (r:otherRs) dwrs + insert_dwr otherRs (((w,r),(_ ,Nothing)):dwrs) = (w,r):insert_dwr (r:otherRs) dwrs insert_dwr _ [] = [] resync _ [] = return [] @@ -222,8 +222,8 @@ handleMouseResize :: DecorationState -> Event -> X () handleMouseResize _ _ = return () lookFor :: Window -> [(OrigWin,DecoWin)] -> Maybe (OrigWin,DecoWin) -lookFor w ((x,(w',y)):zs) | w == w' = Just (x,(w',y)) - | otherwise = lookFor w zs +lookFor w ((wr,(dw,dr)):dwrs) | w == dw = Just (wr,(dw,dr)) + | otherwise = lookFor w dwrs lookFor _ [] = Nothing getDWs :: [(OrigWin,DecoWin)] -> [Window] -- cgit v1.2.3