my simplistic xmonad

gistfile1.txt

module Main (main) where

import XMonad
import System.Exit
import qualified Data.Map as M
import Graphics.X11.Xlib
import XMonad.Prompt
import XMonad.Prompt.Shell
import XMonad.Prompt.XMonad
import XMonad.Prompt.RunOrRaise

myModMask = mod4Mask -- "windows key"
myNormalBorderColor  = "#000000"
myFocusedBorderColor = "#ff0000"
myBorderWidth = 2

main :: IO ()
main = xmonad $ defaultConfig {
        normalBorderColor  = myNormalBorderColor,
        focusedBorderColor = myFocusedBorderColor,
        keys               = newKeys,
        modMask            = myModMask,
        borderWidth        = myBorderWidth
}

newKeys x = M.union (keys defaultConfig x) (M.fromList (myKeys x))

myKeys x =
         [ ((modMask x, xK_o), runOrRaisePrompt defaultXPConfig) ]