-- Skipped

-- Define the names of all workspaces
myWorkspaces = ["term"] ++ (map show [1..9]) ++ ["0"] ++ ((map (("F" ++) . show) [1..12])) ++ ["-", "="]

-- Keymaps
keysToAdd conf@(XConfig {XMonad.modMask = modMask}) =.
    [((m .|. modMask, k), windows $ f i)
        | (i, k) <- zip (XMonad.workspaces conf) ([xK_grave] ++ [xK_1 .. xK_9] ++ [xK_0] ++ [xK_F1 .. xK_F12] ++ [xK_minus, xK_equal])
        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]

-- Compose all my new key combinations.
myKeys x = M.union (keys mateConfig x) (M.fromList (keysToAdd x))

-- manage hook
myManageHook :: ManageHook
myManageHook = composeAll $
    [
      manageHook mateConfig
    , isFullscreen --> doFullFloat
    ]
    ++ map (\s -> resource =? ("atWorkspace" ++ s) --> doShift s) myWorkspaces

-- here we actually configure xmonad
main = xmonad mateConfig {
    modMask = mod4Mask
   , workspaces = myWorkspaces
   , keys = myKeys
   , manageHook = myManageHook
}