From d176db381b73ecb79de9ced393106b0ec1784e08 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Tue, 25 Jul 2017 01:23:10 -0700
Subject: [PATCH] [XMonad] Add shiftToEmptyOnScreen

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

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index cd0705a1..6de89e88 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -871,6 +871,9 @@ goToNextScreenX = windows goToNextScreen
 
 -- Key bindings
 
+shiftToEmptyOnScreen direction =
+  followingWindow (windowToScreen direction True) >> shiftToEmptyAndView
+
 addKeys conf@XConfig { modMask = modm } =
 
     -- Specific program spawning
@@ -937,6 +940,12 @@ addKeys conf@XConfig { modMask = modm } =
     , ((hyper .|. shiftMask, xK_s), followingWindow $ screenSwap D True)
     , ((hyper .|. shiftMask, xK_a), followingWindow $ screenSwap L True)
     , ((hyper .|. shiftMask, xK_d), followingWindow $ screenSwap R True)
+
+    , ((hyper .|. controlMask, xK_w), shiftToEmptyOnScreen U)
+    , ((hyper .|. controlMask, xK_s), shiftToEmptyOnScreen D)
+    , ((hyper .|. controlMask, xK_a), shiftToEmptyOnScreen L)
+    , ((hyper .|. controlMask, xK_d), shiftToEmptyOnScreen R)
+
 
     -- Focus/Layout manipulation