mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-31 20:21:51 -07:00
X.A.CycleWS: Added ignoringWSs
`ignoringWSs` is useful in combination with `X.U.NamedScratchpad` to skip a list of tags
This commit is contained in:
@@ -67,6 +67,7 @@ module XMonad.Actions.CycleWS (
|
||||
, hiddenWS
|
||||
, anyWS
|
||||
, wsTagGroup
|
||||
, ignoringWSs
|
||||
|
||||
, shiftTo
|
||||
, moveTo
|
||||
@@ -297,6 +298,15 @@ hiddenWS = WSIs $ do
|
||||
anyWS :: WSType
|
||||
anyWS = WSIs . return $ const True
|
||||
|
||||
-- | Cycle through workspaces that are not in the given list. This could, for
|
||||
-- example, be used for skipping the workspace reserved for
|
||||
-- "XMonad.Util.NamedScratchpad":
|
||||
--
|
||||
-- > moveTo Next $ hidden :&: Not empty :&: ignoringWSs [scratchpadWorkspaceTag]
|
||||
--
|
||||
ignoringWSs :: [WorkspaceId] -> WSType
|
||||
ignoringWSs ts = WSIs . return $ (`notElem` ts) . tag
|
||||
|
||||
-- | Cycle through workspaces in the same group, the
|
||||
-- group name is all characters up to the first
|
||||
-- separator character or the end of the tag
|
||||
|
Reference in New Issue
Block a user