From 80bdedf3e16ad016491e0d134aebb167c19b3356 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 11 Jun 2007 22:36:22 +0200
Subject: Remove obsolete 'layout' function

darcs-hash:20070611203622-a5988-137014b9de3456eb1d3f7f722518fe6afcbca322.gz
---
 Operations.hs | 20 ++++++--------------
 1 file changed, 6 insertions(+), 14 deletions(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index d5a9370..fb6c788 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -333,7 +333,12 @@ setFocusX w = withWindowSet $ \ws -> do
 -- uppermost.
 --
 switchLayout :: X ()
-switchLayout = layout (\(x, xs) -> let xs' = xs ++ [x] in (head xs', tail xs'))
+switchLayout = do
+    sendMessage ModifyWindows
+    n <- gets (W.tag . W.workspace . W.current . windowset)
+    modify $ \s -> s { layouts = M.adjust switch n (layouts s) }
+    refresh
+ where switch (x, xs) = let xs' =  xs ++ [x] in (head xs', tail xs')
 
 -- | Throw a message to the current Layout possibly modifying how we
 -- layout the windows, then refresh.
@@ -434,19 +439,6 @@ splitHorizontallyBy f (Rectangle sx sy sw sh) =
 
 splitVerticallyBy f = (mirrorRect *** mirrorRect) . splitHorizontallyBy f . mirrorRect
 
-------------------------------------------------------------------------
-
--- | layout. Modify the current workspace's layout with a pure
--- function and refresh.
-layout :: ((Layout, [Layout]) -> (Layout, [Layout])) -> X ()
-layout f = do
-    sendMessage ModifyWindows
-    modify $ \s ->
-        let n          = W.tag . W.workspace . W.current . windowset $ s
-            (Just fl)  = M.lookup n $ layouts s
-        in s { layouts = M.insert n (f fl) (layouts s) }
-    refresh
-
 ------------------------------------------------------------------------
 -- Utilities
 
-- 
cgit v1.2.3