import XMonad
import XMonad.Config.Gnome
import XMonad.Config.Desktop
import XMonad.Config.Azerty
import XMonad.Util.EZConfig
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.Themes
import XMonad.Util.Scratchpad
import XMonad.Actions.CycleWS
import XMonad.Actions.GridSelect
import XMonad.Actions.UpdatePointer
import XMonad.Hooks.DynamicLog
import XMonad.Layout.NoBorders
import XMonad.Layout.LayoutHints
import XMonad.Layout.DwmStyle
import System.IO
import qualified Data.Map as M
import qualified XMonad.StackSet as W

--layout
myLayoutHook = dwmStyle shrinkText (theme xmonadTheme) $ desktopLayoutModifiers $ tiled ||| Mirror tiled ||| Full
  where
    tiled   = Tall nmaster delta ratio
    nmaster = 1
    ratio   = 1/2
    delta   = 3/100

--loghook
myLogHook h = (dynamicLogWithPP $ xmobarPP
  { ppOutput = hPutStrLn h
  , ppTitle  = xmobarColor "green" "" . shorten 50
  , ppSort   = fmap (.scratchpadFilterOutWorkspace) $ ppSort xmobarPP
  }) >> updatePointer (TowardsCentre 1 1)

--keymap
myEZKeysP = myEZKeymap (myConfig)
myEZKeymap conf =
  [ ("M-i",          spawn "firefox")
  , ("M-o",          spawn "claws-mail")
  , ("M-<F2>",       spawn $ terminal conf)
  , ("M-<F3>",       gnomeRun)
  , ("M-<KP_Enter>", goToSelected defaultGSConfig)
  , ("M-<Backspace>", scratchpadSpawnAction conf ) -- how do I get twosuperior?
  ]

myEZKeys =
--  [ ((mod4Mask .|. shiftMask, xK_c     ), kill)
  [
  -- additional keys
  ]
  ++
  [((m .|. mod4Mask, key), screenWorkspace sc >>= flip whenJust (windows . f))
       | (key, sc) <- zip [xK_Right, xK_Left] [0..]
       , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
  ]

--managehook
myManageHook = scratchpadManageHook (W.RationalRect 0.125 0.125 0.75 0.75)

--workspaces
myWorkspaces = ["www","com","xterm","four","five","six","seven","eight","nine"]

--config
myConfig = gnomeConfig
    { terminal          = "urxvtc"
    , modMask           = mod4Mask
    , focusFollowsMouse = False
    , layoutHook        = myLayoutHook
    , keys              = \c -> azertyKeys c `M.union` keys gnomeConfig c
    , manageHook        = myManageHook <+> manageHook gnomeConfig
    , workspaces = myWorkspaces
    }
    `additionalKeysP` myEZKeysP
    `additionalKeys` myEZKeys

--main
main=do
  xmproc <- spawnPipe "xmobar /home/mike/.xmonad/xmobarrc"
  xmonad $ myConfig
    { logHook           = myLogHook xmproc >> logHook desktopConfig
    }