Add setLayout to the core

darcs-hash:20070928002241-a5988-68aacebdf64cab00c7c68bf3c91fb55210c31e99.gz

1 files changed, 7 insertions, 0 deletions

diff --git a/Operations.hs b/Operations.hs
index 128c4ad..ee1fd80 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -326,6 +326,13 @@ runOnWorkspaces job = do ws <- gets windowset
 
 instance Message Event
 
+-- | Set the layout of the currently viewed workspace
+setLayout :: SomeLayout Window -> X ()
+setLayout l = do
+    sendMessage ReleaseResources
+    windows $ \ss@(W.StackSet { W.current = c@(W.Screen { W.workspace = ws })})
+              -> ss {W.current = c { W.workspace = ws { W.layout = l } } }
+
 -- Layout selection manager
 
 -- This is a layout that allows users to switch between various layout