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

expose and document X.L.IndependentScreens.marshallSort

Browse Source
This commit is contained in:
Daniel Wagner 2014-01-28 21:28:44 +00:00
parent df824edf5f
commit 35ed0601f4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Layout/IndependentScreens.hs
View File

@ -25,7 +25,7 @@ module XMonad.Layout.IndependentScreens (
-- * Converting between virtual and physical workspaces
-- $converting
marshall, unmarshall, unmarshallS, unmarshallW,
marshallWindowSpace, unmarshallWindowSpace
marshallWindowSpace, unmarshallWindowSpace, marshallSort
) where
-- for the screen stuff
@ -179,6 +179,7 @@ whenCurrentOn s pp = pp
_ -> ppOutput pp out
}
-- | If @vSort@ is a function that sorts 'WindowSpace's with virtual names, then @marshallSort s vSort@ is a function which sorts 'WindowSpace's with physical names in an analogous way -- but keeps only the spaces on screen @s@.
marshallSort :: ScreenId -> ([WindowSpace] -> [WindowSpace]) -> ([WindowSpace] -> [WindowSpace])
marshallSort s vSort = pScreens . vSort . vScreens where
onScreen ws = unmarshallS (tag ws) == s