From f576e2be246311fe59e8cd4333187bc6c974fa27 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Fri, 16 Sep 2016 12:50:53 -0700
Subject: [PATCH] Add shiftThenView command and binding to xmonad

---
 dotfiles/xmonad/xmonad.hs | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 215dc854..fc68b650 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -8,6 +8,7 @@ import XMonad.Layout.MultiToggle.Instances
 import XMonad.Layout.NoBorders
 import XMonad.Layout.Spacing
 import XMonad.Layout.ThreeColumns
+import qualified XMonad.StackSet as W
 import XMonad.Util.CustomKeys
 
 main = xmonad $ ewmh def
@@ -23,7 +24,9 @@ main = xmonad $ ewmh def
 
 delKeys _ = []
 
-addKeys XConfig {modMask = modm} =
+shiftThenView i = W.greedyView i . W.shift i
+
+addKeys conf@XConfig {modMask = modm} =
     [ ((modm, xK_p), spawn "rofi -show drun")
     , ((modm, xK_g), spawn "rofi -show window")
     -- , ((modm, xK_s), sequence_ [shiftNextScreen, nextScreen])
@@ -31,7 +34,14 @@ addKeys XConfig {modMask = modm} =
     , ((modm, xK_b), spawn "rofi -show run")
     , ((modm .|. controlMask, xK_space), sendMessage $ JumpToLayout "Full")
     , ((modm, xK_slash), sendMessage $ Toggle MIRROR)
-    ]
+    ] ++
+    -- Replace original moving stuff around + greedy view bindings
+    [((additionalMask .|. modm, key), windows $ function workspace)
+         | (workspace, key) <- zip (workspaces conf) [xK_1 .. xK_9]
+         , (function, additionalMask) <-
+             [ (W.greedyView, 0)
+             , (W.shift, shiftMask)
+             , (shiftThenView, controlMask)]]
 
 layouts = tiled ||| Full ||| ThreeCol 1 (3/100) (1/3)
           where