diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-11 13:30:56 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-11 13:30:56 +0100 |
| commit | b1120e6eb7c6133d2d10ce516d4f503f80bd7b91 (patch) | |
| tree | 2be36d90005611f7d0e36fb18f4e9b0acaf1c5e1 /XMonad | |
| parent | e4e4a79fe1faaf03d0507a63f9a09dc3275d4f4d (diff) | |
| download | XMonadContrib-b1120e6eb7c6133d2d10ce516d4f503f80bd7b91.tar.gz XMonadContrib-b1120e6eb7c6133d2d10ce516d4f503f80bd7b91.tar.xz XMonadContrib-b1120e6eb7c6133d2d10ce516d4f503f80bd7b91.zip | |
Decoration.hs: variable names consistency only
darcs-hash:20080211123056-32816-c5f74aca2d52d7ed30ed9bebaacda2d30b3244c1.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Layout/Decoration.hs | 12 |
1 files changed, 6 insertions, 6 deletions
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] |