xmonad.hs: Add confirmation to logout.

1 files changed, 15 insertions, 1 deletions

diff --git a/xmonad.hs b/xmonad.hs
index 957c124..1bcb311 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -65,6 +65,7 @@ import Network.HostName
 import HistoryGrid
 import EZConfig
 import Pass
+import qualified Confirm
 
 font :: String
 font = "-*-terminus-medium-r-normal-*-12-*-*-*-*-*-*-*"
@@ -215,6 +216,19 @@ historyGridConfig = defaultGSConfig
         , gs_font = "xft:Droid Sans Mono Slashed-8"
         }
 
+confirmConfig :: HasColorizer a => GSConfig a
+confirmConfig = defaultGSConfig
+        { gs_cellheight = 150
+        , gs_cellwidth = 300
+	, gs_cellpadding = 50
+        , gs_font = "xft:Droid Sans Mono Slashed Bold-35"
+        , gs_originFractX = (1/2)
+        , gs_originFractY = (1/3)
+        }
+
+confirm :: String -> X() -> X()
+confirm = Confirm.confirm confirmConfig
+
 --
 -- Hooks
 --
@@ -309,7 +323,7 @@ xPropMatches =
 myKeys c hostname =
   -- this line is critical to reload config - DON'T REMOVE
   [ ("M-q", broadcastMessage ReleaseResources >> restart "xmonad" True)
-  , (shutdownKey, io (exitWith ExitSuccess))
+  , (shutdownKey, confirm "Logout?" $ io (exitWith ExitSuccess))
 
   , ("M-S-<Return>", spawn term)
   , ("M-<Return>", openLastHistoryGrid historyGridConfig 30)