diff options
author | hughes <hughes@rpi.edu> | 2007-04-01 04:18:46 +0200 |
---|---|---|
committer | hughes <hughes@rpi.edu> | 2007-04-01 04:18:46 +0200 |
commit | 03e337c024dd7e6f6fd7dd40917ec4bf720d8eef (patch) | |
tree | 7b76ffe8c446e89c1bf0ddba1dc2e8bfa91428cf /XMonad.hs | |
parent | 446f5262e5b4960bad30952458c8199bb784df0b (diff) | |
download | xmonad-03e337c024dd7e6f6fd7dd40917ec4bf720d8eef.tar.gz xmonad-03e337c024dd7e6f6fd7dd40917ec4bf720d8eef.tar.xz xmonad-03e337c024dd7e6f6fd7dd40917ec4bf720d8eef.zip |
Merged things together with dons changes.
darcs-hash:20070401021846-3a569-083f7d441afc41bdeef843113c1de1d3a5e40ee3.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad.hs | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -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, |