diff options
| author | Max Rabkin <max.rabkin@gmail.com> | 2009-09-29 18:35:09 +0200 |
|---|---|---|
| committer | Max Rabkin <max.rabkin@gmail.com> | 2009-09-29 18:35:09 +0200 |
| commit | 139230cdeb304b501ff31781f2b8653fd75248fa (patch) | |
| tree | 925d8aafb2b8558eb21de6baa168b5a76bb38e8f /XMonad | |
| parent | 73bbe88dde8488da220a6f4bb01612c94396cda6 (diff) | |
| download | XMonadContrib-139230cdeb304b501ff31781f2b8653fd75248fa.tar.gz XMonadContrib-139230cdeb304b501ff31781f2b8653fd75248fa.tar.xz XMonadContrib-139230cdeb304b501ff31781f2b8653fd75248fa.zip | |
removed commented-out code
Ignore-this: 776b1566626660b639f8933980f5a3a1
darcs-hash:20090929163509-a5338-ea9f3c63a828c192d2f404d6b7dbda46621a861c.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Layout/Selective.hs | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/XMonad/Layout/Selective.hs b/XMonad/Layout/Selective.hs index 5853c56..f1a001d 100644 --- a/XMonad/Layout/Selective.hs +++ b/XMonad/Layout/Selective.hs @@ -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 |