twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

Make RotView build, and add a brief description.

Browse Source
This commit is contained in:
Chris Mears 2007-05-03 10:42:34 +00:00
parent 13006a89c2
commit 0ace4a78fc
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
RotView.hs
View File

@ -1,4 +1,6 @@
module XMonad.RotView ( rotView ) where module XMonadContrib.RotView ( rotView ) where
-- Provides bindings to cycle through non-empty workspaces.
-- To use: -- To use:
-- include XMonad.RotView -- include XMonad.RotView
@ -14,7 +16,7 @@ import XMonad ( X, WorkspaceId, workspace )
import StackSet ( StackSet, focus ) import StackSet ( StackSet, focus )
import qualified StackSet as W ( current ) import qualified StackSet as W ( current )
rotView :: Bool -> X m () rotView :: Bool -> X ()
rotView b = do ws <- gets workspace rotView b = do ws <- gets workspace
let m = W.current ws let m = W.current ws
allws = if b then allWorkspaces ws else reverse $ allWorkspaces ws allws = if b then allWorkspaces ws else reverse $ allWorkspaces ws