From 0cfb18153271f78d5e58e18960da3ef9cd161b02 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 14 Jun 2007 16:42:25 +0200 Subject: RotView.hs: info and documentation darcs-hash:20070614144225-32816-170dbed32e03a6c24e9ab841ffcbbcb208934d8f.gz --- RotView.hs | 32 +++++++++++++++++++++++++------- 1 file changed, 25 insertions(+), 7 deletions(-) (limited to 'RotView.hs') diff --git a/RotView.hs b/RotView.hs index 6a8fc7f..1ca0b92 100644 --- a/RotView.hs +++ b/RotView.hs @@ -1,12 +1,22 @@ -module XMonadContrib.RotView ( rotView ) where - +----------------------------------------------------------------------------- +-- | +-- Module : XMonadContrib.RotView +-- Copyright : (c) David Roundy +-- License : BSD3-style (see LICENSE) +-- +-- Maintainer : David Roundy +-- Stability : unstable +-- Portability : unportable +-- -- Provides bindings to cycle through non-empty workspaces. +-- +----------------------------------------------------------------------------- --- To use: --- import XMonadContrib.RotView - --- , ((modMask .|. shiftMask, xK_Right), rotView True) --- , ((modMask .|. shiftMask, xK_Left), rotView False) +module XMonadContrib.RotView ( + -- * Usage + -- $usage + rotView + ) where import Control.Monad.State ( gets ) import Data.List ( sortBy ) @@ -16,6 +26,14 @@ import XMonad import StackSet hiding (filter) import qualified Operations as O +-- $usage +-- You can use this module with the following in your Config.hs file: +-- +-- > import XMonadContrib.RotView +-- +-- > , ((modMask .|. shiftMask, xK_Right), rotView True) +-- > , ((modMask .|. shiftMask, xK_Left), rotView False) + rotView :: Bool -> X () rotView b = do ws <- gets windowset -- cgit v1.2.3