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

Remove NamedFieldPuns from L.LimitWindows

Browse Source 
This is more ugly, but otherwise we have lots of trouble for ghc-6.8
compatibility (due to the recomended flag having changed)
This commit is contained in:
Adam Vogt 2009-10-15 01:01:23 +00:00
parent d330dcae24
commit ca29a33f56
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
XMonad/Layout/LimitWindows.hs
View File

@ -1,4 +1,4 @@
{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, DeriveDataTypeable, NamedFieldPuns, PatternGuards #-}
{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, DeriveDataTypeable, PatternGuards #-}
-----------------------------------------------------------------------------
-- |
-- Module : XMonad.Layout.LimitWindows
@ -128,27 +128,27 @@ instance LayoutModifier Selection a where
Nothing
select :: Selection l -> W.Stack a -> W.Stack a
select (Sel { nMaster, start, nRest }) stk
| lups < nMaster
= stk { W.down=take (nMaster - lups - 1) downs ++
(take nRest . drop (start - lups - 1) $ downs) }
select s stk
| lups < nMaster s
= stk { W.down=take (nMaster s - lups - 1) downs ++
(take (nRest s) . drop (start s - lups - 1) $ downs) }
| otherwise
= stk { W.up=reverse (take nMaster ups ++ drop start ups),
W.down=take (nRest - (lups - start) - 1) downs }
= stk { W.up=reverse (take (nMaster s) ups ++ drop (start s) ups),
W.down=take ((nRest s) - (lups - start s) - 1) downs }
where
downs = W.down stk
ups = reverse $ W.up stk
lups = length ups
updateStart :: Selection l -> W.Stack a -> Int
updateStart (Sel { nMaster, start, nRest }) stk
| lups < nMaster -- the focussed window is in the master pane
= start `min` (lups + ldown - nRest + 1) `max` nMaster
updateStart s stk
| lups < nMaster s -- the focussed window is in the master pane
= start s `min` (lups + ldown - (nRest s) + 1) `max` nMaster s
| otherwise
= start `min` lups
`max` (lups - nRest + 1)
`min` (lups + ldown - nRest + 1)
`max` nMaster
= start s `min` lups
`max` (lups - (nRest s) + 1)
`min` (lups + ldown - (nRest s) + 1)
`max` nMaster s
where
lups = length $ W.up stk
ldown = length $ W.down stk