System.Taffybar.WindowSwitcher

Menu widget that shows the title of the currently focused window and that, when clicked, displays the list of all currently open windows allowing to switch to any of them.

N.B. If you're just looking for a drop-in replacement for the System.Taffybar.XMonadLog widget that is clickable and doesn't require DBus, you may want to see first System.Taffybar.TaffyPager.

Usage

This widget requires that the EwmhDesktops hook from the XMonadContrib project be installed in your xmonad.hs file:

import XMonad.Hooks.EwmhDesktops (ewmh)
main = do
  xmonad $ ewmh $ defaultConfig
...

Once you've properly configured xmonad.hs, you can use the widget in your taffybar.hs file:

import System.Taffybar.WindowSwitcher
main = do
  pager <- pagerNew defaultPagerConfig
  let wnd = windowSwitcherNew pager

now you can use wnd as any other Taffybar widget.

windowSwitcherNew :: Pager -> IO Widget

Create a new WindowSwitcher widget that will use the given Pager as its source of events.