System.Taffybar.Pager

Common support for pager widgets. This module does not provide itself any widgets, but implements an event dispatcher on which widgets can subscribe the desktop events they're interested in, as well as common configuration facilities.

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.

You need only one Pager component to instantiate any number of pager widgets:

pager <- pagerNew defaultPagerConfig

let wss = wspaceSwitcherNew pager  -- Workspace Switcher widget
    los = layoutSwitcherNew pager  -- Layout Switcher widget
    wnd = windowSwitcherNew pager  -- Window Switcher widget

Documentation

data Pager

Structure containing the state of the Pager.

data PagerConfig

Structure contanining functions to customize the pretty printing of different widget elements.

Constructors

PagerConfig

Fields

activeWindow :: String -> String

the name of the active window.

activeLayout :: String -> String

the currently active layout.

activeWorkspace :: String -> String

the currently active workspace.

hiddenWorkspace :: String -> String

inactive workspace with windows.

emptyWorkspace :: String -> String

inactive workspace with no windows.

visibleWorkspace :: String -> String

all other visible workspaces (Xinerama or XRandR).

urgentWorkspace :: String -> String

workspaces containing windows with the urgency hint set.

widgetSep :: String

separator to use between desktop widgets in TaffyPager.

defaultPagerConfig :: PagerConfig

Default pretty printing options.

pagerNew :: PagerConfig -> IO Pager

Creates a new Pager component (wrapped in the IO Monad) that can be used by widgets for subscribing X11 events.

subscribe :: Pager -> Listener -> String -> IO ()

Registers the given Listener as a subscriber of events of the given type: whenever a new event of the type with the given name arrives to the Pager, it will execute Listener on it.

colorize

Arguments

:: String

Foreground color.

-> String

Background color.

-> String

Contents.

-> String

Creates markup with the given foreground and background colors and the given contents.

shorten :: Int -> String -> String

Limit a string to a certain length, adding "..." if truncated.

wrap

Arguments

:: String

Left delimiter.

-> String

Right delimiter.

-> String

Output string.

-> String

Wrap the given string in the given delimiters.

escape :: String -> String

Escape strings so that they can be safely displayed by Pango in the bar widget