twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 04:31:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

removed commented-out code

Browse Source
This commit is contained in:
Max Rabkin
2009-09-29 16:35:09 +00:00
parent cd43a200bf
commit adc029566e
1 changed files with 0 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
XMonad/Layout/Selective.hs
View File

@@ -42,30 +42,6 @@ select (Sel { nMaster, start, nRest }) stk
ups = reverse $ up stk
lups = length ups
{-
select :: Selection -> Stack a -> (Selection, Stack a)
select sel@(Sel { nMaster, start, nRest }) stk
| lups < nMaster -- the focussed window is in the master pane
= let start' = start `min` (lups + ldown - nRest + 1)
`max` nMaster
in (sel { start=start' },
stk { down=take (nMaster - lups - 1) downs ++
(take nRest . drop (start' - lups - 1) $ downs) })
| otherwise
= let start' = start `min` lups
`max` (lups - nRest + 1)
`min` (lups + ldown - nRest + 1)
`max` nMaster
in (sel { start=start' },
stk { up=reverse (take nMaster ups ++ drop start' ups),
down=take (nRest - (lups - start') - 1) downs })
where
downs = down stk
ups = reverse $ up stk
lups = length ups
ldown = length downs
-}
updateStart :: Selection -> Stack a -> Int
updateStart (Sel { nMaster, start, nRest }) stk
| lups < nMaster -- the focussed window is in the master pane