From 03e337c024dd7e6f6fd7dd40917ec4bf720d8eef Mon Sep 17 00:00:00 2001
From: hughes <hughes@rpi.edu>
Date: Sun, 1 Apr 2007 04:18:46 +0200
Subject: Merged things together with dons changes.

darcs-hash:20070401021846-3a569-083f7d441afc41bdeef843113c1de1d3a5e40ee3.gz
---
 XMonad.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'XMonad.hs')

diff --git a/XMonad.hs b/XMonad.hs
index c70ead1..c9146fe 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -18,7 +18,7 @@ module XMonad (
     X, WorkSpace, XState(..), Layout(..), LayoutDesc(..), Disposition(..),
     basicLayoutDesc, currentDesc, disposition,
     runX, io, withDisplay, isRoot,
-    spawn, trace, whenJust, swap
+    spawn, trace, whenJust, rot
   ) where
 
 import StackSet (StackSet)
@@ -55,7 +55,7 @@ type WorkSpace = StackSet Window
 
 
 -- ---------------------------------------------------------------------
--- Dispositions and Layout
+-- Display Positions and Layout
 
 -- | Disposition.  Short for 'Display Position,' it describes how much
 -- of the screen a window would like to occupy, when tiled with others.
@@ -68,10 +68,11 @@ basicDisposition = Disposition (1%3) (1%3)
 -- | The different layout modes
 data Layout = Full | Horz | Vert
 
--- | 'not' for Layout.
-swap :: Layout -> Layout
-swap Full = Tile
-swap _    = Full
+-- | 'rot' for Layout.
+rot :: Layout -> Layout
+rot Full = Horz
+rot Horz = Vert
+rot Vert = Full
 
 -- | A full description of a particular workspace's layout parameters.
 data LayoutDesc = LayoutDesc { layoutType   :: !Layout,
-- 
cgit v1.2.3