System.Taffybar.Widget.Layout

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)

Usage

This widget requires that the System.Taffybar.Support.PagerHints hook be installed in your xmonad.hs:

import System.Taffybar.Support.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.Widget.Layout
main = do
  let los = layoutSwitcherNew defaultLayoutConfig

now you can use los as any other Taffybar widget.

newtype LayoutConfig

Constructors

LayoutConfig

Fields

• formatLayout :: Text -> TaffyIO Text

defaultLayoutConfig :: LayoutConfig

layoutNew :: LayoutConfig -> TaffyIO Widget

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