My netbooks old Xmonad config

gistfile1.hs

import XMonad
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.DynamicLog
import XMonad.Util.Run(spawnPipe)
import XMonad.Actions.CycleWS
import XMonad.Layout.Circle
import XMonad.Layout.MagicFocus
import XMonad.Layout.Tabbed
import XMonad.Prompt
import XMonad.Prompt.Ssh
import XMonad.Layout.NoBorders
import XMonad.Layout.PerWorkspace
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import System.IO

main = do
	xmproc <- spawnPipe "xmobar"
	xmonad $ defaultConfig
		{ terminal = "urxvt",
		  modMask = mod4Mask,
		  borderWidth = 1,
		  normalBorderColor = "#00ffff",
		  focusedBorderColor = "#ff00ff",
		  workspaces = ["term", "web", "video", "mngr"] ++ map show [5..9],
		  manageHook = composeAll
		  [ className =? "MPlayer" --> doFloat <+> doF (W.shift "video"),
		    className =? "Chromium" --> doF (W.shift "web"),
			className =? "Xfe" --> doF (W.shift "mngr")
		  ] <+> manageDocks,
		  layoutHook = myLayout,
		  logHook = dynamicLogWithPP $ xmobarPP
		  	{ ppOutput = hPutStrLn xmproc,
			  ppTitle = xmobarColor "cyan" "" . shorten 30
			},
		  keys = \c -> myKeys c `M.union` keys defaultConfig c,
		  startupHook = startup
		}
	where
		myKeys (XConfig {}) = M.fromList $
			[((mod4Mask, xK_Right), nextWS),
			 ((mod4Mask, xK_Left), prevWS),
			 ((mod4Mask, xK_s), sshPrompt defaultXPConfig),
			 ((mod4Mask, xK_Print), spawn "scrot -q10 'shot-%Y%m%d-%H.%M.%S.png'")]

myLayout = 
	onWorkspace "video" (smartBorders Full) $
	avoidStruts $
	(tiled ||| Mirror tiled ||| Full ||| simpleTabbedBottom ||| magicFocus(Circle))
	where
		tiled = Tall nmaster delta ratio
		nmaster = 1
		delta = 3/100
		ratio = toRational(2/(1+sqrt(5)::Double))


startup :: X()
startup = do
	spawn "urxvt"
	refresh