summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAlexander Sulfrian <alexander.sulfrian@fu-berlin.de>2014-07-03 18:28:41 +0200
committerAlexander Sulfrian <alexander.sulfrian@fu-berlin.de>2014-07-03 18:28:41 +0200
commit873eddd2870c86cce65dafb1bea368e85a3dcae7 (patch)
tree253ead7bfc47eb9a525e091de068ad0c9abb3a80
parent609bb9f9106bc806b362250c02a4aef6c5d0b2cd (diff)
downloadxmonad-config-873eddd2870c86cce65dafb1bea368e85a3dcae7.tar.gz
xmonad-config-873eddd2870c86cce65dafb1bea368e85a3dcae7.tar.xz
xmonad-config-873eddd2870c86cce65dafb1bea368e85a3dcae7.zip
add M-M5-q for clean logout
-rw-r--r--xmonad.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/xmonad.hs b/xmonad.hs
index d4d3b79..05efa22 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -1,5 +1,7 @@
import System.IO
import System.Directory
+import System.Exit (exitWith, ExitCode(ExitSuccess))
+import Codec.Binary.UTF8.String as UTF8 (decodeString)
import Data.Ratio ((%))
import Data.List
import qualified Data.Map as M
@@ -313,6 +315,7 @@ xPropMatches =
myKeys c =
-- this line is critical to reload config - DON'T REMOVE
[ ("M-q", broadcastMessage ReleaseResources >> restart "xmonad" True)
+ , ("M-M5-q", io (exitWith ExitSuccess))
, ("M-S-<Return>", spawn term)
, ("M-<Return>", openLastHistoryGrid historyGridConfig 30)