import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO
-- Added for Azerty keyboard
import XMonad.Config.Azerty
import qualified Data.Map as M
-- End of Azerty keyboard addition
-- Added layouts
import XMonad.Layout.Circle
import XMonad.Layout.OneBig
-- End of added layouts

myFocusedBorderColor = "#3399BB"
myNormalBorderColor = "#000000"
myBorderWidth = 2

-- {{{ Layouts

-- You can specify and transform your layouts by modifying these values.
-- If you change layout bindings be sure to use 'mod-shift-space' after
-- restarting (with 'mod-q') to reset your layout state to the new
-- defaults, as xmonad preserves your old layout settings by default.
--
-- * NOTE: XMonad.Hooks.EwmhDesktops users must remove the obsolete
-- ewmhDesktopsLayout modifier from layoutHook. It no longer exists.
-- Instead use the 'ewmh' function from that module to modify your
-- defaultConfig as a whole. (See also logHook, handleEventHook, and
-- startupHook ewmh notes.)
--
-- The available layouts.  Note that each layout is separated by |||,
-- which denotes layout choice.
--
myLayout = tiled ||| Mirror tiled ||| Circle ||| OneBig (5/8) (5/8) ||| Full
  where
    -- default tiling algorithm partitions the screen into two panes
    tiled   = Tall nmaster delta ratio
    -- The default number of windows in the master pane
    nmaster = 1
    -- Default proportion of screen occupied by master pane
    ratio   = 1/2
    -- Percent of screen to increment by when resizing panes
    delta   = 3/100
-- }}}

main = do
        xmproc <- spawnPipe "/usr/bin/xmobar /home/laurent/.xmobarrc"
        xmonad $ defaultConfig
                { manageHook = manageDocks <+> manageHook defaultConfig
                , layoutHook = avoidStruts $ myLayout
                , focusedBorderColor = myFocusedBorderColor
                , normalBorderColor = myNormalBorderColor
                , borderWidth = myBorderWidth
                , startupHook = spawn "/usr/bin/xmobar /home/laurent/.xmobarrc"
                , keys = \c -> azertyKeys c `M.union` keys defaultConfig c
                }