@@ -0,0 +1,19 @@+import XMonad
+import XMonad.Hooks.DynamicLog
+import XMonad.Hooks.ManageDocks
+import XMonad.Util.Run(spawnPipe)
+import XMonad.Util.EZConfig(additionalKeys)
+import System.IO
+
+main = do
+  xmproc <-spawnPipe "/usr/bin/xmobar /home/alan/.xmobarrc"
+  xmonad $ defaultConfig {
+    manageHook = manageDocks <+> manageHook defaultConfig,
+    layoutHook = avoidStruts  $  layoutHook defaultConfig,
+    logHook = dynamicLogWithPP xmobarPP {
+      ppOutput = hPutStrLn xmproc,
+      ppTitle  = xmobarColor "green" "" . shorten 50
+    },
+    terminal = "urxvt",
+    modMask = mod4Mask
+  }