import XMonad
import qualified XMonad.StackSet as W
import XMonad.ManageHook
import System.Exit
import System.IO

-- data
import Data.Tree
import qualified Data.Map as M

-- actions
import XMonad.Actions.CopyWindow
import XMonad.Actions.CycleWS
import XMonad.Actions.GridSelect
import XMonad.Actions.SwapWorkspaces
import qualified XMonad.Actions.TreeSelect as TS

-- layout modifiers
import XMonad.Layout.Spacing
import XMonad.Layout.WindowNavigation as WN
import XMonad.Layout.Maximize
import XMonad.Layout.Fullscreen
import XMonad.Layout.NoBorders

-- Layouts
import XMonad.Layout.BinarySpacePartition as BSP
import XMonad.Layout.Grid
import XMonad.Layout.Tabbed

-- hooks
import XMonad.Hooks.SetWMName
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops

import XMonad.Hooks.DynamicLog
-- DynamicLog replacement(s)
-- import XMonad.Hooks.StatusBar
-- import XMonad.Hooks.StatusBar.PP

-- utilities
import XMonad.Util.Run
import XMonad.Util.SpawnOnce
import XMonad.Util.EZConfig
import XMonad.Util.Cursor
import XMonad.Util.NamedScratchpad

-- myLibs
import Keybindings
import Defaults
import Scratchpads
import Hooks

main :: IO ()
main = do
  -- lemonBar <- spawnPipe myLemonbar
  xmonad $ ewmh $ docks $ fullscreenSupport def {
    focusFollowsMouse  = True
    , borderWidth        = 2
    , modMask            = myModMask
    , workspaces         = myWorkspaces
    , normalBorderColor  = "#130F23"
    , focusedBorderColor = "#c44cf2"
    , layoutHook         = myLayoutHook
    , startupHook        = myStartupHook
    , manageHook         = myManageHook
    -- , logHook            = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn lemonBar x}

}