twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Decoration.hs: variable names consistency only

Browse Source
This commit is contained in:
Andrea Rossato 2008-02-11 12:30:56 +00:00
parent 7e8276d0b7
commit 0d69127db5
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
XMonad/Layout/Decoration.hs
View File

@ -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]