<div>Thank you for your help,</div><div><br></div>Yeah, that's what I figured as well, but then I get this error when I recompile:<div><br></div><blockquote style="margin:0 0 0 40px;border:none;padding:0px"><div><div>xmonad.hs:391:25:</div>
</div><div><div> Couldn't match expected type `a -> a1' against inferred type `X ()'</div></div><div><div> In the first argument of `(>>)', namely `takeTopFocus'</div></div><div><div> In the first argument of `($)', namely</div>
</div><div><div> `takeTopFocus >> dynamicLogWithPP'</div></div><div><div> In the `logHook' field of a record</div></div><div><div><br></div></div><div><div><br></div></div></blockquote><div><br><div class="gmail_quote">
On Mon, Nov 5, 2012 at 11:41 AM, Brandon Allbery <span dir="ltr"><<a href="mailto:allbery.b@gmail.com" target="_blank">allbery.b@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr"><br><br><div class="gmail_quote"><div class="im">On Mon, Nov 5, 2012 at 11:29 AM, Eyal Erez <span dir="ltr"><<a href="mailto:oneself@gmail.com" target="_blank">oneself@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div>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:</div><div><div>logHook = dynamicLogWithPP $ xmobarPP</div>
<div> { ppOutput = hPutStrLn xmproc</div><div> , ppTitle = xmobarColor "#a8fc46" "" . shorten 50</div><div> , ppOrder = \(ws:_:t:_) -> [ws, t]</div>
<div> }</div></div></blockquote><div><br></div></div><div>Easiest is to prepend it:</div><div><br></div><div><div><font face="courier new, monospace">logHook = takeTopFocus >></font></div><div class="im">
<div><font face="courier new, monospace"> dynamicLogWithPP $ xmobarPP</font></div>
<div><font face="courier new, monospace"> { ppOutput = hPutStrLn xmproc</font></div><div><font face="courier new, monospace"> , ppTitle = xmobarColor "#a8fc46" "" . shorten 50</font></div>
<div><font face="courier new, monospace"> , ppOrder = \(ws:_:t:_) -> [ws, t]</font></div><div><font face="courier new, monospace"> }</font></div></div></div><span class="HOEnZb"><font color="#888888"><div>
<br></div>
</font></span></div><span class="HOEnZb"><font color="#888888">-- <br><div dir="ltr"><div>brandon s allbery kf8nh sine nomine associates</div><div><a href="mailto:allbery.b@gmail.com" target="_blank">allbery.b@gmail.com</a> <a href="mailto:ballbery@sinenomine.net" target="_blank">ballbery@sinenomine.net</a></div>
<div>unix/linux, openafs, kerberos, infrastructure <a href="http://sinenomine.net" target="_blank">http://sinenomine.net</a></div></div><br>
</font></span></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><font face="'courier new', monospace"><b>Eyal Erez <</b><a href="mailto:oneself@gmail.com" target="_blank"><b>oneself@gmail.com</b></a><b>></b><br>
<br></font><div><div><font face="'courier new', monospace">There are 10 types of people, those who know binary and those who don't.</font></div></div><div><font face="'courier new', monospace"><br></font></div>
<br>
</div>