--
-- Configuration file for XMonad + MATE
--
--  Usage:
--      * Copy this file to ~/.xmonad/
--      * Run:    $ xmonad --recompile
--      * Launch: $ xmonad --replace
--      [Optional] Create an autostart to command with "xmonad --replace"
--
--  Author: Arturo Fernandez <arturo at bsnux dot com>
--  Inspired by:
--      Spencer Janssen <spencerjanssen@gmail.com>
--      rfc <reuben.fletchercostin@gmail.com>
--  License: BSD
--
import XMonad
import XMonad.Config.Desktop
import XMonad.Util.Run (safeSpawn)
import qualified Data.Map as M
import qualified XMonad.StackSet as W
import System.Exit
import System.Environment (getEnvironment)
import XMonad.Util.EZConfig

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

mateConfig = desktopConfig
    { terminal = "mate-terminal"
    , keys     = mateKeys <+> keys desktopConfig
    }

mateKeys (XConfig {modMask = modm}) = M.fromList $
    [ ((modm, xK_p), mateRun)
    , ((modm .|. shiftMask, xK_q), spawn "mate-session-save --kill") ]

mateRun :: X ()
mateRun = withDisplay $ \dpy -> do
    rw <- asks theRoot
    mate_panel <- getAtom "_MATE_PANEL_ACTION"
    panel_run   <- getAtom "_MATE_PANEL_ACTION_RUN_DIALOG"

    io $ allocaXEvent $ \e -> do
        setEventType e clientMessage
        setClientMessageEvent e rw mate_panel 32 panel_run 0
        sendEvent dpy rw False structureNotifyMask e
        sync dpy False

main = do
    xmonad $ mateConfig
                { modMask = mod4Mask
                 , borderWidth = 2
                 , workspaces = myWorkspaces
                 , focusedBorderColor = "#FF0000"
                } `additionalKeysP` myKeys


myKeys = [  (("M4-f"), spawn "brave-bin")
           ,(("M4-S-q"), io exitSuccess)
           ,(("M4-q"), spawn "xmonad --recompile; xmonad --restart")
           ,(("M4-<Return>"), spawn "mate-terminal")
           ,(("M4-p"), spawn "dmenu_run")
           ,(("M4-z"), kill)
           -- BINDING FOR MOVE WORKSPACE
	   ,(("M4-<F1>"), windows $ W.greedyView "1")
           ,(("M4-<F2>"), windows $ W.greedyView "2")
           ,(("M4-<F3>"), windows $ W.greedyView "3")
           ,(("M4-<F4>"), windows $ W.greedyView "4")
           ,(("M4-<F5>"), windows $ W.greedyView "5")
           ,(("M4-<F6>"), windows $ W.greedyView "6")
           ,(("M4-<F7>"), windows $ W.greedyView "7")
           ,(("M4-<F8>"), windows $ W.greedyView "8")
         ]