From 873eddd2870c86cce65dafb1bea368e85a3dcae7 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander.sulfrian@fu-berlin.de>
Date: Thu, 3 Jul 2014 18:28:41 +0200
Subject: add M-M5-q for clean logout

---
 xmonad.hs | 3 +++
 1 file changed, 3 insertions(+)

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)
-- 
cgit v1.2.3