xmonad stuff

xmobarrc

@@ -0,0 +1,17 @@
+Config { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
+       , bgColor = "black"
+       , fgColor = "grey"
+       , position = Top
+       , lowerOnStart = True
+       , commands = [ Run Network "eth0" ["-L","0","-H","32","--normal","green","--high","red"] 10
+                    , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
+                    , Run Memory ["-t","Mem: <usedratio>%"] 10
+                    , Run Swap [] 10
+                    , Run Com "uname" ["-s","-r"] "" 36000
+                    , Run Date "%a %b %_d %Y %H:%M:%S" "date" 10
+                    , Run StdinReader
+                    ]
+       , sepChar = "%"
+       , alignSep = "}{"
+       , template = "%StdinReader% | %cpu% | %memory% * %swap% | %eth0% }{ <fc=#ee9a00>%date%</fc> | %uname%"
+       }

xmonad.hs

@@ -0,0 +1,16 @@
+import XMonad
+import XMonad.Hooks.DynamicLog
+import XMonad.Hooks.ManageDocks
+import XMonad.Util.Run
+import System.IO
+
+main = do
+	xmproc <- spawnPipe "xmobar"
+	xmonad $ defaultConfig {
+		manageHook = manageDocks <+> manageHook defaultConfig,
+		layoutHook = avoidStruts  $  layoutHook defaultConfig,
+		logHook    = dynamicLogWithPP $ xmobarPP {
+					ppOutput = hPutStrLn xmproc,
+					ppTitle = xmobarColor "green" "" . shorten 50
+					}
+		}