From e2afb4f5ce8f94504a40a47e29024c47c11fdab0 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Tue, 15 Mar 2016 15:18:57 -0700
Subject: suspend binding in xmonad

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

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index efee8b97..5bb74a1d 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -84,6 +84,11 @@ myKeys = [ ("M4-/", spawn "xmousetidy")
            -- but SSH keys can't be.
          , ("M4-S-l", spawn "sh -c 'ssh-add -D && xscreensaver-command -lock'")
 
+           -- Since shutting artemis' lid to suspend crashes X and
+           -- using the Xfce menu option to suspend fails to lock the
+           -- screen, let's just make a binding..
+         , ("M4-<F4>", spawn "sh -c 'ssh-add -D && xscreensaver-command -lock && systemctl suspend'")
+
            -- TODO restore M4-l shrink keybinding to M4-S-l or something
          ]
 
-- 
cgit v1.2.3