From 3c01086b66c3cf091b7e44c94aefc73d6969d4ce Mon Sep 17 00:00:00 2001 From: Daniel Wagner Date: Tue, 28 Jan 2014 22:28:44 +0100 Subject: expose and document X.L.IndependentScreens.marshallSort Ignore-this: 90c1437c6ffe1dbd8f4a4ed192097ec darcs-hash:20140128212844-76d51-ade7eabfc1a759b5b97409835c54e705d0a727bd.gz --- XMonad/Layout/IndependentScreens.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3