summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--xmonad.hs10
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),