From 139230cdeb304b501ff31781f2b8653fd75248fa Mon Sep 17 00:00:00 2001
From: Max Rabkin <max.rabkin@gmail.com>
Date: Tue, 29 Sep 2009 18:35:09 +0200
Subject: removed commented-out code

Ignore-this: 776b1566626660b639f8933980f5a3a1

darcs-hash:20090929163509-a5338-ea9f3c63a828c192d2f404d6b7dbda46621a861c.gz
---
 XMonad/Layout/Selective.hs | 24 ------------------------
 1 file changed, 24 deletions(-)

(limited to 'XMonad')

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
-- 
cgit v1.2.3