Unnamed

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.Run(runInTerm)
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Layout.NoBorders
import System.IO

myManageHook = composeAll 
	[ resource =? "MPlayer"        --> doFloat
	, resource =? "Gimp"           --> doFloat 
	, resource =? "wicd-client.py" --> doFloat 
	, isFullscreen --> doFullFloat ]

mylayoutHook = smartBorders ( layoutHook defaultConfig )

main = do
	xmproc <- spawnPipe "xmobar"
--	spawn "~/.xmonad/startup"
	xmonad $ defaultConfig
		{ 
		manageHook = myManageHook <+> manageDocks <+> manageHook defaultConfig
		, layoutHook = avoidStruts $ mylayoutHook
		, focusFollowsMouse = True
		, logHook = dynamicLogWithPP $ xmobarPP
			{ ppOutput = hPutStrLn xmproc
			, ppTitle = xmobarColor "green" "" . shorten 50
			}
		, terminal = "urxvt"
		} `additionalKeys` [
                --run prompt
		   ((mod1Mask, xK_r), spawn "dmenu_run -fn drift -i -nb black -nf grey -sb red -sf white")
                -- favorite programs
		,  ((mod4Mask, xK_d), spawn "google-chrome")
		,  ((mod4Mask, xK_s), spawn "urxvt")
		,  ((mod4Mask, xK_i), runInTerm "-title irssi" "irssi")
                -- media player
		,  ((mod4Mask, xK_z), spawn "mpc prev")
		,  ((mod4Mask, xK_x), spawn "mpc toggle")
		,  ((mod4Mask, xK_c), spawn "mpc pause")
		,  ((mod4Mask, xK_v), spawn "mpc stop")
		,  ((mod4Mask, xK_b), spawn "mpc next")
                ]