[XMonad] Add shiftToEmptyOnScreen

This commit is contained in:
Ivan Malison 2017-07-25 01:23:10 -07:00
parent b81095f3ca
commit d176db381b
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -871,6 +871,9 @@ goToNextScreenX = windows goToNextScreen
-- Key bindings -- Key bindings
shiftToEmptyOnScreen direction =
followingWindow (windowToScreen direction True) >> shiftToEmptyAndView
addKeys conf@XConfig { modMask = modm } = addKeys conf@XConfig { modMask = modm } =
-- Specific program spawning -- Specific program spawning
@ -937,6 +940,12 @@ addKeys conf@XConfig { modMask = modm } =
, ((hyper .|. shiftMask, xK_s), followingWindow $ screenSwap D True) , ((hyper .|. shiftMask, xK_s), followingWindow $ screenSwap D True)
, ((hyper .|. shiftMask, xK_a), followingWindow $ screenSwap L True) , ((hyper .|. shiftMask, xK_a), followingWindow $ screenSwap L True)
, ((hyper .|. shiftMask, xK_d), followingWindow $ screenSwap R 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 -- Focus/Layout manipulation