From 6a1480042a0967498f6135bddb5f47fdd4a80f12 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander.sulfrian@fu-berlin.de>
Date: Wed, 4 Feb 2015 20:07:45 +0100
Subject: xmonad.hs: Do not use M5 on host "Australien"

---
 xmonad.hs | 10 +++++++---
 1 file 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),
-- 
cgit v1.2.3