xmonad EZConfig Inherit Keys

main = do
 hostname <- fmap nodeName getSystemID
...
...
 xmonad $ withUrgencyHookC myUrgentHook myUrgencyConfig
     $ docks $ ewmh defaultConfig {
      terminal = myTerminal
      , focusedBorderColor = myFocusedBorderColor
     -- , keys = myKeys hostname
        , logHook = composeAll [
                    myFadeHook
                    , myDzenLogHook xmproc
          ]
          >> updatePointer (0.5, 0.5) (0, 0) -- moves pointer to center of focused window
 } `additionalKeys` myKeys hostname

myModMask = mod4Mask

myKeys (hostname) =  [
 ((mod4Mask .|. shiftMask, xK_Return), spawn "xterm")
 , ((mod4Mask .|. shiftMask, xK_KP_Enter), spawn "xterm")
...
...
]
 ++
++
 (case hostname of
   "ARCHLAP" -> [
     ((mod .|. controlMask, xK_1), spawn (myTerminal ++ " -p AMER-L")) -- myself
...
  ]
   _  -> [
     ((mod .|. controlMask, xK_1), spawn (myTerminal ++ " -p AMER")) -- myself
...
  ]
)