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

skip boring: extract common iterate/filter logic

Browse Source
This commit is contained in:
ivanbrennan 2020-09-08 23:07:39 -04:00
parent 610fb0e200
commit c2dd9b0b7a
No known key found for this signature in database
GPG Key ID: 79C3C47DC652EA54
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
XMonad/Layout/BoringWindows.hs
View File

@ -140,16 +140,15 @@ instance LayoutModifier BoringWindows Window where
| Just SwapDown <- fromMessage m =
do windows $ W.modify' (reverseStack . skipBoringSwapUp . reverseStack)
return Nothing
where skipBoring f st = fromMaybe st $ listToMaybe
$ filter ((`notElem` bs) . W.focus)
where skipBoring = skipBoring' ((`notElem` bs) . W.focus)
skipBoringSwapUp = skipBoring'
(maybe True (`notElem` bs) . listToMaybe . W.down)
swapUp'
skipBoring' p f st = fromMaybe st $ listToMaybe
$ filter p
$ drop 1
$ take (length $ W.integrate st)
$ iterate f st
skipBoringSwapUp st = fromMaybe st $ listToMaybe
$ filter (maybe True (`notElem` bs) . listToMaybe . W.down)
$ drop 1 -- drop 0th swap
$ take (length $ W.integrate st)
$ iterate swapUp' st
bs = concat $ cbs:maybeToList lbs ++ M.elems nbs
rjl = return . Just . Left
reverseStack (W.Stack t ls rs) = W.Stack t rs ls