aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2011-07-15 01:17:41 +0200
committerAdam Vogt <vogt.adam@gmail.com>2011-07-15 01:17:41 +0200
commit3eae9324c087da3fae57f2dcd9181eb850f12c1a (patch)
tree912ddce82c8e912679e4005b791032849928a383 /XMonad/Hooks
parent675e2b70b16fdc4151bc2ec8b8953804bdd428b6 (diff)
downloadXMonadContrib-3eae9324c087da3fae57f2dcd9181eb850f12c1a.tar.gz
XMonadContrib-3eae9324c087da3fae57f2dcd9181eb850f12c1a.tar.xz
XMonadContrib-3eae9324c087da3fae57f2dcd9181eb850f12c1a.zip
Correct H.DynamicLog.dynamicLogXinerama comment. Wuzzeb's patch at issue 466.
Ignore-this: 8434fe4c740fc06b5b17f016e28e0376 Slight changes to the patch to 1. work with haddock, and 2. remove ppOutput which distracts from the formatting and is covered elsewhere. darcs-hash:20110714231741-1499c-35d5783d634799a926db2718a0a0cc7b6132a79c.gz
Diffstat (limited to 'XMonad/Hooks')
-rw-r--r--XMonad/Hooks/DynamicLog.hs13
1 files changed, 9 insertions, 4 deletions
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index 6081135..0547c80 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -307,10 +307,15 @@ pprWindowSet sort' urgents pp s = sepBy (ppWsSep pp) . map fmt . sort' $
-- where 1, 9, and 3 are the workspaces on screens 1, 2 and 3, respectively,
-- and 2 and 7 are non-visible, non-empty workspaces.
--
--- Unfortunately, at the present time, the current layout and window title
--- are not shown, and there is no way to incorporate the xinerama
--- workspace format shown above with 'dynamicLogWithPP'. Hopefully this
--- will change soon.
+-- At the present time, the current layout and window title
+-- are not shown. The xinerama workspace format shown above can be (mostly) replicated
+-- using 'dynamicLogWithPP' by setting 'ppSort' to /getSortByXineramaRule/ from
+-- "XMonad.Util.WorkspaceCompare". For example,
+--
+-- > defaultPP { ppCurrent = dzenColor "red" "#efebe7"
+-- > , ppVisible = wrap "[" "]"
+-- > , ppSort = getSortByXineramaRule
+-- > }
dynamicLogXinerama :: X ()
dynamicLogXinerama = withWindowSet $ io . putStrLn . pprWindowSetXinerama