summaryrefslogtreecommitdiffstats
path: root/XMonad.hs
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-04-11 10:07:47 +0200
committerDon Stewart <dons@cse.unsw.edu.au>2007-04-11 10:07:47 +0200
commitdb66c05588a593c289576a871b4056cd214d0f91 (patch)
treee28d9b6f3f7ff1e530c3f86d7a3b389d4112aec3 /XMonad.hs
parent6ddbbddbcaa88a5f70aca4f8bed6974fa3be25eb (diff)
downloadmetatile-db66c05588a593c289576a871b4056cd214d0f91.tar
metatile-db66c05588a593c289576a871b4056cd214d0f91.zip
clean up tiling code a teensy bit, and comment on the interaction between focus, master, and cycling direction between the modes
darcs-hash:20070411080747-9c5c1-0f6e9cc92481db8ba812976ee8d3cb0f7dde6626
Diffstat (limited to 'XMonad.hs')
-rw-r--r--XMonad.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad.hs b/XMonad.hs
index 642a038..0de51ed 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -17,7 +17,7 @@
module XMonad (
X, WorkSpace, XState(..), Layout(..), LayoutDesc(..),
runX, io, withDisplay, isRoot,
- spawn, trace, whenJust, rot
+ spawn, trace, whenJust, rotateLayout
) where
import StackSet (StackSet,WorkspaceId)
@@ -80,8 +80,8 @@ isRoot w = liftM (w==) (gets theRoot)
data Layout = Full | Tall | Wide deriving (Enum, Bounded, Eq)
-- | 'rot' for Layout.
-rot :: Layout -> Layout
-rot x = if x == maxBound then minBound else succ x
+rotateLayout :: Layout -> Layout
+rotateLayout x = if x == maxBound then minBound else succ x
-- | A full description of a particular workspace's layout parameters.
data LayoutDesc = LayoutDesc { layoutType :: !Layout