import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Layout.IndependentScreens
import qualified XMonad.StackSet as W
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO

main = do
--    xmproc <- spawnPipe "xmobar"
    xmonad myConfig

myConfig = defaultConfig
        { manageHook = manageDocks <+> manageHook defaultConfig
        , layoutHook = avoidStruts  $  layoutHook defaultConfig
	, workspaces = myWorkspaces
--	, logHook = dynamicLogWithPP $ xmobarPP
--			{ ppOutput = hPutStrLn xmproc
--			, ppTitle = xmobarColor "green" "" . shorten 50
--			}
        , modMask = mod4Mask     -- Rebind Mod to the Windows key
        } `additionalKeys` myKeys

myWorkspaces = withScreens 2 ["1", "2", "3", "4", "5", "6", "7", "8", "slack"]

myKeys =
    [ ((mod4Mask .|. shiftMask, xK_l), spawn "xscreensaver-command -lock")
    , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
    , ((0, xK_Print), spawn "scrot")
    ]
    ++
    -- mod-[1..9], Switch to workspace N
    -- mod-shift-[1..9], Move client to workspace N
  --[((m .|. mod4Mask, k), windows $ f i)
  --     | (i, k) <- zip myWorkspaces [xK_1 .. xK_9]
  --     , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
    [((m .|. modMask, k), windows $ onCurrentScreen f i)
         | (i, k) <- zip (workspaces' myConfig) [xK_1 .. xK_9]
         , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]