.xmobarrc.hs

--
-- .xmobarrc
--

Config { font = "xft:Fixed-8"
       , bgColor = "black"
       , fgColor = "green"
       , position = Top
       , lowerOnStart = False
       , commands = [
                    Run Weather "KPAO" ["-t","<tempF>F <skyCondition>","-L","64","-H","77","-n","#CEFFAC","-h","#FFB6B0","-l","#96CBFE"] 36000,
                    Run MultiCpu ["-t","Cpu: <total0> <total1> <total2> <total3>","-L","30","-H","60","-h","#FFB6B0","-l","#CEFFAC","-n","#FFFFCC","-w","3"] 10,
                    Run Memory ["-t","Mem: <usedratio>%","-H","8192","-L","4096","-h","#FFB6B0","-l","#CEFFAC","-n","#FFFFCC"] 10,
                    Run Swap ["-t","Swap: <usedratio>%","-H","1024","-L","512","-h","#FFB6B0","-l","#CEFFAC","-n","#FFFFCC"] 10,
                    Run Network "eth0" ["-t","Net: <rx>, <tx>","-H","200","-L","10","-h","#FFB6B0","-l","#CEFFAC","-n","#FFFFCC"] 10,
                    Run Date "%a %b %_d %l:%M" "date" 10,
                    Run StdinReader
                    ]
       , sepChar = "%"
       , alignSep = "}{"
       , template = "%StdinReader% }{ %multicpu%   %memory%   %swap%   %eth0%   <fc=#FFFFCC>%date%</fc>   %KPAO%"
       }

xmonad.hs

import qualified Data.Map as M

import XMonad
import qualified XMonad.StackSet as W

import XMonad.Actions.WindowGo
import XMonad.Actions.CycleWS
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.DynamicLog
import XMonad.Layout
import XMonad.Layout.Gaps
import XMonad.Layout.ResizableTile
import XMonad.Layout.NoBorders
import XMonad.Layout.MultiToggle
import XMonad.Layout.MultiToggle.Instances
import XMonad.Util.EZConfig
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.Run

tall = ResizableTall 1 (3/100) (1/2) []
layout = smartBorders $ mkToggle1 FULL $ gaps [(U,24)] $ tall ||| Mirror tall
works = map show [1..9]
myLogHook dest = dynamicLogWithPP defaultPP
            { ppOutput = hPutStrLn dest
            , ppVisible = wrap "(" ")"
            }

main :: IO ()
main = do
  xmproc <- spawnPipe "xmobar"
  xmonad $ defaultConfig
        { borderWidth = 2
        , terminal = "xfce4-terminal"
        , normalBorderColor = "#99ccff"
        , focusedBorderColor = "#0033dd"
        , layoutHook = layout
        , manageHook = manageDocks <+> composeAll
                      [ className =? "MPlayer" --> doFloat
                      , className =? "Gimp"    --> doFloat
                      , title     =? "Speedbar" --> doFloat
                      , title     =? "Adobe Reader" --> doFloat
                      ]
        , logHook = myLogHook xmproc
        , workspaces = works

        }