diff options
| author | Alexander Sulfrian <alexander.sulfrian@fu-berlin.de> | 2015-02-04 20:07:45 +0100 |
|---|---|---|
| committer | Alexander Sulfrian <alexander.sulfrian@fu-berlin.de> | 2015-02-04 20:07:45 +0100 |
| commit | 6a1480042a0967498f6135bddb5f47fdd4a80f12 (patch) | |
| tree | b46800da56a842b7b4ede6745aa547d32cac4173 | |
| parent | c5b9d799ce66afefd96e35f56406617cf6d1370e (diff) | |
| download | xmonad-config-6a1480042a0967498f6135bddb5f47fdd4a80f12.tar.gz xmonad-config-6a1480042a0967498f6135bddb5f47fdd4a80f12.tar.xz xmonad-config-6a1480042a0967498f6135bddb5f47fdd4a80f12.zip | |
xmonad.hs: Do not use M5 on host "Australien"
| -rw-r--r-- | xmonad.hs | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -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), |