[xmonad] ppVisible with 3 screens

[Felix Blanke]

Hi Norbert,

thanks a lot for your reply. There are some nice information in it.

The last time I used haskell is a long time ago :) It will took me some time to
understand what is going on in those functions.
If you are some kind of haskel hacker and it takes you only one minute to change the
function it would be great. Otherwise I'll post my result here if I did it.

Those pp-variables works like they should! Thanks again for that great help. One last
question about that: If I do it like you wrote the color of the "|"-seperator after the first
three workspaces is the same as the color of ppVisible or ppCurrent

    ppVisible = xmobarColor "#EE9A00" "" . (++ " |") . wrap "[" "]"
    ppCurrent = xmobarColor "#CC0000" "" . (++ " |") . wrap "[" "]"

Like I said: I'm a haskell noob. How can I set the color of the separator different?



Regards,
Felix


On 03. October 2010 - 17:31, Norbert Zeh wrote:
> Date: Sun, 3 Oct 2010 17:31:29 -0300
> From: Norbert Zeh <nzeh at cs.dal.ca>
> To: xmonad at haskell.org
> Subject: Re: [xmonad] ppVisible with 3 screens
> 
> Felix Blanke [2010.10.03 1618 +0200]:
> > Hi,
> > 
> > thanks for that hint :)
> > 
> > That does help, but for me it would be mutch nicer to have that thing with the
> > different colors working.
> > 
> > It is kind of confusing with that sorting thing:
> > My primary monitor is the one in the middle. With that sorting thing the workspace
> > visible at the middle monitor comes first, then the left one and then the right one.
> > 
> > Would it be possible to change that? Like: Workspace on the left one is listed first,
> > workspace on the middle one (primary) listed second and workspace on the right one
> > listed third?
> > It would be also nice to have a seperator after the first 3 workspaces :)
> 
> I have a setup like that working.  I have two screens, and my status bar
> tells me what's on each screen, including their layouts, followed by a
> list of *all* workspaces, colour-coded according to whether or not they
> contain windows.  So the end of my statusbar looks something like this:
> 
> 1:Shell (Left) 3:Edit (Top) | 1234567890
> 
> with appropriate colours assigned to the 1234567890 sequence.
> 
> The downside is that the only way I could see to achieve this is to
> collect this information myself from the stackset using hooks added to
> ppExtra.  What you're trying to do can be done the same way.  If you're
> willing to go to such lengths, I can elaborate.
> 
> Come to think of it, what you are trying to do, including separator, can
> be done using just the right sorter, formatting function and a bit of
> postprocessing as follows:
> 
> As sorter, you want to use X.U.WorkspaceCompare.getSortByXineramaRule.
> This places your visible workspaces first, sorted by screen.  If that
> doesn't do what you want because the screens are not numbered left to
> right, you should look at the code of getSortByXineramaRule and tweak it
> to sort the visible workspaces the way you want.  It's not hard.
> 
> As formatting rule, you want (probably you want to add appropriate
> colouring):
> 
> ppVisible = (++ "|")
> ppCurrent = (++ "|")
> ppHidden  = id
> 
> Finally, you want
> 
> ppOrder = (\(ws:l:t:_) -> [postprocess ws, l, t])
> 
> with
> 
> postprocess = delete '|' . delete '|'
> (For four screens, you would use three "delete '|'" here.)
> 
> To get the "delete" function, you need to import Data.List.
> 
> Cheers,
> Norbert
> 
> > 
> > Regards,
> > Felix
> > 
> > 
> > On 03. October 2010 - 14:44, Juraj Hercek wrote:
> > > Date: Sun, 03 Oct 2010 14:44:06 +0200
> > > From: Juraj Hercek <juhe_xmonad at hck.sk>
> > > To: Felix Blanke <felixblanke at gmail.com>
> > > CC: xmonad at haskell.org
> > > Subject: Re: [xmonad] ppVisible with 3 screens
> > > 
> > > Hi Felix,
> > > 
> > > On 09/30/2010 01:29 PM, Felix Blanke wrote:
> > > > ...
> > > > I was using 2 screens with xmonad and xmobar.
> > > >
> > > > The settings
> > > >
> > > > ppCurrent = xmobarColor "#CC0000" "" . wrap "[" "]"
> > > > , ppVisible = xmobarColor "#EE9A00" "" . wrap "[" "]"
> > > > , ppTitle =  shorten 80
> > > > , ppSep =  "<fc=#AFAF87>  |</fc>"
> > > > , ppHiddenNoWindows = xmobarColor "#AFAF87" ""
> > > > , ppUrgent = xmobarColor "#EE9A00" "" . wrap "[" "]"
> > > >
> > > > worked good for 2 screens: The active workspace is red and the inactive is orange.
> > > >
> > > > But now, with 3 screens, there are 2 inactive workspaces and they both are orange. Is
> > > > there a way to say:
> > > >
> > > > inactive on screen 0 = blue
> > > > inactive on screen 1 = ornage
> > > > inactive on screen 3 = green
> > > >
> > > > or something similar.
> > >  > ...
> > > 
> > > I'm not sure if the thing you want to achieve is (easily) possible with 
> > > current implementation. But maybe you want to use better sorting 
> > > algorithm, more suitable for configurations with more than 2 workspaces. 
> > > This is how my PP looks like (the ppSort line is most interesting to you):
> > > 
> > > ---8<---
> > > myPP :: PP
> > > myPP = defaultPP { ppOutput  = putStrLn
> > >                   , ppCurrent = color "yellow" ""
> > >                   , ppVisible = color "lightblue ""
> > >                   , ppUrgent  = color "red" ""
> > >                   , ppSort    = getSortByXineramaRule
> > >                   } where color = xmobarColor
> > > --->8---
> > > 
> > > Cheers,
> > > Juraj
> > ---end quoted text---
> > _______________________________________________
> > xmonad mailing list
> > xmonad at haskell.org
> > http://www.haskell.org/mailman/listinfo/xmonad
> > 
> 
> 
> -- 
> 
> ()  ascii ribbon campaign  -  against html e-mail
> /\  www.asciiribbon.org    -  against proprietary attachments
> _______________________________________________
> xmonad mailing list
> xmonad at haskell.org
> http://www.haskell.org/mailman/listinfo/xmonad
---end quoted text---