dots/xmonad.hs

import XMonad

import XMonad.Layout.Grid
import XMonad.Layout.NoBorders(smartBorders)

import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks

import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)

import XMonad.Prompt
import XMonad.Prompt.Shell(shellPrompt)

import System.IO(hPutStrLn)

myLayoutHook = tiled ||| Mirror tiled ||| Grid ||| Full
	where
		-- default tiling algorithm partitions the screen into two panes
		tiled   = Tall nmaster delta ratio

		-- The default number of windows in the master pane
		nmaster = 1

		-- Default proportion of screen occupied by master pane
		ratio   = 1/2

		-- Percent of screen to increment by when resizing panes
		delta   = 3/100

myModMask = mod1Mask

main = do
	xmproc <- spawnPipe "xmobar"
	xmonad $ defaultConfig {
		manageHook = manageDocks <+> manageHook defaultConfig,
		layoutHook = avoidStruts  $  smartBorders $ myLayoutHook,
		logHook    = dynamicLogWithPP $ xmobarPP {
					ppOutput = hPutStrLn xmproc,
					ppTitle = xmobarColor "green" ""
					},
		modMask    = myModMask
		}	`additionalKeys`
			[
				((myModMask, xK_p), shellPrompt defaultXPConfig { position = Top }),
				((myModMask, xK_b), sendMessage ToggleStruts)
			]