new SetLayout module.

darcs-hash:20070925205333-72aca-a0e22f8e9613bc9b340b606f3ba7d73f951e3edc.gz

1 files changed, 40 insertions, 0 deletions

diff --git a/SetLayout.hs b/SetLayout.hs
new file mode 100644
index 0000000..dabb0b5
--- /dev/null
+++ b/SetLayout.hs
@@ -0,0 +1,40 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  XMonadContrib.SetLayout
+-- Copyright   :  (c) David Roundy <droundy@darcs.net>
+-- License     :  BSD3-style (see LICENSE)
+--
+-- Maintainer  :  David Roundy <droundy@darcs.net>
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- Provides bindings to cycle through non-empty workspaces.
+--
+-----------------------------------------------------------------------------
+
+module XMonadContrib.SetLayout (
+                              -- * Usage
+                              -- $usage
+                              setLayout
+                             ) where
+
+import Graphics.X11.Xlib ( Window )
+import XMonad
+import StackSet hiding (filter)
+import Operations
+
+-- $usage
+-- You can use this module with the following in your Config.hs file:
+-- 
+-- > import XMonadContrib.SetLayout
+--
+-- >   , ((modMask .|. shiftMask, xK_space ), setLayout $ SomeLayout $ LayoutSelection defaultLayouts) -- %! Reset this layout
+
+-- %import XMonadContrib.SetLayout
+-- %keybind , ((modMask .|. shiftMask, xK_space ), setLayout $ SomeLayout $ LayoutSelection defaultLayouts) -- %! Reset this layout
+
+setLayout :: SomeLayout Window -> X ()
+setLayout l = do sendMessage ReleaseResources
+                 windows $ \s -> s { current = r $ current s }
+    where r scr = scr { workspace = r' $ workspace scr }
+          r' ws = ws { layout = l }