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,
toggleRecentWS,
toggleRecentNonEmptyWS,
toggleWindowSets
toggleWindowSets,
recentWS
) where
import XMonad hiding (workspaces)
@ -75,7 +76,11 @@ toggleRecentNonEmptyWS :: X ()
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
where recentTags = map tag
$ filter p