import System.IO

import XMonad

import XMonad.Layout.Fullscreen

import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.StatusBar.PP

import XMonad.Util.EZConfig
import XMonad.Util.Run

import Keybindings
import Defaults
import Hooks

main :: IO ()
main = do
  lemonBar <- spawnPipe myLemonbar
  xmonad $ ewmh $ docks $ fullscreenSupport def {
    focusFollowsMouse  = True
    , borderWidth        = myBorderWidth
    , modMask            = myModMask
    , workspaces         = myWorkspaces
    , normalBorderColor  = myBorder
    , focusedBorderColor = myBorder'
    , layoutHook         = myLayoutHook
    , startupHook        = myStartupHook
    , manageHook         = myManageHook
    , logHook            = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn lemonBar x}
  }
    `additionalKeys`  myKeybindings
    `additionalKeysP` myKeybindingsP
    `additionalMouseBindings` myMouseKeybindings