taffybar-0.2.1: A desktop bar similar to xmobar, but with more GUI

Safe HaskellSafe-Infered

System.Taffybar

Contents

Description

The main module of Taffybar

Synopsis

Detail

This is a system status bar meant for use with window manager like XMonad. It is similar to xmobar, but with more visual flare and a different widget set. Contributed widgets are more than welcome. The bar is drawn using gtk and cairo. It is actually the simplest possible thing that could plausibly work: you give Taffybar a list of GTK widgets and it will render them in a horizontal bar for you (taking care of ugly details like reserving strut space so that window managers don't put windows over it).

This is the real main module. The default bar should be customized to taste in the config file (~.configtaffybar/taffybar.hs). Typically, this means adding widgets to the default config. A default configuration file is included in the distribution, but the essentials are covered here.

Config File

The config file is just a Haskell source file that is compiled at startup (if it has changed) to produce a custom executable with the desired set of widgets. You will want to import this module along with the modules of any widgets you want to add to the bar. Note, you can define any widgets that you want in your config file or other libraries. Taffybar only cares that you give it some GTK widgets to display.

Below is a fairly typical example:

 import System.Taffybar
 import System.Taffybar.Systray
 import System.Taffybar.XMonadLog
 import System.Taffybar.SimpleClock
 import System.Taffybar.Widgets.PollingGraph
 import System.Information.CPU

 cpuCallback = do
   (_, systemLoad, totalLoad) <- cpuLoad
   return [ totalLoad, systemLoad ]

 main = do
   let cpuCfg = defaultGraphConfig { graphDataColors = [ (0, 1, 0, 1), (1, 0, 1, 0.5)]
                                   , graphLabel = Just "cpu"
                                   }
       clock = textClockNew Nothing "<span fgcolor='orange'>%a %b %_d %H:%M</span>" 1
       log = xmonadLogNew
       tray = systrayNew
       cpu = pollingGraphNew cpuCfg 0.5 cpuCallback
   defaultTaffybar defaultTaffybarConfig { startWidgets = [ log ]
                                         , endWidgets = [ tray, clock, cpu ]
                                         }

This configuration creates a bar with four widgets. On the left is the XMonad log. The rightmost widget is the system tray, with a clock and then a CPU graph. The clock is formatted using standard strftime-style format strings (see the clock module). Note that the clock is colored using Pango markup (again, see the clock module).

The CPU widget plots two graphs on the same widget: total CPU use in green and then system CPU use in a kind of semi-transparent purple on top of the green.

It is important to note that the widget lists are *not* [Widget]. They are actually [IO Widget] since the bar needs to construct them after performing some GTK initialization.

XMonad Integration (via DBus)

The XMonadLog widget differs from its counterpart in xmobar: it listens for updates over DBus instead of reading from stdin. This makes it easy to restart Taffybar independently of XMonad. XMonad does not come with a DBus logger, so here is an example of how to make it work. Note: this requires the dbus-core (>0.9) package, which is installed as a dependency of Taffybar.

 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageDocks
 import DBus.Client.Simple
 import System.Taffybar.XMonadLog ( dbusLog )

 main = do
   client <- connectSession
   let pp = defaultPP
   xmonad defaultConfig { logHook = dbusLog client pp
                        , manageHook = manageDocks
                        }

The complexity is handled in the System.Tafftbar.XMonadLog module. Note that manageDocks is required to have XMonad put taffybar in the strut space that it reserves. If you have problems with taffybar appearing almost fullscreen, check to see if you have manageDocks in your manageHook.

A note about DBus:

  • If you start xmonad using a graphical login manager like gdm or kdm, DBus should be started automatically for you.
  • If you start xmonad with a different graphical login manager that does not start DBus for you automatically, put the line eval `dbus-launch --auto-syntax` into your ~/.xsession *before* xmonad and taffybar are started. This command sets some environment variables that the two must agree on.
  • If you start xmonad via startx or a similar command, add the above command to ~/.xinitrc

Colors

While taffybar is based on GTK+, it ignores your GTK+ theme. The default theme that it uses is in ~/.cabal/share/taffybar-<version>/taffybar.rc. You can customize this theme by copying it to ~/.config/taffybar/taffybar.rc. For an idea of the customizations you can make, see https://live.gnome.org/GnomeArt/Tutorials/GtkThemes.

data TaffybarConfig Source

Constructors

TaffybarConfig 

Fields

screenNumber :: Int

The screen number to run the bar on (default is almost always fine)

monitorNumber :: Int

The xinerama/xrandr monitor number to put the bar on (default: 0)

barHeight :: Int

Number of pixels to reserve for the bar (default: 25 pixels)

barPosition :: Position

The position of the bar on the screen (default: Top)

errorMsg :: Maybe String

Used by the application

startWidgets :: [IO Widget]

Widgets that are packed in order at the left end of the bar

endWidgets :: [IO Widget]

Widgets that are packed from right-to-left in the bar

defaultTaffybar :: TaffybarConfig -> IO ()Source

The entry point of the application. Feed it a custom config.

defaultTaffybarConfig :: TaffybarConfigSource

The default configuration gives an empty bar 25 pixels high on monitor 0.

data Position Source

Constructors

Top 
Bottom 

Instances