xmonad.hs

{- 
Author: joseph.glanville@orionvm.com.au
Version: XMonad 0.9.2
Requires: XMonad Contrib and XMobar
 -}

import System.IO
import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Layout.Named
import XMonad.Layout.PerWorkspace
import XMonad.Layout.NoBorders
 
myManageHook = composeAll
    [ className =? "Gimp" --> doFloat
    , className =? "Vncviewer" --> doFloat
    ]
    
myWorkspaces = ["term", "web", "code", "irc", "media", "music", "else"]

myLayoutHook = onWorkspace "media" myFullscreen $
			   onWorkspace "web" myBorderless $
			   onWorkspace "music" myFullscreen $
			   myLayout where
					myFullscreen = noBorders (Full)
					myBorderless = noBorders (avoidStruts $ layoutHook defaultConfig)
					myLayout = avoidStruts $ layoutHook defaultConfig


main = do
    xmproc <- spawnPipe "/usr/bin/xmobar ${HOME}/.xmobarrc"
    xmonad $ defaultConfig
	{
		manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig
		, layoutHook = myLayoutHook
		, workspaces = myWorkspaces
		, normalBorderColor = "#000000"
		, focusedBorderColor = "#597BC5"
		, terminal = "terminator"
		, logHook = dynamicLogWithPP $ xmobarPP
			{ ppOutput = hPutStrLn xmproc
			, ppCurrent = xmobarColor "#D8AD4C" "" . wrap "[" "]"
			, ppTitle = xmobarColor "#99ad6a" ""
			}
        , modMask = mod4Mask
	}
	`additionalKeys`
		[
			((mod4Mask, xK_p), spawn "dmenu_run")
		]