diff options
| author | Daniel Wagner <daniel@wagner-home.com> | 2014-01-28 22:28:44 +0100 |
|---|---|---|
| committer | Daniel Wagner <daniel@wagner-home.com> | 2014-01-28 22:28:44 +0100 |
| commit | 3c01086b66c3cf091b7e44c94aefc73d6969d4ce (patch) | |
| tree | ca3330382b0274470cfd86f43873434d4048faa7 | |
| parent | d66e4d3388d3b2669a15f50ec8aff64a3043ff0c (diff) | |
| download | XMonadContrib-3c01086b66c3cf091b7e44c94aefc73d6969d4ce.tar.gz XMonadContrib-3c01086b66c3cf091b7e44c94aefc73d6969d4ce.tar.xz XMonadContrib-3c01086b66c3cf091b7e44c94aefc73d6969d4ce.zip | |
expose and document X.L.IndependentScreens.marshallSort
Ignore-this: 90c1437c6ffe1dbd8f4a4ed192097ec
darcs-hash:20140128212844-76d51-ade7eabfc1a759b5b97409835c54e705d0a727bd.gz
| -rw-r--r-- | XMonad/Layout/IndependentScreens.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Layout/IndependentScreens.hs b/XMonad/Layout/IndependentScreens.hs index b222e43..a2a9c00 100644 --- a/XMonad/Layout/IndependentScreens.hs +++ b/XMonad/Layout/IndependentScreens.hs @@ -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 |