xmonad foizetux

import XMonad
import XMonad.Hooks.InitialStartupHook
import XMonad.Layout.LayoutScreens
import XMonad.Layout.TwoPane
import XMonad.Hooks.InsertPosition
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeysP)
import System.IO

myStartup = do
  layoutSplitScreen 2 (TwoPane 0.5 0.5)
  
main = do
	xmproc <- spawnPipe "xmobar"
	xmonad $ defaultConfig
		{ modMask = mod4Mask
		, startupHook = initialStartupHook myStartup
		, manageHook = manageDocks <+> insertPosition End Newer
						<+> manageHook defaultConfig
		, layoutHook = avoidStruts  $  layoutHook defaultConfig
		, logHook = dynamicLogWithPP $ xmobarPP
						{ ppOutput = hPutStrLn xmproc
						, ppTitle = xmobarColor "green" "" . shorten 50
						}
		, focusFollowsMouse = False
		, clickJustFocuses = False
		}
		`additionalKeysP`
		[ ("M-<F4>", kill)
		, ("<F12>", spawn "konsole")
		, ("<Print>", spawn "ksnapshot")
		, ("M-x f", spawn "ff")
		, ("M-x l", spawn "slock")
		, ("M-x s", spawn "st2")
		]