System.Taffybar.LayoutSwitcher

Simple text widget that shows the XMonad layout used in the currently active workspace, and that allows to change it by clicking with the mouse: left-click to switch to the next layout in the list, right-click to switch to the first one (as configured in xmonad.hs)

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 System.Taffybar.Hooks.PagerHints hook be installed in your xmonad.hs:

import System.Taffybar.Hooks.PagerHints (pagerHints)
main = do
  xmonad $ ewmh $ pagerHints $ defaultConfig
...

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

import System.Taffybar.LayoutSwitcher
main = do
  pager <- pagerNew defaultPagerConfig
  let los = layoutSwitcherNew pager

now you can use los as any other Taffybar widget.

layoutSwitcherNew :: Pager -> IO Widget

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