diff options
| author | Roman Cheplyaka <roma@ro-che.info> | 2009-01-27 19:56:04 +0100 |
|---|---|---|
| committer | Roman Cheplyaka <roma@ro-che.info> | 2009-01-27 19:56:04 +0100 |
| commit | 5ab6b11181fd48394f439b77646d3fedf868bc60 (patch) | |
| tree | 271cf0df4be7a42fbdd5e537b2d4b61b9d4f917b /XMonad/Actions/CycleWS.hs | |
| parent | 39b87a05acbbb88588da8fa738abdb06bd1c70b5 (diff) | |
| download | XMonadContrib-5ab6b11181fd48394f439b77646d3fedf868bc60.tar.gz XMonadContrib-5ab6b11181fd48394f439b77646d3fedf868bc60.tar.xz XMonadContrib-5ab6b11181fd48394f439b77646d3fedf868bc60.zip | |
X.A.CycleWS: convert tabs to spaces (closes #266)
darcs-hash:20090127185604-3ebed-db1c1b6b33a83e58a9fa957f7222fce88db52e20.gz
Diffstat (limited to 'XMonad/Actions/CycleWS.hs')
| -rw-r--r-- | XMonad/Actions/CycleWS.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Actions/CycleWS.hs b/XMonad/Actions/CycleWS.hs index c0f19e2..5e267ca 100644 --- a/XMonad/Actions/CycleWS.hs +++ b/XMonad/Actions/CycleWS.hs @@ -172,7 +172,7 @@ data WSDirection = Next | Prev -- | What type of workspaces should be included in the cycle? data WSType = EmptyWS -- ^ cycle through empty workspaces | NonEmptyWS -- ^ cycle through non-empty workspaces - | HiddenWS -- ^ cycle through non-visible workspaces + | HiddenWS -- ^ cycle through non-visible workspaces | HiddenNonEmptyWS -- ^ cycle through non-empty non-visible workspaces | AnyWS -- ^ cycle through all workspaces | WSIs (X (WindowSpace -> Bool)) @@ -186,7 +186,7 @@ wsTypeToPred NonEmptyWS = return (isJust . stack) wsTypeToPred HiddenWS = do hs <- gets (map tag . hidden . windowset) return (\w -> tag w `elem` hs) wsTypeToPred HiddenNonEmptyWS = do ne <- wsTypeToPred NonEmptyWS - hi <- wsTypeToPred HiddenWS + hi <- wsTypeToPred HiddenWS return (\w -> hi w && ne w) wsTypeToPred AnyWS = return (const True) wsTypeToPred (WSIs p) = p |