diff options
| -rw-r--r-- | XMonad/Actions/CycleWS.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Actions/CycleWS.hs b/XMonad/Actions/CycleWS.hs index 4bb49cd..c0f19e2 100644 --- a/XMonad/Actions/CycleWS.hs +++ b/XMonad/Actions/CycleWS.hs @@ -185,8 +185,9 @@ wsTypeToPred EmptyWS = return (isNothing . stack) wsTypeToPred NonEmptyWS = return (isJust . stack) wsTypeToPred HiddenWS = do hs <- gets (map tag . hidden . windowset) return (\w -> tag w `elem` hs) -wsTypeToPred HiddenNonEmptyWS = do hs <- gets (map tag . hidden . windowset) - return (\w -> isJust (stack w) && tag w `elem` hs) +wsTypeToPred HiddenNonEmptyWS = do ne <- wsTypeToPred NonEmptyWS + hi <- wsTypeToPred HiddenWS + return (\w -> hi w && ne w) wsTypeToPred AnyWS = return (const True) wsTypeToPred (WSIs p) = p |