1 files changed, 7 insertions, 3 deletions
diff --git a/xmonad.hs b/xmonad.hs
index aef45d3..957c124 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -111,7 +111,7 @@ myConfig statusFile hostname = defaultConfig
         , focusedBorderColor = "#A00000"
         , logHook = myLogHook statusFile
         , manageHook = myManageHook
-        , keys = \c -> mkKeymap c $ myKeys c
+        , keys = \c -> mkKeymap c $ myKeys c hostname
         , mouseBindings = \c -> M.union (M.fromList $ myMouse (modM hostname) c) $ mouseBindings defaultConfig c
         , layoutHook = myLayout
         , workspaces = myWorkspaces
@@ -306,10 +306,10 @@ xPropMatches =
 --
 -- Keys
 --
-myKeys c =
+myKeys c hostname =
   -- this line is critical to reload config - DON'T REMOVE
   [ ("M-q", broadcastMessage ReleaseResources >> restart "xmonad" True)
-  , ("M-M5-q", io (exitWith ExitSuccess))
+  , (shutdownKey, io (exitWith ExitSuccess))
 
   , ("M-S-<Return>", spawn term)
   , ("M-<Return>", openLastHistoryGrid historyGridConfig 30)
@@ -406,6 +406,10 @@ myKeys c =
         | (k, s) <- [("a", 0), ("s", 1)],
           (m, f) <- [("M-", W.view), ("M-S-", W.shift), ("M-C-", copy)]
   ]
+  where
+    shutdownKey = case hostname of
+       "Australien" -> "M-S-q"
+       _            -> "M-M5-q"
 
 myMouse modm c =
   [ ((modm, button1),