[XMonad] Add shiftToEmptyOnScreen
This commit is contained in:
parent
b81095f3ca
commit
d176db381b
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user