diff options
| author | Chris Mears <chris@cmears.id.au> | 2007-05-03 12:42:34 +0200 |
|---|---|---|
| committer | Chris Mears <chris@cmears.id.au> | 2007-05-03 12:42:34 +0200 |
| commit | 3004c46d9ba6562f8c8dcc8fe9081b69318cdc43 (patch) | |
| tree | 9823612270e6dddf184dbc8eaecfae0f9a44b95a /RotView.hs | |
| parent | 324a2dac52399c99e015bd39578caef142accdce (diff) | |
| download | XMonadContrib-3004c46d9ba6562f8c8dcc8fe9081b69318cdc43.tar.gz XMonadContrib-3004c46d9ba6562f8c8dcc8fe9081b69318cdc43.tar.xz XMonadContrib-3004c46d9ba6562f8c8dcc8fe9081b69318cdc43.zip | |
Make RotView build, and add a brief description.
darcs-hash:20070503104234-03b70-399dc2bdd3dca37d4a11207daae51b1b359a7af2.gz
Diffstat (limited to 'RotView.hs')
| -rw-r--r-- | RotView.hs | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -1,4 +1,6 @@ -module XMonad.RotView ( rotView ) where +module XMonadContrib.RotView ( rotView ) where + +-- Provides bindings to cycle through non-empty workspaces. -- To use: -- include XMonad.RotView @@ -14,7 +16,7 @@ import XMonad ( X, WorkspaceId, workspace ) import StackSet ( StackSet, focus ) import qualified StackSet as W ( current ) -rotView :: Bool -> X m () +rotView :: Bool -> X () rotView b = do ws <- gets workspace let m = W.current ws allws = if b then allWorkspaces ws else reverse $ allWorkspaces ws |