Adding xmonad configs

xmonad/xmobar

@@ -0,0 +1,18 @@
+Config {
+       font = "-Misc-Fixed-Normal--13-120-75-75-C-70-ISO8859-1"
+      , bgColor = "black"
+      , fgColor = "grey"
+      , position = BottomW L 100
+      , commands = [
+                   Run Battery ["-L", "10", "--low", "red","--high","grey"] 10
+                   , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
+                   , Run Memory ["-t","Mem: <usedratio>%"] 10
+                   , Run Swap [] 10
+                   , Run Date "%a %b %_d %l:%M" "date" 10
+                   , Run StdinReader
+                   ]
+      , sepChar = "%"
+      , alignSep = "}{"
+      , template = "%StdinReader% }{%battery% | %cpu% | %memory% | <fc=#ee9a00>%date%</fc>"
+      }
+

xmonad/xmonad.hs

@@ -0,0 +1,32 @@
+import XMonad
+import XMonad.Hooks.DynamicLog
+import XMonad.Hooks.ManageDocks
+import XMonad.Util.Run(spawnPipe)
+import XMonad.Util.EZConfig(additionalKeys)
+import System.IO
+
+myManageHook = composeAll [
+    className =? "Gimp" --> doFloat,
+    className =? "Pidgin" --> doFloat,
+    className =? "MPlayer" --> doFloat
+    ]
+
+main::IO()
+main = do
+    xmproc <- spawnPipe "/usr/bin/xmobar /home/limed/.xmonad/xmobar"
+    xmonad $ defaultConfig{
+        manageHook = manageDocks <+> myManageHook <+>
+                    manageHook defaultConfig,
+        layoutHook = avoidStruts  $  layoutHook defaultConfig,
+        terminal = "urxvt",
+        logHook = dynamicLogWithPP $ xmobarPP {
+                ppOutput = hPutStrLn xmproc
+                , ppTitle = xmobarColor "green" "" . shorten 50
+            },
+        modMask = mod4Mask
+     }  `additionalKeys`
+     [  ((mod4Mask, xK_c), kill),
+        ((mod1Mask, xK_F2), spawn "urxvt"),
+        ((mod1Mask, xK_F3), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"") -- %! Launch dmenu
+        -- ((mod4mask, xK_l), spawn "xscreensaver-command -lock")
+     ]