colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Add bindings for WindowNavigation

Browse Source
This commit is contained in:
Ivan Malison 2017-03-10 15:25:11 -08:00
parent 7c0b6aa1af
commit 9a4dc56b6d
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
dotfiles/xmonad/xmonad.hs
View File

@ -50,6 +50,7 @@ import XMonad.Layout.NoBorders
import qualified XMonad.Layout.Renamed as RN import qualified XMonad.Layout.Renamed as RN
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.Layout.Tabbed import XMonad.Layout.Tabbed
import XMonad.Layout.WindowNavigation
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Util.CustomKeys import XMonad.Util.CustomKeys
import qualified XMonad.Util.Dmenu as DM import qualified XMonad.Util.Dmenu as DM
@ -686,6 +687,16 @@ addKeys conf@XConfig { modMask = modm } =
, ((modm .|. shiftMask, xK_z), shiftToEmptyNextScreen) , ((modm .|. shiftMask, xK_z), shiftToEmptyNextScreen)
, ((modm .|. shiftMask, xK_h), shiftToEmptyAndView) , ((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 -- These need to be rebound to support boringWindows
, ((modm, xK_j), focusDown) , ((modm, xK_j), focusDown)
, ((modm, xK_k), focusUp) , ((modm, xK_k), focusUp)