twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Implement HiddenNonEmptyWS with HiddenWS and NonEmptyWS

Browse Source 
(Just to reduce code duplication)
This commit is contained in:
Joachim Breitner
2008-10-06 21:10:27 +00:00
parent 5514c2ddca
commit 5f361b02af
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Actions/CycleWS.hs
View File

@@ -185,8 +185,9 @@ wsTypeToPred EmptyWS = return (isNothing . stack)
wsTypeToPred NonEmptyWS = return (isJust . stack) wsTypeToPred NonEmptyWS = return (isJust . stack)
wsTypeToPred HiddenWS = do hs <- gets (map tag . hidden . windowset) wsTypeToPred HiddenWS = do hs <- gets (map tag . hidden . windowset)
return (\w -> tag w `elem` hs) return (\w -> tag w `elem` hs)
wsTypeToPred HiddenNonEmptyWS = do hs <- gets (map tag . hidden . windowset) wsTypeToPred HiddenNonEmptyWS = do ne <- wsTypeToPred NonEmptyWS
return (\w -> isJust (stack w) && tag w `elem` hs) hi <- wsTypeToPred HiddenWS
return (\w -> hi w && ne w)
wsTypeToPred AnyWS = return (const True) wsTypeToPred AnyWS = return (const True)
wsTypeToPred (WSIs p) = p wsTypeToPred (WSIs p) = p