import XMonad
import XMonad.Actions.Promote
import XMonad.Actions.UpdatePointer
import XMonad.Actions.Warp
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Layout.LayoutHints
import XMonad.Layout.HintedTile
import XMonad.Layout.NoBorders
import XMonad.Layout.Spiral
import XMonad.Layout.Tabbed
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO (hPutStrLn)

import qualified System.IO.UTF8

main = do
  xmproc <- spawnPipe "/usr/bin/xmobar /home/yiannis/.xmonad/xmobar"
  xmonad $  defaultConfig {
	  borderWidth = 2,
	  terminal = "urxvt",
	  manageHook = manageDocks <+> manageHook defaultConfig,
      layoutHook = avoidStruts  $  layoutHook defaultConfig,
      logHook = dynamicLogWithPP $ xmobarPP {
        ppOutput = hPutStrLn xmproc,
		ppTitle = xmobarColor "green" "". shorten 50
		},		
	  modMask = mod4Mask     -- Rebind Mod to the Windows key 
    } `additionalKeys`
    [((mod4Mask .|. shiftMask, xK_z),
      spawn "xscreensaver-command -lock"),
      ((controlMask, xK_Print), spawn "scrot -s"),
      ((0, xK_Print), spawn "scrot")
    ]