-- Imports.
import XMonad
import XMonad.Hooks.DynamicLog  
import XMonad.Hooks.UrgencyHook
import XMonad.Actions.UpdatePointer
-- The main function.
main = xmonad =<< statusBar myBar myPP toggleStrutsKey myConfig

-- Command to launch the bar.
myBar = "xmobar"

-- Custom PP, configure it as you like. It determines what's being written to the bar.
myPP = xmobarPP	{ ppCurrent = xmobarColor "#1793D1" ""  
		,ppTitle = xmobarColor "#1793D1" "" 
		,ppUrgent = xmobarColor "#000000" "#1793D1". xmobarStrip 
		}

--StrutsKey
toggleStrutsKey XConfig { XMonad.modMask = modMask} = (modMask, xK_b)

--Main configuration
myConfig = withUrgencyHook NoUrgencyHook defaultConfig	{
				terminal = "urxvt"
				--,modMask = mod4Mask
				,workspaces = ["1:web", "2:dev","3:fm","4:media","5:cli","6:office","7:download","8:gfx","9:vbox"]
				,normalBorderColor  = "#1793D1"
				,focusedBorderColor  = "#1793D1"
				,logHook = updatePointer $ TowardsCentre 1 1
				,manageHook = composeAll [ className =? "SMplayer"	--> doFloat
							, className =? "Gimp"           		--> doFloat
							, resource =? "xfce4-notifyd"   		--> doIgnore
							]
				}