diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-01 02:28:03 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-01 02:28:03 +0200 |
commit | ef7a1806c88d1fe044abbcefd2d9fd87625768f2 (patch) | |
tree | 083014b8311f41256877dfc5ec445111aaf48076 /XMonad.hs | |
parent | 8cd6c6a3aa9f06546a93a2ed25848682b72e3ddd (diff) | |
download | metatile-ef7a1806c88d1fe044abbcefd2d9fd87625768f2.tar metatile-ef7a1806c88d1fe044abbcefd2d9fd87625768f2.zip |
formatting fixes. the style is getting a bit dodgy in some places...
darcs-hash:20070401002803-9c5c1-e15fd397cbaf1182a13e1c55ca024ef2ef2fdbae
Diffstat (limited to 'XMonad.hs')
-rw-r--r-- | XMonad.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -17,7 +17,7 @@ module XMonad ( X, WorkSpace, XState(..), Layout(..), LayoutDesc(..), runX, io, withDisplay, isRoot, - spawn, trace, whenJust + spawn, trace, whenJust, swap ) where import StackSet (StackSet) @@ -53,6 +53,11 @@ type WorkSpace = StackSet Window -- | The different layout modes data Layout = Full | Tile +-- | 'not' for Layout. +swap :: Layout -> Layout +swap Full = Tile +swap _ = Full + -- | A full description of a particular workspace's layout parameters. data LayoutDesc = LayoutDesc { layoutType :: !Layout , tileFraction :: !Rational |