[XMonad] Add bindings for WindowNavigation
This commit is contained in:
parent
7c0b6aa1af
commit
9a4dc56b6d
@ -50,6 +50,7 @@ import XMonad.Layout.NoBorders
|
||||
import qualified XMonad.Layout.Renamed as RN
|
||||
import XMonad.Layout.Spacing
|
||||
import XMonad.Layout.Tabbed
|
||||
import XMonad.Layout.WindowNavigation
|
||||
import qualified XMonad.StackSet as W
|
||||
import XMonad.Util.CustomKeys
|
||||
import qualified XMonad.Util.Dmenu as DM
|
||||
@ -686,6 +687,16 @@ addKeys conf@XConfig { modMask = modm } =
|
||||
, ((modm .|. shiftMask, xK_z), shiftToEmptyNextScreen)
|
||||
, ((modm .|. shiftMask, xK_h), shiftToEmptyAndView)
|
||||
|
||||
-- 2D Navigation
|
||||
, ((hctrl, xK_h), sendMessage $ Go L)
|
||||
, ((hctrl, xK_l), sendMessage $ Go R)
|
||||
, ((hctrl, xK_k), sendMessage $ Go U)
|
||||
, ((hctrl, xK_j), sendMessage $ Go D)
|
||||
, ((hctrl .|. shiftMask, xK_h), sendMessage $ Swap L)
|
||||
, ((hctrl .|. shiftMask, xK_l), sendMessage $ Swap R)
|
||||
, ((hctrl .|. shiftMask, xK_k), sendMessage $ Swap U)
|
||||
, ((hctrl .|. shiftMask, xK_j), sendMessage $ Swap D)
|
||||
|
||||
-- These need to be rebound to support boringWindows
|
||||
, ((modm, xK_j), focusDown)
|
||||
, ((modm, xK_k), focusUp)
|
||||
|
Loading…
Reference in New Issue
Block a user