Ibraim's "Stump-like" XMonad Config

import XMonad
import Data.Map as M (fromList, union, Map())
import XMonad.Prompt (greenXPConfig)
import XMonad.Prompt.Shell (shellPrompt, prompt, safePrompt)
import XMonad.Actions.Submap
import Graphics.X11.Types
import XMonad.Actions.WindowGo (runOrRaise)
import XMonad.Actions.GridSelect
import XMonad.Actions.CycleWindows
import XMonad.Layout.WindowNavigation
import XMonad.Hooks.ManageDocks
import XMonad.Actions.Promote
import XMonad.Actions.CycleWS

main = do
     xmonad $ defaultConfig
       {
         layoutHook = avoidStruts $ mylayoutHook,
         borderWidth = 2,
         keys = \c -> myKeys c `M.union` keys defaultConfig c,
         modMask = myModMask
       }

myModMask = mod4Mask
mylayoutHook =  Full
gsconfig1 = defaultGSConfig { gs_cellheight=25, gs_cellwidth=500 }

myKeys :: XConfig t -> M.Map (KeyMask, KeySym) (X ())
myKeys (XConfig {modMask = m, terminal = term}) = M.fromList [
              ((controlMask, xK_t), submap . M.fromList $
               [ ((0, xK_x),              prompt ("/bin/bash" ++ " -c") greenXPConfig),
                 ((controlMask, xK_x),    prompt ("/bin/bash" ++ " -c") greenXPConfig),
                 ((0, xK_e),              runOrRaise "emacs" (className =? "Emacs")),
                 ((controlMask, xK_e),    runOrRaise "emacs" (className =? "Emacs")),
                 ((0, xK_o),              runOrRaise "opera" (className =? "Opera")),
                 ((controlMask, xK_o),    runOrRaise "opera" (className =? "Opera")),
                 ((0, xK_l),              spawn "xscreensaver-command -l"),
                 ((controlMask, xK_l),    spawn "xscreensaver-command -l"),
                 ((0, xK_k),              kill),
                 ((controlMask, xK_k),    kill),
                 ((0, xK_w),              goToSelected gsconfig1),
                 ((controlMask, xK_w),    goToSelected gsconfig1),
                 ((0, xK_t),              promote),
                 ((controlMask, xK_t),    promote),
                 ((0, xK_c),              spawn "xterm"),
                 ((controlMask, xK_c),    spawn "xterm"),
                 ((controlMask, xK_d),    spawn "sudo shutdown -h now"),
                 ((controlMask, xK_r),    spawn "sudo shutdown -r now"),
                 ((mod1Mask, xK_Right),   shiftNextScreen),
                 ((0, xK_Right),          nextScreen),
                 ((mod1Mask, xK_Left),    shiftPrevScreen),
                 ((0, xK_Left),           prevScreen)
               ])]