[Xmonad] Show name of focused window in status bar

[Kai Grossjohann]

On Tue, Aug 21, 2007 at 06:09:45PM +0200, Lukas Mai wrote:

> logHook = withWindowSet $ \ws -> do
>     let d = pprWindowSet ws
>     t <- maybe (return "") (liftM show . getName) (W.peek ws)
>     io . putStrLn $ show t ++ d

Way over my head.  I just know it works.  Thanks a lot.

Kai