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

refactor recentWS

Browse Source 
Instead of constructing workspaces and rearranging it with tail and
head, construct it in the desired formation directly.
This commit is contained in:
ivanbrennan
2020-03-05 08:53:45 -05:00
parent 53a59d6592
commit 423d70593d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Actions/CycleRecentWS.hs
View File

@@ -79,7 +79,9 @@ recentWS :: (WindowSpace -> Bool) -> WindowSet -> [WindowSet]
recentWS p w = map (`view` w) recentTags
where recentTags = map tag
$ filter p
$ tail (workspaces w) ++ [head (workspaces w)]
$ map workspace (visible w)
++ hidden w
++ [workspace (current w)]
cycref :: [a] -> Int -> a