~/.xmonad,~/.config/taffybar: Introducing taffybar

A really taffy bar. Or something. It's in proper haskell and quite fun
so far.

.config/taffybar/taffybar.hs

@@ -0,0 +1,24 @@
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)]
        }
        clock = textClockNew Nothing "<span fgcolor='orange'>%a %b %_d %H:%M</span>" 1
        log = xmonadLogNew
        tray = systrayNew
        cpu = pollingGraphNew cpuCfg 3 cpuCallback
    defaultTaffybar defaultTaffybarConfig {
        barHeight = 15,
        startWidgets = [log],
        endWidgets = [tray, clock, cpu]
    }

.xinitrc

@@ -5,6 +5,7 @@ xsetroot -cursor_name left_ptr
xrdb -merge ~/.Xresources
#feh -bg-scale /usr/share/themes/Adwaita/backgrounds/stripes.jpg
eval `dbus-launch --auto-syntax`
start-pulseaudio-x11
pactl set-sink-volume 0 1.0
nm-applet&

.xmonad/xmonad.hs

@@ -1,6 +1,7 @@
import XMonad
import XMonad.Actions.SpawnOn (manageSpawn, spawnHere)
import XMonad.Hooks.DynamicLog
import DBus.Client (connectSession)
import System.Taffybar.XMonadLog (dbusLog)
import XMonad.Hooks.ManageDocks (manageDocks, avoidStruts)
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders (smartBorders)
@@ -25,6 +26,7 @@ import Data.Monoid (All (All))
(??) = flip fmap
main = do
    dbusClient <- connectSession
    xmonad $ defaultConfig {
        modMask  = mod4Mask,
        terminal = "sakura",
@@ -38,7 +40,8 @@ main = do
                     ] <+> manageHook defaultConfig,
        -- Don't overwrite the section used by docks
        layoutHook = avoidStruts $ smartBorders $ layoutHook defaultConfig,
        handleEventHook = fullscreenEventHook
        handleEventHook = fullscreenEventHook,
        logHook = dbusLog dbusClient
     } `additionalKeys` [
        ((mod4Mask, xK_b), spawnHere "chromium --allow-file-access-from-files"),
        ((mod4Mask .|. shiftMask, xK_b), spawnHere "chromium --incognito --allow-file-access-from-files"),