Thank you for your help,

Yeah, that's what I figured as well, but then I get this error when I recompile:

xmonad.hs:391:25:
    Couldn't match expected type `a -> a1' against inferred type `X ()'
    In the first argument of `(>>)', namely `takeTopFocus'
    In the first argument of `($)', namely
        `takeTopFocus >> dynamicLogWithPP'
    In the `logHook' field of a record



On Mon, Nov 5, 2012 at 11:41 AM, Brandon Allbery <allbery.b@gmail.com> wrote:


On Mon, Nov 5, 2012 at 11:29 AM, Eyal Erez <oneself@gmail.com> wrote:
I apologize in advance for the newbie question, but how can I combine takeTopFocus with my existing logHook for xmobar?  Currently, my logHook looks like this:
logHook = dynamicLogWithPP $ xmobarPP
                   { ppOutput = hPutStrLn xmproc
                   , ppTitle = xmobarColor "#a8fc46" "" . shorten 50
                   , ppOrder = \(ws:_:t:_) -> [ws, t]
                   }

Easiest is to prepend it:

logHook = takeTopFocus >>
          dynamicLogWithPP $ xmobarPP
                             { ppOutput = hPutStrLn xmproc
                             , ppTitle = xmobarColor "#a8fc46" "" . shorten 50
                             , ppOrder = \(ws:_:t:_) -> [ws, t]
                             }

--
brandon s allbery kf8nh                               sine nomine associates
allbery.b@gmail.com                                  ballbery@sinenomine.net
unix/linux, openafs, kerberos, infrastructure          http://sinenomine.net




--
Eyal Erez <oneself@gmail.com>

There are 10 types of people, those who know binary and those who don't.