From 1f5cf9d0ac990d24bd078db3dbd03dda53da00fb Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Fri, 28 Sep 2007 03:58:55 +0200
Subject: remove SetLayout.

darcs-hash:20070928015855-72aca-d10472a3a5eb7726482ad2aeb0ed2bc6518d44da.gz
---
 SetLayout.hs | 40 ----------------------------------------
 1 file changed, 40 deletions(-)
 delete mode 100644 SetLayout.hs

diff --git a/SetLayout.hs b/SetLayout.hs
deleted file mode 100644
index dabb0b5..0000000
--- a/SetLayout.hs
+++ /dev/null
@@ -1,40 +0,0 @@
------------------------------------------------------------------------------
--- |
--- 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 }
-- 
cgit v1.2.3