From 3eae9324c087da3fae57f2dcd9181eb850f12c1a Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Fri, 15 Jul 2011 01:17:41 +0200 Subject: 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 --- XMonad/Hooks/DynamicLog.hs | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'XMonad/Hooks') 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 -- cgit v1.2.3