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 | 207a0912b26c906af60e9f2a0261c3b2c5989c76 (patch) | |
tree | e28d9b6f3f7ff1e530c3f86d7a3b389d4112aec3 /XMonad.hs | |
parent | e6a63426a19c6b6d3a8cb6ae0e95860f53a9a738 (diff) | |
download | xmonad-207a0912b26c906af60e9f2a0261c3b2c5989c76.tar.gz xmonad-207a0912b26c906af60e9f2a0261c3b2c5989c76.tar.xz xmonad-207a0912b26c906af60e9f2a0261c3b2c5989c76.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.gz
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 |