diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-11 10:07:47 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-11 10:07:47 +0200 |
commit | db66c05588a593c289576a871b4056cd214d0f91 (patch) | |
tree | e28d9b6f3f7ff1e530c3f86d7a3b389d4112aec3 /XMonad.hs | |
parent | 6ddbbddbcaa88a5f70aca4f8bed6974fa3be25eb (diff) | |
download | metatile-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.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 |