twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

export recentWS

Browse Source 
Allow consumers of this module to filter the recency list with a custom
predicate when cycling/toggling workspaces.
This commit is contained in:
ivanbrennan 2020-03-06 08:27:44 -05:00
parent 423d70593d
commit 5aca3fb542
No known key found for this signature in database
GPG Key ID: 79C3C47DC652EA54
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
XMonad/Actions/CycleRecentWS.hs
View File

@ -23,7 +23,8 @@ module XMonad.Actions.CycleRecentWS (
cycleWindowSets, cycleWindowSets,
toggleRecentWS, toggleRecentWS,
toggleRecentNonEmptyWS, toggleRecentNonEmptyWS,
toggleWindowSets toggleWindowSets,
recentWS
) where ) where
import XMonad hiding (workspaces) import XMonad hiding (workspaces)
@ -75,7 +76,11 @@ toggleRecentNonEmptyWS :: X ()
toggleRecentNonEmptyWS = toggleWindowSets $ recentWS (not . null . stack) toggleRecentNonEmptyWS = toggleWindowSets $ recentWS (not . null . stack)
recentWS :: (WindowSpace -> Bool) -> WindowSet -> [WindowSet] -- | Given a predicate p and the current WindowSet w, create a list of recent WindowSets,
-- most recent first, where the focused workspace satisfies p.
recentWS :: (WindowSpace -> Bool) -- ^ A workspace predicate.
-> WindowSet -- ^ The current WindowSet
-> [WindowSet]
recentWS p w = map (`view` w) recentTags recentWS p w = map (`view` w) recentTags
where recentTags = map tag where recentTags = map tag
$ filter p $ filter p