aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDaniel Wagner <daniel@wagner-home.com>2014-01-28 22:28:44 +0100
committerDaniel Wagner <daniel@wagner-home.com>2014-01-28 22:28:44 +0100
commit3c01086b66c3cf091b7e44c94aefc73d6969d4ce (patch)
treeca3330382b0274470cfd86f43873434d4048faa7 /XMonad
parentd66e4d3388d3b2669a15f50ec8aff64a3043ff0c (diff)
downloadXMonadContrib-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
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout/IndependentScreens.hs3
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