[xmonad] make DynamicLog prefix workspace names with number

[Lara Michaels]

Hi Ivan, Omari,

Following up on this question, is it possible to have the log automatically set the name of the workspace to the programs running in it? 

Currently I use the dynamic log with xmonad-log-applet (http://uhsure.com/xmonad-log-applet.html), but it would be so much more useful if rather than *me* making sure I place each window in the right workspace the system would name the workspaces after the windows each of them contains...

I don't understand Haskell, but I believe this is the part of my xmonad.hs that sets the names of the workspaces as they are shown on the taskbar:

        logHook    = dynamicLogWithPP $ defaultPP {
                   ppOutput   = \ str -> do
                     let str'  = "<span font=\"Terminus 9 Bold\">" ++ str ++
                                 "</span>"
                         str'' = sanitize str'
                     msg <- newSignal "/org/xmonad/Log" "org.xmonad.Log"
                                "Update"
                     addArgs msg [String str'']
                     -- If the send fails, ignore it.
                     send dbus msg 0 `catchDyn`
                       (\ (DBus.Error _name _msg) ->
                         return 0)
                     return ()
                 , ppTitle    = pangoColor "#003366" . shorten 50
                 , ppCurrent  = pangoColor "#006666" . wrap "[" "]"
                 , ppVisible  = pangoColor "#663366" . wrap "(" ")"
                 , ppHidden   = wrap " " " "
                 , ppUrgent   = pangoColor "red"
                 }

Any ideas would be most welcome : )

best,

lara


--- On Sat, 1/30/10, Ivan Miljenovic <ivan.miljenovic at gmail.com> wrote:

> From: Ivan Miljenovic <ivan.miljenovic at gmail.com>
> Subject: Re: [xmonad] make DynamicLog prefix workspace names with number
> To: xmonad at haskell.org
> Date: Saturday, January 30, 2010, 2:23 AM
> 2010/1/30 Omari Norman <omari at smileystation.com>:
> > Is there any easy way to get DynamicLog to prefix the
> names of
> > workspaces with numbers? For instance, I have
> workspaces named "web",
> > "mail" and "local"; I want these to show up in my
> xmobar as "1:web",
> > "2:mail", and "3:remote".
> 
> I do this, but I'm not at my own machine at the
> moment.  I'll email
> that part of my config later on when I _am_ at my own
> computer.
> 
> 
> -- 
> Ivan Lazar Miljenovic
> Ivan.Miljenovic at gmail.com
> IvanMiljenovic.wordpress.com
> Marie von Ebner-Eschenbach  - "Even a stopped clock is
> right twice a
> day." - http://www.brainyquote.com/quotes/authors/m/marie_von_ebnereschenbac.html
> _______________________________________________
> xmonad mailing list
> xmonad at haskell.org
> http://www.haskell.org/mailman/listinfo/xmonad
>